Merge pull request #1605 from GEOS-ESM/mathomp4-patch-1

GNU bug fix for MOM_variables.F90
mom-ocean · Aug 11, 2023 · 2dd99f8 · 2dd99f8
2 parents b61b29e + 82acb2f
commit 2dd99f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/MOM_variables.F90 b/src/core/MOM_variables.F90
@@ -261,7 +261,7 @@ module MOM_variables
 
   ! The following elements are pointers so they can be used as targets for pointers in the restart registry.
   real, pointer, dimension(:,:) :: MLD => NULL() !< Instantaneous active mixing layer depth [Z ~> m].
-  real, pointer, dimension(:,:) :: sfc_buoy_flx !< Surface buoyancy flux (derived) [Z2 T-3 ~> m2 s-3].
+  real, pointer, dimension(:,:) :: sfc_buoy_flx => NULL() !< Surface buoyancy flux (derived) [Z2 T-3 ~> m2 s-3].
   real, pointer, dimension(:,:,:) :: Kd_shear => NULL()
                 !< The shear-driven turbulent diapycnal diffusivity at the interfaces between layers
                 !! in tracer columns [Z2 T-1 ~> m2 s-1].