diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90 index ed2d2940572a0e0786a770c3053f986980e256bd..d128919ddfaaf79965c97dab65f75856f5fa8e9e 100644 --- a/src/common/turb/mode_tke_eps_sources.F90 +++ b/src/common/turb/mode_tke_eps_sources.F90 @@ -369,9 +369,6 @@ IF ( OLES_CALL .OR. & ! IF (OLES_CALL) THEN CALL MZF_PHY(D,ZFLX,ZMWORK1) - print*,"CALL LES_MEAN_SUBGRID_PHY" - print*," SHAPE(ZMWORK1) = ",SHAPE(ZMWORK1) - print*," SHAPE(X_LES_SUBGRID_WTke) = ",SHAPE(X_LES_SUBGRID_WTke) CALL LES_MEAN_SUBGRID_PHY(D,ZMWORK1, X_LES_SUBGRID_WTke ) CALL LES_MEAN_SUBGRID_PHY(D, -ZTR, X_LES_SUBGRID_ddz_WTke ) END IF