diff --git a/MNH/deallocate_model1.f90 b/MNH/deallocate_model1.f90
index 7e0fb2a8633e6e95a0a385435837e792f8db3f09..9872cb98d57513d6a3b722bf170b864c7c29deb7 100644
--- a/MNH/deallocate_model1.f90
+++ b/MNH/deallocate_model1.f90
@@ -112,7 +112,8 @@ IF ( KCALL==3 ) THEN
   IF (ASSOCIATED(XUT)) DEALLOCATE(XUT)
   IF (ASSOCIATED(XVT)) DEALLOCATE(XVT)
   IF (ASSOCIATED(XWT)) DEALLOCATE(XWT)
-  IF (ASSOCIATED(XTHT)) DEALLOCATE(XTHT)
+  !!$IF (ASSOCIATED(XTHT)) DEALLOCATE(XTHT)
+  IF (ALLOCATED(XTHT)) DEALLOCATE(XTHT)
 END IF
 IF ( KCALL==1 ) THEN
   DEALLOCATE(XRUS)
diff --git a/MNH/modd_fieldn.f90 b/MNH/modd_fieldn.f90
index e992a91bc21384ebd0d805261daae5f9a8d18059..ae02726867d0adbe37ebe5931e1a061d0777d6eb 100644
--- a/MNH/modd_fieldn.f90
+++ b/MNH/modd_fieldn.f90
@@ -104,7 +104,9 @@ REAL, DIMENSION(:,:,:), POINTER :: XUM=>NULL(),XVM=>NULL(),XWM=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XUT=>NULL(),XVT=>NULL(),XWT=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XRUS=>NULL(),XRVS=>NULL(),XRWS=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XTHM=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XTHT=>NULL()
+!!$REAL, DIMENSION(:,:,:), POINTER :: XTHT=>NULL()
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: XTHT
+!$acc declare mirror (XTHT)
 REAL, DIMENSION(:,:,:), POINTER :: XRTHS=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XTKEM=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XTKET=>NULL()
@@ -144,7 +146,7 @@ FIELD_MODEL(KFROM)%XRUS=>XRUS
 FIELD_MODEL(KFROM)%XRVS=>XRVS
 FIELD_MODEL(KFROM)%XRWS=>XRWS
 FIELD_MODEL(KFROM)%XTHM=>XTHM
-FIELD_MODEL(KFROM)%XTHT=>XTHT
+!!$FIELD_MODEL(KFROM)%XTHT=>XTHT
 FIELD_MODEL(KFROM)%XRTHS=>XRTHS
 FIELD_MODEL(KFROM)%XTKEM=>XTKEM
 FIELD_MODEL(KFROM)%XTKET=>XTKET
@@ -175,7 +177,7 @@ XRUS=>FIELD_MODEL(KTO)%XRUS
 XRVS=>FIELD_MODEL(KTO)%XRVS
 XRWS=>FIELD_MODEL(KTO)%XRWS
 XTHM=>FIELD_MODEL(KTO)%XTHM
-XTHT=>FIELD_MODEL(KTO)%XTHT
+!!$XTHT=>FIELD_MODEL(KTO)%XTHT
 XRTHS=>FIELD_MODEL(KTO)%XRTHS
 XTKEM=>FIELD_MODEL(KTO)%XTKEM
 XTKET=>FIELD_MODEL(KTO)%XTKET