diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90 index 62b2f07253e5f89ddeaa83ef16cc59d5af9da4dd..ae46274d611f0804f31ddd544b5bab0b067fff79 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