Skip to content

Commit

Permalink
remove debug statements
Browse files Browse the repository at this point in the history
  • Loading branch information
pjpegion authored and kshedstrom committed Jan 28, 2022
1 parent e2431bc commit a67bc78
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 @@ -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.
Expand Down

0 comments on commit a67bc78

Please sign in to comment.