diff --git a/MNH/modd_refn.f90 b/MNH/modd_refn.f90 index 458d82018f02b9233c49ff1ec01ac2440ae73b32..5527f5b4a4f1171fc1f009df003708e818a17a1a 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