Add result to get_zero()

GEOS-ESM · Jan 10, 2025 · 1d2a743 · 1d2a743
1 parent 4db9324
commit 1d2a743
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/generic3g/specs/FrequencyAspect.F90 b/generic3g/specs/FrequencyAspect.F90
@@ -178,7 +178,7 @@ logical function interval_divides(factor, base) result(lval)
 
    end function interval_divides
 
-   function get_zero()
+   function get_zero() result(zero)
       type(ESMF_TimeInterval), pointer :: zero
       logical, save :: zero_is_uninitialized = .TRUE.