Skip to content

Commit

Permalink
Merge pull request mom-ocean#1605 from GEOS-ESM/mathomp4-patch-1
Browse files Browse the repository at this point in the history
GNU bug fix for MOM_variables.F90
  • Loading branch information
marshallward authored Aug 11, 2023
2 parents b61b29e + 82acb2f commit 2dd99f8
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/core/MOM_variables.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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].
Expand Down

0 comments on commit 2dd99f8

Please sign in to comment.