diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90 index dd01a9a6dde07b6f18f937adde92f0baa5bd3d01..29ac9391eca93ea12df85436603ea27fab7fce30 100644 --- a/src/MNH/tke_eps_sources.f90 +++ b/src/MNH/tke_eps_sources.f90 @@ -545,7 +545,7 @@ end if if (lbudget_tke) then !Store the previous source terms in prtkes before initializing the next one - !$acc kernels present(ZRES) + !$acc kernels present_cr(ZRES) PRTKES(:,:,:) = PRTKES(:,:,:) + PRHODJ(:,:,:) * & ( PDP(:,:,:) + PTP(:,:,:) & - XCED * SQRT(PTKEM(:,:,:)) / PLEPS(:,:,:) * ( PEXPL*PTKEM(:,:,:) + PIMPL*ZRES(:,:,:) ) ) diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90 index 6a1d591af9a71627d71efac6804875c58109c8eb..8ac7c1bb954f625b6b2eda2be6b94017c308c4d8 100644 --- a/src/MNH/turb.f90 +++ b/src/MNH/turb.f90 @@ -1863,7 +1863,7 @@ CALL MNH_MEM_GET( zdrvsatdt, size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) ) END DO #endif !$acc end kernels -!$acc kernels present(ZRVSAT,ZDRVSATDT) +!$acc kernels present_cr(ZRVSAT,ZDRVSATDT) ! !* 1.3 saturation mixing ratio at t ! diff --git a/src/ZSOLVER/turb.f90 b/src/ZSOLVER/turb.f90 index b43950cf30b810cf4970fb83886cdc71256f95d4..30c95d75eb99c3235eef0d5e00beccdd907d07ad 100644 --- a/src/ZSOLVER/turb.f90 +++ b/src/ZSOLVER/turb.f90 @@ -1853,7 +1853,7 @@ CALL MNH_MEM_GET( zrvsat , size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) ) CALL MNH_MEM_GET( zdrvsatdt, size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) ) #endif -!$acc data present( zrvsat, zdrvsatdt ) +!$acc data present_cr( zrvsat, zdrvsatdt ) ZEPS = XMV / XMD !