diff --git a/src/ZSOLVER/turb_hor_dyn_corr.f90 b/src/ZSOLVER/turb_hor_dyn_corr.f90 index fc08aca99d2b770a31742beef5c84d2c5c7d2693..b59a3dfaa26314a1a3360157b626ff755290bc70 100644 --- a/src/ZSOLVER/turb_hor_dyn_corr.f90 +++ b/src/ZSOLVER/turb_hor_dyn_corr.f90 @@ -869,9 +869,10 @@ ZFLX(:,:,IKB-1) = 2. * ZFLX(:,:,IKB-1) - ZFLX(:,:,IKB) ! ! !$acc wait(3) ! !$acc wait(3) -!$acc update self(ZFLX) -CALL UPDATE_HALO_ll(TZFIELDS_ll, IINFO_ll) -!$acc update device(ZFLX) async(10) +!!$!$acc update self(ZFLX) +!!$CALL UPDATE_HALO_ll(TZFIELDS_ll, IINFO_ll) +!!$!$acc update device(ZFLX) async(10) +CALL GET_HALO_D(ZFLX) ! IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN ! stores <V V>