Removed chksum test for sqg_struct

NOAA-GFDL · Oct 11, 2024 · b844ef8 · b844ef8
1 parent 3983a98
commit b844ef8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
@@ -614,9 +614,9 @@ subroutine calc_sqg_struct(h, tv, G, GV, US, CS, dt, MEKE)
     CS%sqg_struct(i,j,k) = CS%sqg_struct(i,j,k-1)*exp(-CS%sqg_expo*(dzc/Le(i,j)))
   enddo ; enddo ; enddo
 
-  if (CS%debug) then
-    call hchksum(CS%sqg_struct, 'sqg_struct', G%HI)
-  endif
+!  if (CS%debug) then
+!    call hchksum(CS%sqg_struct, 'sqg_struct', G%HI)
+!  endif
 
 
   if (query_averaging_enabled(CS%diag)) then