Skip to content
Snippets Groups Projects
Commit c0ce6258 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 07/07/2022: remove debug prints

parent 58fdebf3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/turb/mode_tke_eps_sources.F90
+ 0
− 3
View file @ c0ce6258
...@@ -369,9 +369,6 @@ IF ( OLES_CALL .OR. & ...@@ -369,9 +369,6 @@ IF ( OLES_CALL .OR. &
! !
IF (OLES_CALL) THEN IF (OLES_CALL) THEN
CALL MZF_PHY(D,ZFLX,ZMWORK1) 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,ZMWORK1, X_LES_SUBGRID_WTke )
CALL LES_MEAN_SUBGRID_PHY(D, -ZTR, X_LES_SUBGRID_ddz_WTke ) CALL LES_MEAN_SUBGRID_PHY(D, -ZTR, X_LES_SUBGRID_ddz_WTke )
END IF END IF
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme