We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent a4c0411 commit 565e0bbCopy full SHA for 565e0bb
1 file changed
src/parameterizations/vertical/MOM_energetic_PBL.F90
@@ -985,6 +985,7 @@ subroutine ePBL_column(h, u, v, T0, S0, dSV_dT, dSV_dS, TKE_forcing, B_flux, abs
985
else
986
mech_TKE = mech_TKE * exp_kh
987
endif
988
+ !if ( i .eq. 10 .and. j .eq. 10 .and. k .eq. nz) print*,'mech TKE', mech_TKE
989
990
! Accumulate any convectively released potential energy to contribute
991
! to wstar and to drive penetrating convection.
0 commit comments