From 37021d2152ef03f534382b35d436d85e11809b70 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 1 Feb 2023 10:53:16 +0100
Subject: [PATCH] Juan 01/02/2023:ini_rain_ice.f90; OpenACC optimization , put
 XRTMIN on device at init

---
 src/MNH/ini_rain_ice.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MNH/ini_rain_ice.f90 b/src/MNH/ini_rain_ice.f90
index d8200edbe..3087d5455 100644
--- 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
-- 
GitLab