Juan 23/11/2013: metric on OpenAcc for contrav

MNH/modd_metricsn.f90

@@ -47,8 +47,10 @@ END TYPE METRICS_t
 
 TYPE(METRICS_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: METRICS_MODEL
 
-REAL, DIMENSION(:,:,:), POINTER :: XDXX=>NULL(),XDZX=>NULL(), &
-                                  XDYY=>NULL(),XDZY=>NULL(),XDZZ=>NULL()
+!REAL, DIMENSION(:,:,:), POINTER :: XDXX=>NULL(),XDZX=>NULL(), &
+!                                  XDYY=>NULL(),XDZY=>NULL(),XDZZ=>NULL()
+REAL, DIMENSION(:,:,:), ALLOCATABLE , TARGET :: XDXX,XDYY,XDZZ,XDZX,XDZY
+!$acc declare mirror(XDXX,XDYY,XDZZ,XDZX,XDZY)
 
 CONTAINS
 
@@ -63,11 +65,11 @@ METRICS_MODEL(KFROM)%XDZY=>XDZY
 METRICS_MODEL(KFROM)%XDZZ=>XDZZ
 !
 ! Current model is set to model KTO
-XDXX=>METRICS_MODEL(KTO)%XDXX
-XDZX=>METRICS_MODEL(KTO)%XDZX
-XDYY=>METRICS_MODEL(KTO)%XDYY
-XDZY=>METRICS_MODEL(KTO)%XDZY
-XDZZ=>METRICS_MODEL(KTO)%XDZZ
+!XDXX=>METRICS_MODEL(KTO)%XDXX
+!XDZX=>METRICS_MODEL(KTO)%XDZX
+!XDYY=>METRICS_MODEL(KTO)%XDYY
+!XDZY=>METRICS_MODEL(KTO)%XDZY
+!XDZZ=>METRICS_MODEL(KTO)%XDZZ
 
 END SUBROUTINE METRICS_GOTO_MODEL
 

MNH/update_metrics.f90

@@ -129,5 +129,6 @@ IF ( HLBCY(1) /= "CYCL" .AND. LSOUTH_ll()) THEN
     PDZY(JI,IJB-1,:) = PDZY(JI,IJB,:)
   END DO
 END IF
+!$acc update device (PDXX,PDYY,PDZZ,PDZX,PDZY)
 !-----------------------------------------------------------------------------
 END SUBROUTINE UPDATE_METRICS