diff --git a/src/ZSOLVER/get_halo.f90 b/src/ZSOLVER/get_halo.f90 index e29e295d745ac2ecb814f50c7156920f03817339..44245ae691798ddc0ccdbf5f7b38350bd9ff4373 100644 --- a/src/ZSOLVER/get_halo.f90 +++ b/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