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

Quentin 07/03/2022: bugfix minor for use of SMOOTH_TURB with CSTURB

parent fe25663e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/turb/mode_prandtl.F90
+ 1
− 1
View file @ 129e8f0c
...@@ -754,7 +754,7 @@ END IF ...@@ -754,7 +754,7 @@ END IF
#ifdef REPRO48 #ifdef REPRO48
#else #else
!* smoothing !* smoothing
CALL SMOOTH_TURB_FUNCT(CSTURB%PPHI3,PPHI3,D_PHI3DTDZ_O_DDTDZ) CALL SMOOTH_TURB_FUNCT(CSTURB,PPHI3,PPHI3,D_PHI3DTDZ_O_DDTDZ)
#endif #endif
! !
D_PHI3DTDZ_O_DDTDZ(:,:,IKB-1)=D_PHI3DTDZ_O_DDTDZ(:,:,IKB) D_PHI3DTDZ_O_DDTDZ(:,:,IKB-1)=D_PHI3DTDZ_O_DDTDZ(:,:,IKB)
......
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