From 76bedd0a2ac1c88eb691ca05b7db14e35e438420 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 27 Jul 2021 15:04:08 +0200
Subject: [PATCH] Philippe 27/07/2021: fix: small bug if no OPENACC

---
 src/MNH/mode_prandtl.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/mode_prandtl.f90 b/src/MNH/mode_prandtl.f90
index ca0c98476..04f03f419 100644
--- a/src/MNH/mode_prandtl.f90
+++ b/src/MNH/mode_prandtl.f90
@@ -599,7 +599,7 @@ IKB = 1+JPVEXT_TURB
 IKE = SIZE(PD,3)-JPVEXT_TURB
 
 #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)
 #else
 CALL MZM_DEVICE(PTKE,ZTMP1_DEVICE)
-- 
GitLab