diff --git a/src/MNH/advec_weno_k_2_aux.f90 b/src/MNH/advec_weno_k_2_aux.f90 index ecd24a10254c5f91c8b6003ab1daaf08bb148ce3..8e4ea705428e1d6dc08d03319bdcd14367529235 100644 --- a/src/MNH/advec_weno_k_2_aux.f90 +++ b/src/MNH/advec_weno_k_2_aux.f90 @@ -635,9 +635,15 @@ END SELECT ! PR = PR * PRUCT !$acc end kernels -!$acc update self(PR) +! +#ifndef _OPENACC CALL GET_HALO(PR) -!$acc update device(PR) +#else +!!$!$acc update self(PR) +CALL GET_HALO_D(PR) +!!$!$acc update device(PR) +#endif +CALL MPPDB_CHECK3DM("advec_weno_k_2_ux::PR",PRECISION,PR) ! END SUBROUTINE ADVEC_WENO_K_2_UX ! @@ -1009,9 +1015,14 @@ END SELECT ! PR = PR * PRUCT !$acc end kernels -!$acc update self(PR) +! +#ifndef _OPENACC CALL GET_HALO(PR) -!$acc update device(PR) +#else +!!$!$acc update self(PR) +CALL GET_HALO_D(PR) +!!$!$acc update device(PR) +#endif ! END SUBROUTINE ADVEC_WENO_K_2_MX ! @@ -1382,9 +1393,14 @@ END SELECT ! PR = PR * PRVCT !$acc end kernels -!$acc update self(PR) +! +#ifndef _OPENACC CALL GET_HALO(PR) -!$acc update device(PR) +#else +!!$!$acc update self(PR) +CALL GET_HALO_D(PR) +!!$!$acc update device(PR) +#endif ! END SUBROUTINE ADVEC_WENO_K_2_MY !------------------------------------------------------------------------------- @@ -1748,9 +1764,14 @@ END SELECT ! PR = PR * PRVCT !$acc end kernels -!$acc update self(PR) +! +#ifndef _OPENACC CALL GET_HALO(PR) -!$acc update device(PR) +#else +!!$!$acc update self(PR) +CALL GET_HALO_D(PR) +!!$!$acc update device(PR) +#endif ! END SUBROUTINE ADVEC_WENO_K_2_VY ! @@ -1934,9 +1955,14 @@ PR(:,:,IT+1) = -999. ! PR = PR * PRWCT !$acc end kernels -!$acc update self(PR) +! +#ifndef _OPENACC CALL GET_HALO(PR) -!$acc update device(PR) +#else +!!$!$acc update self(PR) +CALL GET_HALO_D(PR) +!!$!$acc update device(PR) +#endif ! #ifndef _OPENACC END FUNCTION WENO_K_2_WZ @@ -2122,9 +2148,14 @@ PR(:,:,IT+1) = PSRC(:,:,IT) * (0.5+SIGN(0.5,PRWCT(:,:,IT+1) )) + & ! PR = PR * PRWCT !$acc end kernels -!$acc update self(PR) +! +#ifndef _OPENACC CALL GET_HALO(PR) -!$acc update device(PR) +#else +!!$!$acc update self(PR) +CALL GET_HALO_D(PR) +!!$!$acc update device(PR) +#endif ! #ifndef _OPENACC END FUNCTION WENO_K_2_MZ