Christine 10/04/2014 : correction for scalars

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)