fix: initialize logicals in horiz_interp_type declaration (#1283)

NOAA-GFDL · Aug 4, 2023 · a13de5b · a13de5b
1 parent a0e2128
commit a13de5b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/horiz_interp/horiz_interp_type.F90 b/horiz_interp/horiz_interp_type.F90
@@ -81,7 +81,7 @@ module horiz_interp_type_mod
    real(kind=r8_kind),    dimension(:), allocatable     :: area_frac_dst !< area fraction in destination grid.
    real(kind=r8_kind),    dimension(:,:), allocatable   :: mask_in
    real(kind=r8_kind)                                   :: max_src_dist
-   logical                                              :: is_allocated !< set to true upon field allocation
+   logical                                              :: is_allocated = .false. !< set to true upon field allocation
 
 end type horizInterpReals8_type
 
@@ -108,7 +108,7 @@ module horiz_interp_type_mod
    real(kind=r4_kind),    dimension(:), allocatable     :: area_frac_dst !< area fraction in destination grid.
    real(kind=r4_kind),    dimension(:,:), allocatable   :: mask_in
    real(kind=r4_kind)                                   :: max_src_dist
-   logical                                              :: is_allocated !< set to true upon field allocation
+   logical                                              :: is_allocated = .false. !< set to true upon field allocation
 
 end type horizInterpReals4_type