Juan 15/06/2020:replace modd.. declare create -> enter data create in ini_modeln

src/MNH/ini_modeln.f90

@@ -900,6 +900,7 @@ ALLOCATE(XDYY(IIU,IJU,IKU))
 ALLOCATE(XDZX(IIU,IJU,IKU))
 ALLOCATE(XDZY(IIU,IJU,IKU))
 ALLOCATE(XDZZ(IIU,IJU,IKU))
+!$acc enter data create(XDXX,XDYY,XDZZ,XDZX,XDZY)
 !
 !*       3.3   Modules MODD_REF and  MODD_REF_n
 !
@@ -912,6 +913,7 @@ ALLOCATE(XRHODREF(IIU,IJU,IKU))
 ALLOCATE(XTHVREF(IIU,IJU,IKU))
 ALLOCATE(XEXNREF(IIU,IJU,IKU))
 ALLOCATE(XRHODJ(IIU,IJU,IKU))
+!$acc enter data create(XRHODJ)
 IF (CEQNSYS=='DUR' .AND. LUSERV) THEN
   ALLOCATE(XRVREF(IIU,IJU,IKU))
 ELSE

src/MNH/modd_metricsn.f90

@@ -48,7 +48,7 @@ TYPE(METRICS_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: METRICS_MODEL
 
 REAL, DIMENSION(:,:,:), POINTER, contiguous :: XDXX=>NULL(),XDZX=>NULL(), &
                                   XDYY=>NULL(),XDZY=>NULL(),XDZZ=>NULL()
-!$acc declare create(XDXX,XDYY,XDZZ,XDZX,XDZY)
+! acc declare create(XDXX,XDYY,XDZZ,XDZX,XDZY)
 
 CONTAINS
 

src/MNH/modd_refn.f90

@@ -69,7 +69,7 @@ REAL, DIMENSION(:,:,:), POINTER, contiguous :: XTHVREF=>NULL()
 REAL, DIMENSION(:,:,:), POINTER :: XRVREF=>NULL()
 REAL, DIMENSION(:,:,:), POINTER, contiguous :: XEXNREF=>NULL()
 REAL, DIMENSION(:,:,:), POINTER, contiguous :: XRHODJ=>NULL()
-!$acc declare create (XRHODJ)
+! acc declare create (XRHODJ)
 REAL, POINTER :: XREFMASS=>NULL()
 REAL, POINTER :: XMASS_O_PHI0=>NULL()
 REAL, POINTER :: XLINMASS=>NULL()