Skip to content

Commit 565e0bb

Browse files
committed
remove debug statements
1 parent a4c0411 commit 565e0bb

1 file changed

Lines changed: 1 addition & 0 deletions

File tree

src/parameterizations/vertical/MOM_energetic_PBL.F90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -985,6 +985,7 @@ subroutine ePBL_column(h, u, v, T0, S0, dSV_dT, dSV_dS, TKE_forcing, B_flux, abs
985985
else
986986
mech_TKE = mech_TKE * exp_kh
987987
endif
988+
!if ( i .eq. 10 .and. j .eq. 10 .and. k .eq. nz) print*,'mech TKE', mech_TKE
988989

989990
! Accumulate any convectively released potential energy to contribute
990991
! to wstar and to drive penetrating convection.

0 commit comments

Comments
 (0)