Skip to content

Commit b844ef8

Browse files
committed
Removed chksum test for sqg_struct
1 parent 3983a98 commit b844ef8

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -614,9 +614,9 @@ subroutine calc_sqg_struct(h, tv, G, GV, US, CS, dt, MEKE)
614614
CS%sqg_struct(i,j,k) = CS%sqg_struct(i,j,k-1)*exp(-CS%sqg_expo*(dzc/Le(i,j)))
615615
enddo ; enddo ; enddo
616616

617-
if (CS%debug) then
618-
call hchksum(CS%sqg_struct, 'sqg_struct', G%HI)
619-
endif
617+
! if (CS%debug) then
618+
! call hchksum(CS%sqg_struct, 'sqg_struct', G%HI)
619+
! endif
620620

621621

622622
if (query_averaging_enabled(CS%diag)) then

0 commit comments

Comments
 (0)