Juan 19/06/2020:mode_prandtl.f90 , Bug (ifort identifaction) replace...

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

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