From 812ff225cd457e6f607dbc29c227dcc1332b5650 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Vi=C3=A9?= <benoit.vie@meteo.fr>
Date: Thu, 24 Mar 2022 14:29:30 +0100
Subject: [PATCH] Bug initialisation SPRO

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

diff --git a/src/MNH/lima_notadjust.f90 b/src/MNH/lima_notadjust.f90
index 38853c897..48e97a2f3 100644
--- a/src/MNH/lima_notadjust.f90
+++ b/src/MNH/lima_notadjust.f90
@@ -451,9 +451,10 @@ GNUCT(:,:,:) = .FALSE.
 !GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 .OR.   &
 !                                 ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>0.0
 !GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 
-GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 .OR.   &
+GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>-1.0 .AND.  &
+                                 ( ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 .OR.  &
 !                                ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>1.E+05
-                                 ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2)
+                                 ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2) )
 INUCT = COUNTJV( GNUCT(:,:,:),I1(:),I2(:),I3(:))
 !3D array to 1D array
 !
-- 
GitLab