From efaa70ecc40a4848e5949e1f6f79f58d0fed9a90 Mon Sep 17 00:00:00 2001 From: ESCOBAR Juan <escj@nuwa.aerologie.net> Date: Thu, 11 Apr 2013 15:14:01 +0200 Subject: [PATCH] Juan 11/04/2013: mirror XRHODJ modd_refn.f90 --- MNH/modd_refn.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/MNH/modd_refn.f90 b/MNH/modd_refn.f90 index 458d82018..5527f5b4a 100644 --- a/MNH/modd_refn.f90 +++ b/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 -- GitLab