diff --git a/src/MNH/advection_uvw.f90 b/src/MNH/advection_uvw.f90 index f80649a884068e94d9480a2af0b4de1536482773..c8ad50efa2ae2acceb589a0cbdae1969e6294627 100644 --- a/src/MNH/advection_uvw.f90 +++ b/src/MNH/advection_uvw.f90 @@ -435,7 +435,6 @@ DO JSPL=1,ISPLIT ZRUS_OTHER, ZRVS_OTHER, ZRWS_OTHER ) ! ! Tendencies on wind -!$acc update device(ZRUS_ADV,ZRVS_ADV,ZRWS_ADV) !$acc kernels !$mnh_do_concurrent(JI=1:IIU,JJ=1:IJU,JK=1:IKU ) PRUS(JI,JJ,JK) = PRUS(JI,JJ,JK) + ZRUS_ADV(JI,JJ,JK) / ISPLIT diff --git a/src/MNH/advecuvw_rk.f90 b/src/MNH/advecuvw_rk.f90 index 5119193677bf1ee85d79fbecc03c837818394865..c3de8116ba91413cbccb22c05fe4ad0a4e9d1415 100644 --- a/src/MNH/advecuvw_rk.f90 +++ b/src/MNH/advecuvw_rk.f90 @@ -624,7 +624,6 @@ RKLOOP: DO JS = 1, ISPL ! CALL CLEANLIST_ll(TZFIELDMT_ll) CALL DEL_HALO2_ll(TZHALO2MT_ll) -!$acc update self(PRUS_ADV,PRVS_ADV,PRWS_ADV) !------------------------------------------------------------------------------- !$acc end data