From 792f722ebdf4223bb5b0d3395d4dd8efc8b67068 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 25 Apr 2019 15:02:11 +0200
Subject: [PATCH] Philippe 25/04/2019: OpenACC: move allocate outside of
 kernels to allow compilation

---
 src/MNH/resolved_cloud.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index 62b2f0725..ae46274d6 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90
@@ -625,8 +625,8 @@ IF (HCLOUD=='C2R2' .OR. HCLOUD=='C3R5' .OR. HCLOUD=='KHKO' .OR. HCLOUD=='LIMA')
   ZSVS(:,:,:,:) = PSVS(:,:,:,ISVBEG:ISVEND)
 END IF
 IF (HCLOUD(1:3)=='ICE' .AND. LRED) THEN
-!$acc kernels
   ALLOCATE(ZRSMIN(SIZE(XRTMIN)))
+!$acc kernels
   ZRSMIN(:) = XRTMIN(:) / PTSTEP
 !$acc end kernels
 END IF
-- 
GitLab