From b825ef2dc1447acd45523297feb78d20b729449e Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Thu, 19 Oct 2017 11:10:15 +0200
Subject: [PATCH] C.Lac 10/2017 : remove LSUPSAT
---
src/MNH/deallocate_model1.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/deallocate_model1.f90 b/src/MNH/deallocate_model1.f90
index 2402aaf01..ebae4a9b5 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)
--
GitLab