From c0ce6258ccef18f6feac80287707e7dce9c4485c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 7 Jul 2022 17:47:52 +0200
Subject: [PATCH] Quentin 07/07/2022: remove debug prints
---
src/common/turb/mode_tke_eps_sources.F90 | 3 ---
1 file changed, 3 deletions(-)
diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90
index ed2d29405..d128919dd 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
--
GitLab