Juan 01/02/2023:ini_rain_ice.f90; OpenACC optimization , put XRTMIN on device at init

37021d21 · ESCOBAR MUNOZ Juan · 3a58e17a · 37021d21
Commit 37021d21 authored 2 years ago by ESCOBAR MUNOZ Juan
--- a/src/MNH/ini_rain_ice.f90
+++ b/src/MNH/ini_rain_ice.f90
@@ -431,6 +431,7 @@ XRTMIN(4) = 1.0E-20
 XRTMIN(5) = 1.0E-15
 XRTMIN(6) = 1.0E-15
 IF (HCLOUD == 'ICE4') XRTMIN(7) = 1.0E-15
+!$acc enter data copyin(XRTMIN)
 !
 XCONC_SEA=1E8 ! 100/cm3
 XCONC_LAND=3E8 ! 300/cm3