From 82ce2010201ce8f1aa8f8407009e50a5d36af63f Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 10 Apr 2014 14:29:18 +0000
Subject: [PATCH]  Christine 10/04/2014 : correction for scalars

---
 src/MNH/write_desfmn.f90 | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/MNH/write_desfmn.f90 b/src/MNH/write_desfmn.f90
index 3340c807b..3bc5260d5 100644
--- a/src/MNH/write_desfmn.f90
+++ b/src/MNH/write_desfmn.f90
@@ -323,17 +323,17 @@ WRITE(UNIT=ILUSEG,NML=NAM_NUDGINGn)
 CALL INIT_NAM_TURBn
 IF(CTURB /= 'NONE') WRITE(UNIT=ILUSEG,NML=NAM_TURBn)
 !
-IF (CPROGRAM/='MESONH') THEN
-  LUSECHEM   = .FALSE.
-  LORILAM    = .FALSE.
-  LDEPOS_AER = .FALSE.
-  LDUST      = .FALSE.
-  LDEPOS_DST = .FALSE.
-  LSALT      = .FALSE.
-  LDEPOS_SLT = .FALSE.
-  LPASPOL    = .FALSE.
-  LCONDSAMP  = .FALSE.
-END IF
+!IF (CPROGRAM/='MESONH') THEN
+!  LUSECHEM   = .FALSE.
+!  LORILAM    = .FALSE.
+!  LDEPOS_AER = .FALSE.
+!  LDUST      = .FALSE.
+!  LDEPOS_DST = .FALSE.
+!  LSALT      = .FALSE.
+!  LDEPOS_SLT = .FALSE.
+!  LPASPOL    = .FALSE.
+!  LCONDSAMP  = .FALSE.
+!END IF
 CALL INIT_NAM_CH_MNHCn
 IF(LUSECHEM .OR. LCH_CONV_LINOX .OR. LCH_CONV_SCAV) &
  WRITE(UNIT=ILUSEG,NML=NAM_CH_MNHCn)
-- 
GitLab