diff --git a/src/MNH/write_desfmn.f90 b/src/MNH/write_desfmn.f90 index 3340c807b28152d128a5bc1f6d5d9f7064ac7df8..3bc5260d57895b0c7b726c350fcc3352ae7e5d4f 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)