Juan 10/04/2013: put XRT mirror for ppm_met in advection.f90

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)

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