diff --git a/MNH/deallocate_model1.f90 b/MNH/deallocate_model1.f90
index 8f0fd1049ab1b2753ab195110049427c9361a974..7e0fb2a8633e6e95a0a385435837e792f8db3f09 100644
--- a/MNH/deallocate_model1.f90
+++ b/MNH/deallocate_model1.f90
@@ -134,7 +134,8 @@ IF ( KCALL==3 ) THEN
   IF (ASSOCIATED(XPABST)) DEALLOCATE(XPABST)
 !
   DEALLOCATE(XRM)
-  IF (ASSOCIATED(XRT)) DEALLOCATE(XRT)
+!!$  IF (ASSOCIATED(XRT)) DEALLOCATE(XRT)
+  IF (ALLOCATED(XRT)) DEALLOCATE(XRT)
 END IF
 !
 IF ( KCALL==1 ) THEN
diff --git a/MNH/modd_fieldn.f90 b/MNH/modd_fieldn.f90
index 70a11ca24cde996356b5ba74c290c548acc07b29..e992a91bc21384ebd0d805261daae5f9a8d18059 100644
--- a/MNH/modd_fieldn.f90
+++ b/MNH/modd_fieldn.f90
@@ -112,7 +112,9 @@ REAL, DIMENSION(:,:,:), POINTER :: XRTKES=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XPABSM=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XPABST=>NULL()
 REAL, DIMENSION(:,:,:,:), POINTER :: XRM=>NULL()
-REAL, DIMENSION(:,:,:,:), POINTER :: XRT=>NULL()
+!!$REAL, DIMENSION(:,:,:,:), POINTER :: XRT=>NULL()
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: XRT
+!$acc declare mirror (XRT)
 REAL, DIMENSION(:,:,:,:), POINTER :: XRRS=>NULL()
 REAL, DIMENSION(:,:,:,:), POINTER :: XSVM=>NULL()
 REAL, DIMENSION(:,:,:,:), POINTER :: XSVT=>NULL()
@@ -150,7 +152,7 @@ FIELD_MODEL(KFROM)%XRTKES=>XRTKES
 FIELD_MODEL(KFROM)%XPABSM=>XPABSM
 FIELD_MODEL(KFROM)%XPABST=>XPABST
 FIELD_MODEL(KFROM)%XRM=>XRM
-FIELD_MODEL(KFROM)%XRT=>XRT
+!!$FIELD_MODEL(KFROM)%XRT=>XRT
 FIELD_MODEL(KFROM)%XRRS=>XRRS
 FIELD_MODEL(KFROM)%XSVM=>XSVM
 FIELD_MODEL(KFROM)%XSVT=>XSVT
@@ -181,7 +183,7 @@ XRTKES=>FIELD_MODEL(KTO)%XRTKES
 XPABSM=>FIELD_MODEL(KTO)%XPABSM
 XPABST=>FIELD_MODEL(KTO)%XPABST
 XRM=>FIELD_MODEL(KTO)%XRM
-XRT=>FIELD_MODEL(KTO)%XRT
+!!$XRT=>FIELD_MODEL(KTO)%XRT
 XRRS=>FIELD_MODEL(KTO)%XRRS
 XSVM=>FIELD_MODEL(KTO)%XSVM
 XSVT=>FIELD_MODEL(KTO)%XSVT