diff --git a/src/MNH/deallocate_model1.f90 b/src/MNH/deallocate_model1.f90 index 2402aaf01ccda4bc877c938d378e4471583271ca..ebae4a9b53232850e7d5a41b0b7bd945a43f14bb 100644 --- a/src/MNH/deallocate_model1.f90 +++ b/src/MNH/deallocate_model1.f90 @@ -106,6 +106,7 @@ USE MODD_RELFRC_n USE MODD_ADV_n USE MODD_PAST_FIELD_n USE MODD_TURB_n +USE MODD_PARAM_C2R2, ONLY :LSUPSAT IMPLICIT NONE ! !* 0.1 declarations of arguments @@ -198,7 +199,7 @@ IF ( KCALL == 1 ) THEN DEALLOCATE(XRSVS_CLD) END IF ! -IF (CCLOUD == 'KHKO') THEN +IF ((CCLOUD == 'KHKO') .AND. LSUPSAT) THEN DEALLOCATE(XSUPSAT) DEALLOCATE(XNACT) DEALLOCATE(XNPRO)