Juan 11/04/2013: mirror XRHODJ modd_refn.f90

MNH/modd_refn.f90

@@ -68,7 +68,9 @@ REAL, DIMENSION(:,:,:), POINTER :: XRHODREF=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XTHVREF=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XRVREF=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XEXNREF=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XRHODJ=>NULL()
+!!$REAL, DIMENSION(:,:,:), POINTER :: XRHODJ=>NULL()
+REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET :: XRHODJ
+!$acc declare mirror (XRHODJ)
 REAL, POINTER :: XREFMASS=>NULL()
 REAL, POINTER :: XMASS_O_PHI0=>NULL()
 REAL, POINTER :: XLINMASS=>NULL()
@@ -90,7 +92,7 @@ XRHODREF=>REF_MODEL(KTO)%XRHODREF
 XTHVREF=>REF_MODEL(KTO)%XTHVREF
 XRVREF=>REF_MODEL(KTO)%XRVREF
 XEXNREF=>REF_MODEL(KTO)%XEXNREF
-XRHODJ=>REF_MODEL(KTO)%XRHODJ
+!!$XRHODJ=>REF_MODEL(KTO)%XRHODJ
 XREFMASS=>REF_MODEL(KTO)%XREFMASS
 XMASS_O_PHI0=>REF_MODEL(KTO)%XMASS_O_PHI0
 XLINMASS=>REF_MODEL(KTO)%XLINMASS