From 18543cfa5590b0d63038e534d623366ef9095543 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 19 Jun 2020 12:05:33 +0200
Subject: [PATCH] Juan 19/06/2020:mode_prandtl.f90 , Bug (ifort identifaction)
 replace routine-name->array-name : M3_WTH_W2TH(:,:,:) -> PM3_WTH_W2TH(:,:,:)

---
 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