Philippe 04/04/2017: OpenACC: replaced declare create by data enter create...

Philippe 04/04/2017: OpenACC: replaced declare create by data enter create (workaround for PGI bug on OpenPOWER)

src/MNH/mode_mnh_zwork.f90

@@ -16,10 +16,10 @@ MODULE MODE_MNH_ZWORK
   !
   REAL, SAVE, ALLOCATABLE , DIMENSION(:,:)   :: ZPSRC_HALO2_WEST
   REAL, SAVE, ALLOCATABLE , DIMENSION(:,:)   :: ZPSRC_HALO2_SOUTH
-!$acc declare create(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH)
+!acc declare create(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH)
 
   REAL, SAVE, ALLOCATABLE , DIMENSION(:,:,:) :: ZUNIT3D
-!$acc declare device_resident(ZUNIT3D)
+!acc declare device_resident(ZUNIT3D)
 
   INTEGER                                   :: JPMAX_T3D = 40
   INTEGER , ALLOCATABLE, DIMENSION (:)      :: NT3D_POOL
@@ -28,7 +28,7 @@ MODULE MODE_MNH_ZWORK
   !REAL    , POINTER    , DIMENSION(:,:,:,:)          :: ZT3D
   REAL,SAVE    , ALLOCATABLE, DIMENSION(:,:,:,:)          :: ZT3D
   ! acc declare create(ZT3D_A1,ZT3D_A2,ZT3D_A3,ZT3D_A4)
-!$acc declare device_resident(ZT3D)
+!acc declare device_resident(ZT3D)
   TYPE TMODEL
       REAL    , POINTER, DIMENSION(:,:,:,:) :: X
   END TYPE TMODEL
@@ -81,16 +81,16 @@ CONTAINS
        ! 
        ALLOCATE (ZPSRC_HALO2_WEST(IJU,IKU)) 
        ALLOCATE (ZPSRC_HALO2_SOUTH(IIU,IKU)) 
-       ! acc enter data create(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH)
+       !$acc enter data create(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH)
 
        ALLOCATE (ZUNIT3D(IIU,IJU,IKU))
-       ! acc enter data create(ZUNIT3D)
+       !$acc enter data create(ZUNIT3D)
 
        !ALLOCATE (ZT3D_A1(IIU,IJU,IKU,JPMAX_T3D))
        !MODEL(1)%X => ZT3D_A1
        !ZT3D => MODEL(1)%X
        ALLOCATE (ZT3D(IIU,IJU,IKU,JPMAX_T3D))
-       ! acc enter data create(ZT3D)
+       !$acc enter data create(ZT3D)
 
        ALLOCATE (NT3D_POOL(JPMAX_T3D))
        NT3D_TOP = 0