diff --git a/src/MNH/mode_prandtl.f90 b/src/MNH/mode_prandtl.f90
index ca0c984761277d7e909fa2b59f801456c161961b..04f03f419c4fd4531ee8c03d1cda74ae619591bf 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)