From 3c3739cb1c559bacdcce653cbad20d69464e36e3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 29 Aug 2018 10:30:59 +0200
Subject: [PATCH] Philippe 29/08/2018: RAINFR_VERT: bug correction: intent for
 ZPRFR

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

diff --git a/src/MNH/rain_ice.f90 b/src/MNH/rain_ice.f90
index 8c0954c4c..ed45479df 100644
--- a/src/MNH/rain_ice.f90
+++ b/src/MNH/rain_ice.f90
@@ -3492,7 +3492,7 @@ IMPLICIT NONE
 SUBROUTINE RAINFR_VERT(ZPRFR, ZRR)
 
 IMPLICIT NONE
-REAL, DIMENSION(:,:,:),   INTENT(OUT)    :: ZPRFR !Precipitation fraction
+REAL, DIMENSION(:,:,:),   INTENT(INOUT) :: ZPRFR !Precipitation fraction
 REAL, DIMENSION(:,:,:),   INTENT(IN)    :: ZRR !Rain field
 !
 !-------------------------------------------------------------------------------
-- 
GitLab