make uppercase DEBUG lowercase

NOAA-GFDL · Apr 24, 2019 · 379e9ee · 379e9ee
1 parent 5868144
commit 379e9ee
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/ice_shelf/MOM_ice_shelf.F90 b/src/ice_shelf/MOM_ice_shelf.F90
@@ -308,7 +308,7 @@ subroutine shelf_calc_flux(state, fluxes, Time, time_step, CS, forces)
     if (CS%mass_from_file) call update_shelf_mass(G, CS, ISS, Time)
   endif
 
-  if (CS%DEBUG) then
+  if (CS%debug) then
     call hchksum(fluxes%frac_shelf_h, "frac_shelf_h before apply melting", G%HI, haloshift=0)
     call hchksum(state%sst, "sst before apply melting", G%HI, haloshift=0)
     call hchksum(state%sss, "sss before apply melting", G%HI, haloshift=0)
@@ -633,7 +633,7 @@ subroutine shelf_calc_flux(state, fluxes, Time, time_step, CS, forces)
     call change_thickness_using_melt(ISS, G, time_step, fluxes, CS%density_ice, CS%debug)
   endif
 
-  if (CS%DEBUG) call MOM_forcing_chksum("Before add shelf flux", fluxes, G, haloshift=0)
+  if (CS%debug) call MOM_forcing_chksum("Before add shelf flux", fluxes, G, haloshift=0)
 
   call add_shelf_flux(G, CS, state, fluxes)
 
@@ -675,7 +675,7 @@ subroutine shelf_calc_flux(state, fluxes, Time, time_step, CS, forces)
 
   call cpu_clock_end(id_clock_shelf)
 
-  if (CS%DEBUG) call MOM_forcing_chksum("End of shelf calc flux", fluxes, G, haloshift=0)
+  if (CS%debug) call MOM_forcing_chksum("End of shelf calc flux", fluxes, G, haloshift=0)
 
 end subroutine shelf_calc_flux
 
@@ -1043,7 +1043,7 @@ subroutine add_shelf_flux(G, CS, state, fluxes)
       endif
     enddo ; enddo
 
-    if (CS%DEBUG) then
+    if (CS%debug) then
       write(mesg,*) 'Mean melt flux (kg/(m^2 s)), dt = ', mean_melt_flux, CS%time_step
       call MOM_mesg(mesg)
       call MOM_forcing_chksum("After constant sea level", fluxes, G, haloshift=0)
@@ -1483,7 +1483,7 @@ subroutine initialize_ice_shelf(param_file, ocn_grid, Time, CS, diag, forces, fl
     if (G%areaT(i,j) > 0.0) fluxes%frac_shelf_h(i,j) = ISS%area_shelf_h(i,j) / G%areaT(i,j)
   enddo ; enddo ; endif
 
-  if (CS%DEBUG) then
+  if (CS%debug) then
     call hchksum(fluxes%frac_shelf_h, "IS init: frac_shelf_h", G%HI, haloshift=0)
   endif
 

diff --git a/src/ice_shelf/MOM_ice_shelf_dynamics.F90 b/src/ice_shelf/MOM_ice_shelf_dynamics.F90
@@ -920,7 +920,7 @@ subroutine ice_shelf_solve_outer(CS, ISS, G, u, v, iters, time)
     call ice_shelf_solve_inner(CS, ISS, G, u, v, TAUDX, TAUDY, H_node, float_cond, &
                                ISS%hmask, conv_flag, iters, time, Phi, Phisub)
 
-    if (CS%DEBUG) then
+    if (CS%debug) then
       call qchksum(u, "u shelf", G%HI, haloshift=2)
       call qchksum(v, "v shelf", G%HI, haloshift=2)
     endif
@@ -3597,7 +3597,7 @@ subroutine ice_shelf_temp(CS, ISS, G, time_step, melt_rate, Time)
   call pass_var(CS%t_shelf, G%domain)
   call pass_var(CS%tmask, G%domain)
 
-  if (CS%DEBUG) then
+  if (CS%debug) then
     call hchksum(CS%t_shelf, "temp after front", G%HI, haloshift=3)
   endif