diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90 index 80750616aa6435cd327adc9210e8d744b79149a2..3e11b34b5d4d48f949b656079202b1cd436a40fd 100644 --- a/src/MNH/lima_ccn_activation.f90 +++ b/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) diff --git a/src/MNH/lima_warm_nucl.f90 b/src/MNH/lima_warm_nucl.f90 index decd53aba0690f80a9a8845d95d38caf86c57493..7cad9a508b7b53c5c75d8d5b4df909075e00e525 100644 --- a/src/MNH/lima_warm_nucl.f90 +++ b/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)