Skip to content
Snippets Groups Projects
Commit 76bedd0a authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 27/07/2021: fix: small bug if no OPENACC

parent 01163e87
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/mode_prandtl.f90
+ 1
− 1
View file @ 76bedd0a
...@@ -599,7 +599,7 @@ IKB = 1+JPVEXT_TURB ...@@ -599,7 +599,7 @@ IKB = 1+JPVEXT_TURB
IKE = SIZE(PD,3)-JPVEXT_TURB IKE = SIZE(PD,3)-JPVEXT_TURB
#ifndef MNH_OPENACC #ifndef MNH_OPENACC
M3_WTH_W2TH(:,:,:) = XCSHF*PKEFF*1.5/MZM(PTKE) & PM3_WTH_W2TH(:,:,:) = XCSHF*PKEFF*1.5/MZM(PTKE) &
* (1. - 0.5*PREDR1*(1.+PREDR1)/PD ) / (1.+PREDTH1) * (1. - 0.5*PREDR1*(1.+PREDR1)/PD ) / (1.+PREDTH1)
#else #else
CALL MZM_DEVICE(PTKE,ZTMP1_DEVICE) CALL MZM_DEVICE(PTKE,ZTMP1_DEVICE)
......
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