Philippe 15/01/2021: bugfix: NACT was wrong (not initialized) if INUCT=0

(cherry picked from commit 8b070644)

src/MNH/lima_ccn_activation.f90

@@ -181,7 +181,6 @@ TYPE(TFIELDDATA) :: TZFIELD
 !-------------------------------------------------------------------------------
 !
 ILUOUT = TLUOUT%NLU
-ZW(:,:,:)=0.
 !
 !*       1.     PREPARE COMPUTATIONS - PACK
 !   	        ---------------------------
@@ -459,6 +458,11 @@ IF( INUCT >= 1 ) THEN
 END IF ! INUCT
 !
 IF ( OCLOSE_OUT ) THEN
+  IF ( INUCT == 0 ) THEN
+    ZW (:,:,:) = 0.
+    ZW2(:,:,:) = 0.
+  END IF
+
   TZFIELD%CMNHNAME   ='SMAX'
   TZFIELD%CSTDNAME   = ''
   TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)

src/MNH/lima_warm_nucl.f90

@@ -207,7 +207,6 @@ TYPE(TFIELDDATA) :: TZFIELD
 !-------------------------------------------------------------------------------
 !
 ILUOUT = TLUOUT%NLU
-ZW(:,:,:)=0.
 !
 !*       1.     PREPARE COMPUTATIONS - PACK
 !   	        ---------------------------
@@ -520,6 +519,11 @@ END IF ! INUCT
 DEALLOCATE(ZCTMIN)
 !--cb--
 IF ( OCLOSE_OUT ) THEN
+  IF ( INUCT == 0 ) THEN
+    ZW (:,:,:) = 0.
+    ZW2(:,:,:) = 0.
+  END IF
+
   TZFIELD%CMNHNAME   ='SMAX'
   TZFIELD%CSTDNAME   = ''
   TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)