From 0932b9ec13643949bd217e4c034166ef06e806fd Mon Sep 17 00:00:00 2001 From: pjpegion Date: Fri, 26 Feb 2021 17:43:50 +0000 Subject: [PATCH] remove debug statements --- src/parameterizations/vertical/MOM_energetic_PBL.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/parameterizations/vertical/MOM_energetic_PBL.F90 b/src/parameterizations/vertical/MOM_energetic_PBL.F90 index 8a708e4861..7cf8d48ae0 100644 --- a/src/parameterizations/vertical/MOM_energetic_PBL.F90 +++ b/src/parameterizations/vertical/MOM_energetic_PBL.F90 @@ -945,6 +945,7 @@ subroutine ePBL_column(h, u, v, T0, S0, dSV_dT, dSV_dS, TKE_forcing, B_flux, abs else mech_TKE = mech_TKE * exp_kh endif + !if ( i .eq. 10 .and. j .eq. 10 .and. k .eq. nz) print*,'mech TKE', mech_TKE ! Accumulate any convectively released potential energy to contribute ! to wstar and to drive penetrating convection.