From 8972eea8eba1fc4eecfd595f6a6d7e131ebfc59e Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 7 Oct 2015 14:26:17 +0000
Subject: [PATCH] Juan 7/10/2015: Bug in parallel run , => comment test on
 INUCT>1 containing GET_HALO

---
 src/MNH/rain_c2r2_khko.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90
index 1d769c9ac..e255b5dfb 100644
--- a/src/MNH/rain_c2r2_khko.f90
+++ b/src/MNH/rain_c2r2_khko.f90
@@ -207,6 +207,7 @@ END MODULE MODI_RAIN_C2R2_KHKO
 !!                                     KHKO_SEDIMENTATION because of instability
 !!      G.Tanguy             07/14     FUSION C2R2 and KHKO
 !!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!      J.Escobar : 07/10/2015 , Bug in parallel run , => comment test on INUCT>1 containing GET_HALO  
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -624,7 +625,7 @@ ELSE
 END IF
 INUCT = COUNTJV( GNUCT(:,:,:),I1(:),I2(:),I3(:))
 
-IF( INUCT >= 1 ) THEN
+! IF( INUCT >= 1 ) THEN
   ALLOCATE(ZRVT(INUCT))
   ALLOCATE(ZRCT(INUCT))
   ALLOCATE(ZRRT(INUCT))
@@ -834,7 +835,7 @@ IF( INUCT >= 1 ) THEN
 !  DEALLOCATE(ZCHEN_TMP)
 !  DEALLOCATE(ZCONC_CCN)
 !-------------------------------------------------------------------------------
-END IF
+! END IF
 !                      
 IF ( OCLOSE_OUT ) THEN
   YRECFM  ='SURSAT'
-- 
GitLab