Juan 15/06/2023:ZSOLVER/get_halo.f90, For gfortran+openacc, allocatable array...

Juan 15/06/2023:ZSOLVER/get_halo.f90, For gfortran+openacc, allocatable array not allowed in Gpu direct/host_data use_device() => TEMPORARY deactivate #define MNH_GPUDIRECT

src/ZSOLVER/get_halo.f90

@@ -430,7 +430,7 @@ END MODULE MODD_HALO_D
 !     #########################
       SUBROUTINE GET_HALO_D(PSRC,HDIR,HNAME)
 !     #########################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 
@@ -473,7 +473,7 @@ SUBROUTINE GET_HALO_START_D(PSRC,KNB_REQ,KREQ,&
      KIIB,KIIE,KIJB,KIJE,KIIU,KIJU,KIKU,KIHALO_1,&
      HDIR)
 !     #########################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 
@@ -706,7 +706,7 @@ SUBROUTINE GET_HALO_STOP_D(PSRC,KNB_REQ,KREQ,&
      KIIB,KIIE,KIJB,KIJE,KIIU,KIJU,KIKU,&
      HDIR)
 !     #########################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 
@@ -826,7 +826,7 @@ END SUBROUTINE GET_HALO_STOP_D
 !     ########################################
       SUBROUTINE GET_HALO_DD(PSRC, HDIR, HNAME)
 !     ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 USE MODE_ll
@@ -1110,7 +1110,7 @@ END SUBROUTINE GET_HALO_DD
 !     ########################################
       SUBROUTINE GET_2D_HALO_DD(PSRC, HDIR, HNAME)
 !     ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 USE MODE_ll
@@ -1395,7 +1395,7 @@ END SUBROUTINE GET_2D_HALO_DD
 !     ########################################
       SUBROUTINE GET_HALO_DDC(PSRC, HDIR, HNAME)
 !     ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 USE MODE_ll
@@ -1710,7 +1710,7 @@ END SUBROUTINE GET_HALO_DDC
 !     ########################################
       SUBROUTINE GET_2D_HALO_DDC(PSRC, HDIR, HNAME)
 !     ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 USE MODE_ll
@@ -2025,7 +2025,7 @@ END SUBROUTINE GET_2D_HALO_DDC
 !     ########################################
       SUBROUTINE GET_HALO2_DD(PSRC, TP_PSRC_HALO2_ll, HNAME)
 !     ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
 !
 USE MODD_HALO_D
 USE MODE_ll
@@ -2304,7 +2304,7 @@ END SUBROUTINE GET_HALO2_DD
 !     ########################################
 SUBROUTINE GET_HALO2_DF(PSRC, TP_PSRC_HALO2F_ll, HNAME)
 !     ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
   !
 USE MODD_HALO_D  
 USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll