diff --git a/src/MNH/ice4_fast_rg.f90 b/src/MNH/ice4_fast_rg.f90 index 0e2e92debfab853e29a55eedf2dd64f94959d066..9156a05f0223ffb86824a3747842f66571983a51 100644 --- a/src/MNH/ice4_fast_rg.f90 +++ b/src/MNH/ice4_fast_rg.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -272,7 +272,7 @@ CALL MNH_MEM_GET( zrwetg_init, isize ) !$acc data create ( IGDRY ) & !$acc& present( I1, IVEC1, IVEC2, GDRY, ZDRY, ZDRYG, ZMASK, ZVEC1, ZVEC2, ZVEC3, ZZW, ZRDRYG_INIT, ZRWETG_INIT ) & -!$acc& copyin ( XRTMIN ) +!$acc& present( XRTMIN ) ! !* 6.1 rain contact freezing diff --git a/src/MNH/ice4_fast_rs.f90 b/src/MNH/ice4_fast_rs.f90 index 4fb4434d67b3fd23aada400b895ea39b0fbbc745..621ad61731ff9415073556c4946b0f873b541385 100644 --- a/src/MNH/ice4_fast_rs.f90 +++ b/src/MNH/ice4_fast_rs.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -234,7 +234,7 @@ CALL MNH_MEM_GET( zfreez_rate, ISIZE ) #endif ! !$acc data present( I1, IVEC1, IVEC2, GRIM, GACC, ZRIM, ZACC, ZMASK, ZVEC1, ZVEC2, ZVEC3, ZZW, ZZW2, ZZW6, ZFREEZ_RATE ) & -!$acc& copyin ( XRTMIN ) +!$acc& present( XRTMIN ) ! !* 5.0 maximum freezing rate diff --git a/src/MNH/ice4_sedimentation_split.f90 b/src/MNH/ice4_sedimentation_split.f90 index 255d6a6884e7ad396df21e9a2f39e88ab7cb68fb..c6c09affbec29fb50dafaf29292584689550fbae 100644 --- a/src/MNH/ice4_sedimentation_split.f90 +++ b/src/MNH/ice4_sedimentation_split.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -541,7 +541,7 @@ REAL, DIMENSION(:,:,:), POINTER, CONTIGUOUS :: ZWSED ! Sedimentation fluxes !$acc data present(PRHODREF,POORHODZ,PDZZ,PPABST,PTHT,PRXT,PRXS,PINPRX,PPRXS, & !$acc& PRAY,PLBC,PFSEDC,PCONC3D,PFPR) & -!$acc& copyin( XRTMIN ) +!$acc& present( XRTMIN ) IF (MPPDB_INITIALIZED) THEN !Check all IN arrays diff --git a/src/MNH/ice4_tendencies.f90 b/src/MNH/ice4_tendencies.f90 index 6593e4bc098f76b66311d0738603be3951058411..7d41eef25c0cf29d82ff09c16c28394cc98d70ad 100644 --- a/src/MNH/ice4_tendencies.f90 +++ b/src/MNH/ice4_tendencies.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -342,7 +342,7 @@ REAL, DIMENSION(:,:,:), POINTER, CONTIGUOUS :: ZRRT3D, ZRST3D, ZRGT3D, ZRHT3D !$acc& PRWETGH,PRWETGH_MR,PRGMLTR,PRCWETH,PRIWETH,PRSWETH,PRGWETH,PRRWETH, & !$acc& PRCDRYH,PRIDRYH,PRSDRYH,PRRDRYH,PRGDRYH,PRDRYHG,PRHMLTR,PRCBERI,PRS_TEND,PRG_TEND,PRH_TEND,PSSI, & !$acc& PA_TH,PA_RV,PA_RC,PA_RR,PA_RI,PA_RS,PA_RG,PA_RH,PB_TH,PB_RV,PB_RC,PB_RR,PB_RI,PB_RS,PB_RG,PB_RH, & -!$acc& PHLC_HCF,PHLC_LCF,PHLC_HRC,PHLC_LRC,PHLI_HCF,PHLI_LCF,PHLI_HRI,PHLI_LRI,PRAINFR) copyin(XRTMIN) +!$acc& PHLC_HCF,PHLC_LCF,PHLC_HRC,PHLC_LRC,PHLI_HCF,PHLI_LCF,PHLI_HRI,PHLI_LRI,PRAINFR, XRTMIN ) IF (MPPDB_INITIALIZED) THEN !Check all IN arrays diff --git a/src/MNH/rain_ice_sedimentation_split.f90 b/src/MNH/rain_ice_sedimentation_split.f90 index ab5091edf2024d16b7dc9987cf2564976042bb44..68c2ea95dd51c158d701d1ca4feecd07ac40dea5 100644 --- a/src/MNH/rain_ice_sedimentation_split.f90 +++ b/src/MNH/rain_ice_sedimentation_split.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1995-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2023 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -156,9 +156,11 @@ INTEGER :: IIU,IJU,IKU, IIJKU ! ! OUT variables ! -!$acc & PINPRR, PINPRS, PINPRG, PINPRR3D, PINPRH, PFPR ) +!$acc & PINPRR, PINPRS, PINPRG, PINPRR3D, PINPRH, PFPR ) & -! !$acc & copyin( XFSEDC, XLBC, XLBEXC, XRTMIN ) +!$acc present( XRTMIN ) + +! !$acc & copyin( XFSEDC, XLBC, XLBEXC ) IF (MPPDB_INITIALIZED) THEN !Check all IN arrays diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90 index 7af6ad2666f16e0712e397bd830b908f7dd711ad..2519f66d3806253ca51f69107499e96732bc81cf 100644 --- a/src/MNH/resolved_cloud.f90 +++ b/src/MNH/resolved_cloud.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -545,9 +545,9 @@ GCLOUD_C2R2_CLOUD_C3R5_CLOUD_KHKO_CLOUD_LIMA = & ! ! OUT variables ! -!$acc & PSRCS, PRAINFR ) +!$acc & PSRCS, PRAINFR ) & -! !$acc & copyin( XRTMIN ) +!$acc & present( XRTMIN ) !* 1. PRELIMINARY COMPUTATIONS ! ------------------------