C.Lac 10/2017 : remove LSUPSAT

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)