From b844ef85cb04f0c2b8d1ae97c8db86e5dedf132a Mon Sep 17 00:00:00 2001 From: Wenda Zhang Date: Fri, 11 Oct 2024 14:27:03 -0400 Subject: [PATCH] Removed chksum test for sqg_struct --- src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 index bdd540dbbf..844b16e733 100644 --- 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