diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90 index 1d769c9acaaa2823c1778e324c268b1b354689fd..e255b5dfbd64d4b404ea2394f3805ee1db904f6a 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'