Skip to content

Commit

Permalink
remove debug statements
Browse files Browse the repository at this point in the history
  • Loading branch information
pjpegion committed Feb 26, 2021
1 parent a4c0411 commit 565e0bb
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/parameterizations/vertical/MOM_energetic_PBL.F90
Original file line number Diff line number Diff line change
Expand Up @@ -985,6 +985,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.
Expand Down

0 comments on commit 565e0bb

Please sign in to comment.