From a8fc223070e1a033149af30dbe1016e0375b7ee5 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Mon, 2 Jan 2023 16:03:34 +0100
Subject: [PATCH] Add default initialization of `coord_proj`
Add default initialization of component `coord_proj` of type
extremum. As the type of `coord_proj` is integer, there may not be a
compiler option to initialize it. We want to detect when it has not
been defined.
---
Common/derived_types.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Common/derived_types.f90 b/Common/derived_types.f90
index 5ecf46ab..c3a7427e 100644
--- a/Common/derived_types.f90
+++ b/Common/derived_types.f90
@@ -15,7 +15,7 @@ module derived_types
end type ssh_contour
type extremum
- integer coord_proj(2) ! coordinates in projection space
+ integer:: coord_proj(2) = huge(0) ! coordinates in projection space
real coord (2) ! longitude and latitude, in rad
real ssh ! value of ssh, in m
end type extremum
--
GitLab