diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90 index 85a23d7770703d803e15fec6e967ae8df7f9b308..3854c543337cc0c2a3d9b118b4fd84b49d2a5eb7 100644 --- a/src/MNH/lima_ccn_activation.f90 +++ b/src/MNH/lima_ccn_activation.f90 @@ -180,7 +180,6 @@ TYPE(TFIELDDATA) :: TZFIELD !------------------------------------------------------------------------------- ! ILUOUT = TLUOUT%NLU -ZW(:,:,:)=0. ! !* 1. PREPARE COMPUTATIONS - PACK ! --------------------------- @@ -458,6 +457,11 @@ IF( INUCT >= 1 ) THEN END IF ! INUCT ! IF ( tpfile%lopened ) 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 5bf129f55ec8b52aef3e244a85e84cc6227cff48..a0e6ac692cb57fbbf87a0a3d8f287951d593255b 100644 --- a/src/MNH/lima_warm_nucl.f90 +++ b/src/MNH/lima_warm_nucl.f90 @@ -205,7 +205,6 @@ TYPE(TFIELDDATA) :: TZFIELD !------------------------------------------------------------------------------- ! ILUOUT = TLUOUT%NLU -ZW(:,:,:)=0. ! !* 1. PREPARE COMPUTATIONS - PACK ! --------------------------- @@ -518,6 +517,11 @@ END IF ! INUCT DEALLOCATE(ZCTMIN) !--cb-- IF ( tpfile%lopened ) THEN + IF ( INUCT == 0 ) THEN + ZW (:,:,:) = 0. + ZW2(:,:,:) = 0. + END IF + TZFIELD%CMNHNAME ='SMAX' TZFIELD%CSTDNAME = '' TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)