Merge pull request #1425 from MJHarrison-GFDL/apply_flx_adj_patch

Change the declaration of stack variable in apply_flux_adjustments
mom-ocean · Jun 17, 2021 · 4273444 · 4273444
2 parents afc9e1c + ae71955
commit 4273444
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/config_src/drivers/FMS_cap/MOM_surface_forcing_gfdl.F90 b/config_src/drivers/FMS_cap/MOM_surface_forcing_gfdl.F90
@@ -1112,7 +1112,7 @@ subroutine apply_flux_adjustments(G, US, CS, Time, fluxes)
   type(forcing),            intent(inout) :: fluxes !< Surface fluxes structure
 
   ! Local variables
-  real, dimension(SZI_(G),SZJ_(G)) :: temp_at_h ! Various fluxes at h points [W m-2] or [kg m-2 s-1]
+  real, dimension(G%isc:G%iec,G%jsc:G%jec) :: temp_at_h ! Various fluxes at h points [W m-2] or [kg m-2 s-1]
 
   integer :: isc, iec, jsc, jec, i, j
   logical :: overrode_h