We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 42d085f commit 0f12823Copy full SHA for 0f12823
1 file changed
src/physics/cam/clubb_mf.F90
@@ -293,7 +293,6 @@ subroutine integrate_mf( nzm, nzt, dzt, zm, p_zm, iexner_zm,
293
294
! get entrainment coefficient, dz/L0
295
do i=1,clubb_mf_nup
296
- !do k=1,nzt
297
do k=nzt,1,-1
298
entf(k,i) = dzt(k) / clubb_mf_L0
299
enddo
0 commit comments