Juan 9/04/2013 : change type of XRT for mirror on GPU

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

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