Newer
Older
WAUTELET Philippe
committed
!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
WAUTELET Philippe
committed
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! ######################
MODULE MODI_READ_DESFM_n
! ######################
!
INTERFACE
!
WAUTELET Philippe
committed
SUBROUTINE READ_DESFM_n(KMI,TPDATAFILE,HCONF,OFLAT,OUSERV, &
OUSERC,OUSERR,OUSERI,OUSECI,OUSERS,OUSERG,OUSERH, &
OUSECHEM,OUSECHAQ,OUSECHIC,OCH_PH,OCH_CONV_LINOX,OSALT, &
ODEPOS_SLT,ODUST,ODEPOS_DST, OCHTRANS, &
OORILAM,ODEPOS_AER,OLG,OPASPOL,OFIRE, &
#ifdef MNH_FOREFIRE
OFOREFIRE, &
#endif
OCONDSAMP,OBLOWSNOW, &
KRIMX,KRIMY,KSV_USER, &
HTURB,HTOM,ORMC01,HRAD,HDCONV,HSCONV,HCLOUD,HELEC,HEQNSYS )
WAUTELET Philippe
committed
!
WAUTELET Philippe
committed
USE MODD_IO, ONLY: TFILEDATA
WAUTELET Philippe
committed
!
INTEGER, INTENT(IN) :: KMI ! Model index
WAUTELET Philippe
committed
TYPE(TFILEDATA), INTENT(IN) :: TPDATAFILE ! Datafile
CHARACTER (LEN=5), INTENT(OUT) :: HCONF ! configuration var. linked to FMfile
LOGICAL, INTENT(OUT) :: OFLAT ! Logical for zero orography
LOGICAL, INTENT(OUT) :: OUSERV ! use Rv mixing ratio
LOGICAL, INTENT(OUT) :: OUSERC ! use Rc mixing ratio
LOGICAL, INTENT(OUT) :: OUSERR ! use Rr mixing ratio
LOGICAL, INTENT(OUT) :: OUSERI ! use Ri mixing ratio
LOGICAL, INTENT(OUT) :: OUSECI ! use Ci concentration of Ice cristals
LOGICAL, INTENT(OUT) :: OUSERS ! use Rs mixing ratio
LOGICAL, INTENT(OUT) :: OUSERG ! use Rg mixing ratio
LOGICAL, INTENT(OUT) :: OUSERH ! use Rh mixing ratio
LOGICAL, INTENT(OUT) :: OUSECHEM ! Chemical flag
LOGICAL, INTENT(OUT) :: OUSECHAQ ! Aqueous Chemical flag
LOGICAL, INTENT(OUT) :: OUSECHIC ! Ice phase Chemical flag
LOGICAL, INTENT(OUT) :: OCH_PH ! pH flag
LOGICAL, INTENT(OUT) :: OCH_CONV_LINOX ! LiNOX flag
LOGICAL, INTENT(OUT) :: OLG ! lagrangian flag
LOGICAL, INTENT(OUT) :: OSALT ! Sea Salt flag
LOGICAL, INTENT(OUT) :: ODUST ! Dust flag
LOGICAL, INTENT(OUT) :: OPASPOL ! Passive pollutant flag
LOGICAL, INTENT(OUT) :: OFIRE ! Blaze flag
#ifdef MNH_FOREFIRE
LOGICAL, INTENT(OUT) :: OFOREFIRE! ForeFire flag
#endif
LOGICAL, INTENT(OUT) :: OLNOX_EXPLICIT ! explicit LNOx flag
LOGICAL, INTENT(OUT) :: OCONDSAMP! Conditional sampling flag
LOGICAL, INTENT(OUT) :: OBLOWSNOW ! Blowing snow flag
LOGICAL, INTENT(OUT) :: OORILAM ! Orilam flag
LOGICAL, INTENT(OUT) :: OCHTRANS ! Deep convection on scalar
LOGICAL,DIMENSION(JPMODELMAX),INTENT(OUT) :: ODEPOS_DST ! Dust Wet Deposition flag
LOGICAL,DIMENSION(JPMODELMAX),INTENT(OUT) :: ODEPOS_SLT ! Sea Salt Wet Deposition flag
LOGICAL,DIMENSION(JPMODELMAX),INTENT(OUT) :: ODEPOS_AER ! Aerosols Wet Deposition flag
INTEGER, INTENT(OUT) :: KRIMX, KRIMY ! number of points for the
! horizontal relaxation for the outermost verticals
INTEGER, INTENT(OUT) :: KSV_USER ! number of additional scalar
! variables in FMfile
CHARACTER (LEN=4), INTENT(OUT) :: HTURB ! Kind of turbulence parameterization
! used to produce the FMfile
CHARACTER (LEN=4), INTENT(OUT) :: HTOM ! Kind of third order moment
LOGICAL, INTENT(OUT) :: ORMC01 ! flag for RMC01 SBL computations
CHARACTER (LEN=4), INTENT(OUT) :: HRAD ! Kind of radiation scheme
CHARACTER (LEN=4), INTENT(OUT) :: HDCONV ! Kind of deep convection scheme
CHARACTER (LEN=4), INTENT(OUT) :: HSCONV ! Kind of shallow convection scheme
CHARACTER (LEN=4), INTENT(OUT) :: HCLOUD ! Kind of microphysical scheme
CHARACTER (LEN=4), INTENT(OUT) :: HELEC ! Kind of electrical scheme
CHARACTER (LEN=*), INTENT(OUT) :: HEQNSYS! type of equations' system
END SUBROUTINE READ_DESFM_n
!
END INTERFACE
!
END MODULE MODI_READ_DESFM_n
! #########################################################################
WAUTELET Philippe
committed
SUBROUTINE READ_DESFM_n(KMI,TPDATAFILE,HCONF,OFLAT,OUSERV, &
OUSERC,OUSERR,OUSERI,OUSECI,OUSERS,OUSERG,OUSERH, &
OUSECHEM,OUSECHAQ,OUSECHIC,OCH_PH,OCH_CONV_LINOX,OSALT, &
ODEPOS_SLT,ODUST,ODEPOS_DST, OCHTRANS, &
OORILAM,ODEPOS_AER,OLG,OPASPOL,OFIRE, &
#ifdef MNH_FOREFIRE
OFOREFIRE, &
#endif
OCONDSAMP,OBLOWSNOW, &
KRIMX,KRIMY,KSV_USER, &
HTURB,HTOM,ORMC01,HRAD,HDCONV,HSCONV,HCLOUD,HELEC,HEQNSYS )
! #########################################################################
!
!!**** *READ_DESFM_n * - routine to read the descriptor file DESFM
!!
!! PURPOSE
!! -------
! The purpose of this routine is to read the descriptor file called
! DESFM.
!
!!
!!** METHOD
!! ------
WAUTELET Philippe
committed
!! The descriptor file is read. Namelists (NAMXXXn) which contain
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
!! informations linked to one nested model are at the beginning of the file.
!! Namelists (NAMXXX) which contain variables common to all models
!! are at the end of the file. When the model index is different from 1,
!! the end of the file (namelists NAMXXX) is not read.
!! Some attributes of the FMfile are saved in order to check coherence
!! between initial file and the segment to perform (description given by
!! EXSEG file), i.e. :
!! - the configuration which has been used to produce the initial file
!! (CCONF)
!! - logical switch for flat configuration (zero orography) in initial file
!! (LFLAT)
!! - kind of moist variables in initial file (LUSERV,LUSERC,LUSERR,
!! LUSERI,LUSERS,LUSERG,LUSERH)
!! - number of additional scalar variables in initial file (NSV_USER)
!! - kind of turbulence parameterization used to produce the initial
!! file (CTURB)
!! - kind of mixing length used to produce the initial
!! file (CTURBLEN)
!! - time step of each model stored in PTSTEP_OLD, to correct the initial
!! field at t-dt in routine READ_FIELD in case of time step change
!! - type of equation system in order to verify that the anelastic is the
!! same for the initila file generation and the run
!!
!!
!! EXTERNAL
!! --------
!!
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!! Module MODN_CONF : CCONF,LFLAT,CEQNSYS
!!
!! Module MODN_CONF1 : LUSERV,LUSERC,LUSERR,LUSERI,LUSECI,
!! LUSERS,LUSERG,LUSERH
!!
!! Module MODN_PARAM1 : CTURB,CRAD,CDCONV,CSCONV
!!
!! Module MODN_TURB$n : CTURBLEN
!!
!! Module MODN_DYN$n : NRIMX,NRIMY
!!
!! REFERENCE
!! ---------
!! Book2 of the documentation (routine READ_DESFM_n)
!!
!!
!! AUTHOR
!! ------
!! V. Ducrocq * Meteo France *
!!
!! MODIFICATIONS
!! -------------
!! Original 07/06/94
!! Modifications 17/10/94 (Stein) For LCORIO
!! Modifications 26/10/94 (Stein) remove NAM_GET from the Namelists
!! present in DESFM + change the namelist names
!! Modifications 09/01/95 (Stein) add the turbulence scheme
!! Modifications 09/01/95 (Stein) add the 1D switch
!! Modifications 13/02/95 (Stein) save HTURBLEN
!! Modifications 30/06/95 (Stein) add new namelists
!! Modifications 18/08/95 (Lafore) time step change
!! Modifications 15/09/95 (Pinty) add the radiations
!! Modifications 06/02/96 (J.Vila) add the new scalar advection scheme
!! Modifications 20/02/96 (Stein) add the LES namelist + cleaning
!! Modifications 25/04/96 (Suhre) add NAM_BLANK
!! Modifications 25/04/96 (Suhre) add NAM_FRC
!! Modifications 25/04/96 (Suhre) add NAM_CH_MNHCn and NAM_CH_SOLVER
!! Modifications 11/04/96 (Pinty) add the ice concentration
!! Modifications 11/01/97 (Pinty) add the deep convection
!! Modifications 22/07/96 (Lafore) gridnesting implementation
!! Modifications 22/06/97 (Stein ) save the equations' system+ cleaning
!! Modifications 09/07/97 (Masson) add NAM_PARAM_GROUND
!! Modifications 25/08/97 (Masson) add HGROUND
!! Modifications 25/10/97 (Stein ) new namelists
!! Modification 04/06/00 (Pinty) add C2R2 scheme
!! Modification 22/01/01 (Gazen) Add OUSECHEM and OLG
!! Modification 15/10/01 (Mallet) allow namelists in different orders
!! Modification 29/11/02 (Pinty) add C3R5, ICE2, ICE4, ELEC
!! Modification 01/2004 (Masson) removes surface (externalization)
!! Modification 01/2005 (Masson) removes 1D and 2D switches
!! Modification 03/2005 (Tulet) add dust, aerosols
!! Modification 03/2006 (O.Geoffroy) Add KHKO scheme
!! Modification 04/2010 (M. Leriche) Add aqueous + ice chemistry
!! Modification 07/2013 (Bosseur & Filippi) Adds Forefire
!! Modification 01/2015 (C. Barthe) Add explicit LNOx
!! Modification 11/2016 (Ph. Wautelet) Allocate/initialise some output/backup structures
!! Modification 02/2018 (Q.Libois) ECRAD
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
!! Modification 07/2017 (V. Vionnet) Add blowing snow scheme
RODIER Quentin
committed
!! Modification 02/2021 (F.Auguste) add IBM
!! (T.Nagel) add turbulence recycling
!! (E.Jezequel) add stations read from CSV file
! A. Costes 12/2021: add Blaze fire model
! P. Wautelet 27/04/2022: add namelist for profilers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
USE MODD_IO, ONLY: NFILE_NUM_MAX, TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_NEB_n, ONLY: NEBN_INIT
USE MODD_PARAM_ICE_n, ONLY : PARAM_ICEN_INIT
USE MODD_PARAM_LIMA, ONLY: PARAM_LIMA_INIT
USE MODD_PARAM_MFSHALL_n, ONLY: PARAM_MFSHALLN_INIT
USE MODD_TURB_n, ONLY: TURBN_INIT, CTOM, LRMC01
WAUTELET Philippe
committed
!
USE MODN_BACKUP
USE MODN_BUDGET
USE MODN_CONF
USE MODN_DYN
USE MODN_NESTING
WAUTELET Philippe
committed
USE MODN_OUTPUT
USE MODN_LES
USE MODN_CONF_n
USE MODN_DYN_n
USE MODN_ADV_n
USE MODN_PARAM_n
USE MODN_PARAM_RAD_n
USE MODN_PARAM_ECRAD_n
USE MODN_PARAM_KAFR_n
USE MODN_LUNIT_n
USE MODN_LBC_n
USE MODN_NUDGING_n
USE MODN_FRC
RODIER Quentin
committed
USE MODN_BLANK_n
USE MODN_CH_SOLVER_n
USE MODN_CH_MNHC_n
USE MODN_PARAM_C2R2, ONLY : HPARAM_CCN_C2R2=>HPARAM_CCN,HINI_CCN_C2R2=>HINI_CCN, &
HTYPE_CCN_C2R2=>HTYPE_CCN,LRAIN_C2R2=>LRAIN, &
LSEDC_C2R2=>LSEDC,LACTIT_C2R2=>LACTIT,XCHEN_C2R2=>XCHEN, &
XKHEN_C2R2=>XKHEN,XMUHEN_C2R2=>XMUHEN, &
XBETAHEN_C2R2=>XBETAHEN,XCONC_CCN_C2R2=>XCONC_CCN, &
XR_MEAN_CCN_C2R2=>XR_MEAN_CCN,XLOGSIG_CCN_C2R2=>XLOGSIG_CCN, &
XFSOLUB_CCN_C2R2=>XFSOLUB_CCN,XACTEMP_CCN_C2R2=>XACTEMP_CCN, &
XALPHAC_C2R2=>XALPHAC,XNUC_C2R2=>XNUC,XALPHAR_C2R2=>XALPHAR, &
XNUR_C2R2=>XNUR,XAERDIFF_C2R2=>XAERDIFF, &
XAERHEIGHT_C2R2=>XAERHEIGHT,NAM_PARAM_C2R2
USE MODN_PARAM_C1R3, ONLY : XALPHAI_C1R3=>XALPHAI,XNUI_C1R3=>XNUI,XALPHAS_C1R3=>XALPHAS, &
XNUS_C1R3=>XNUS,XALPHAG_C1R3=>XALPHAG,XNUG_C1R3=>XNUG, &
XFACTNUC_DEP_C1R3=>XFACTNUC_DEP, &
XFACTNUC_CON_C1R3=>XFACTNUC_CON,LSEDI_C1R3=>LSEDI, &
LHHONI_C1R3=>LHHONI,CPRISTINE_ICE_C1R3,CHEVRIMED_ICE_C1R3, &
NAM_PARAM_C1R3
USE MODN_ELEC
USE MODN_SERIES
USE MODN_SERIES_n
USE MODN_CH_ORILAM
USE MODN_DUST
USE MODN_SALT
USE MODN_PASPOL
#ifdef MNH_FOREFIRE
USE MODN_FOREFIRE
#endif
USE MODN_CONDSAMP
USE MODN_LATZ_EDFLX
USE MODN_2D_FRC
USE MODN_BLOWSNOW_n
USE MODN_BLOWSNOW
WAUTELET Philippe
committed
! USE MODN_FLYERS
WAUTELET Philippe
committed
USE MODE_MSG
RODIER Quentin
committed
USE MODN_RECYCL_PARAM_n
USE MODN_IBM_PARAM_n
USE MODD_IBM_LSF, ONLY: LIBM_LSF
WAUTELET Philippe
committed
USE MODN_FIRE_n
IMPLICIT NONE
!
!* 0.1 declarations of arguments
!
!
!
INTEGER, INTENT(IN) :: KMI ! Model index
WAUTELET Philippe
committed
TYPE(TFILEDATA), INTENT(IN) :: TPDATAFILE ! Datafile
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
CHARACTER (LEN=5), INTENT(OUT) :: HCONF ! configuration var. linked to FMfile
LOGICAL, INTENT(OUT) :: OFLAT ! Logical for zero orography
LOGICAL, INTENT(OUT) :: OUSERV ! use Rv mixing ratio
LOGICAL, INTENT(OUT) :: OUSERC ! use Rc mixing ratio
LOGICAL, INTENT(OUT) :: OUSERR ! use Rr mixing ratio
LOGICAL, INTENT(OUT) :: OUSERI ! use Ri mixing ratio
LOGICAL, INTENT(OUT) :: OUSECI ! use Ci concentration of Ice cristals
LOGICAL, INTENT(OUT) :: OUSERS ! use Rs mixing ratio
LOGICAL, INTENT(OUT) :: OUSERG ! use Rg mixing ratio
LOGICAL, INTENT(OUT) :: OUSERH ! use Rh mixing ratio
LOGICAL, INTENT(OUT) :: OUSECHEM ! Chemical flag
LOGICAL, INTENT(OUT) :: OUSECHAQ ! Aqueous Chemical flag
LOGICAL, INTENT(OUT) :: OUSECHIC ! Ice phase Chemical flag
LOGICAL, INTENT(OUT) :: OCH_PH ! pH flag
LOGICAL, INTENT(OUT) :: OCH_CONV_LINOX ! LiNOX flag
LOGICAL, INTENT(OUT) :: OLG ! lagrangian flag
INTEGER, INTENT(OUT) :: KRIMX, KRIMY ! number of points for the
! horizontal relaxation for the outermost verticals
INTEGER, INTENT(OUT) :: KSV_USER ! number of additional scalar
! variables in FMfile
CHARACTER (LEN=4), INTENT(OUT) :: HTURB ! Kind of turbulence parameterization
! used to produce the FMfile
CHARACTER (LEN=4), INTENT(OUT) :: HTOM ! Kind of third order moment
LOGICAL, INTENT(OUT) :: ORMC01 ! flag for RMC01 SBL computations
CHARACTER (LEN=4), INTENT(OUT) :: HRAD ! Kind of radiation scheme
CHARACTER (LEN=4), INTENT(OUT) :: HDCONV ! Kind of deep convection scheme
CHARACTER (LEN=4), INTENT(OUT) :: HSCONV ! Kind of shallow convection scheme
CHARACTER (LEN=4), INTENT(OUT) :: HCLOUD ! Kind of microphysical scheme
CHARACTER (LEN=4), INTENT(OUT) :: HELEC ! Kind of electrical scheme
CHARACTER (LEN=*), INTENT(OUT) :: HEQNSYS! type of equations' system
LOGICAL, INTENT(OUT) :: OSALT ! Sea Salt flag
LOGICAL, INTENT(OUT) :: OPASPOL ! Passive pollutant flag
LOGICAL, INTENT(OUT) :: OFIRE ! Blaze flag
#ifdef MNH_FOREFIRE
LOGICAL, INTENT(OUT) :: OFOREFIRE ! ForeFire flag
#endif
LOGICAL, INTENT(OUT) :: OLNOX_EXPLICIT ! explicit LNOx flag
LOGICAL, INTENT(OUT) :: OCONDSAMP! Conditional sampling flag
LOGICAL, INTENT(OUT) :: OBLOWSNOW! Blowing snow flag
LOGICAL, INTENT(OUT) :: ODUST ! Dust flag
LOGICAL, INTENT(OUT) :: OORILAM ! Dust flag
LOGICAL, INTENT(OUT) :: OCHTRANS ! Deep convection on scalar
! variables flag
LOGICAL,DIMENSION(JPMODELMAX),INTENT(OUT) :: ODEPOS_DST ! Dust Wet Deposition flag
LOGICAL,DIMENSION(JPMODELMAX),INTENT(OUT) :: ODEPOS_SLT ! Sea Salt Wet Deposition flag
LOGICAL,DIMENSION(JPMODELMAX),INTENT(OUT) :: ODEPOS_AER ! Aerosols Wet Deposition flag
!
!* 0.2 declarations of local variables
!
WAUTELET Philippe
committed
INTEGER :: ILUDES, & ! logical unit numbers of
ILUOUT ! DESFM file and output listing
LOGICAL :: GFOUND ! Return code when searching namelist
LOGICAL,DIMENSION(JPMODELMAX),SAVE :: LTEMPDEPOS_DST ! Dust Moist flag
LOGICAL,DIMENSION(JPMODELMAX),SAVE :: LTEMPDEPOS_SLT ! Sea Salt Moist flag
LOGICAL,DIMENSION(JPMODELMAX),SAVE :: LTEMPDEPOS_AER ! Orilam Moist flag
TYPE(TFILEDATA), POINTER :: TZDESFILE
!
!-------------------------------------------------------------------------------
!
!* 1. READ DESFM FILE
! ---------------
!
WAUTELET Philippe
committed
CALL PRINT_MSG(NVERB_DEBUG,'IO','READ_DESFM_n','called for '//TRIM(TPDATAFILE%CNAME))
WAUTELET Philippe
committed
IF (.NOT.ASSOCIATED(TPDATAFILE%TDESFILE)) &
CALL PRINT_MSG(NVERB_FATAL,'IO','READ_DESFM_n','TDESFILE not associated for '//TRIM(TPDATAFILE%CNAME))
!
TZDESFILE => TPDATAFILE%TDESFILE
ILUDES = TZDESFILE%NLU
WAUTELET Philippe
committed
ILUOUT = TLUOUT%NLU
CALL POSNAM( TZDESFILE, 'NAM_LUNITN', GFOUND )
CALL INIT_NAM_LUNITN
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_LUNITn)
CALL UPDATE_NAM_LUNITN
END IF
CALL POSNAM( TZDESFILE, 'NAM_CONFN', GFOUND )
CALL INIT_NAM_CONFN
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_CONFn)
CALL UPDATE_NAM_CONFN
END IF
CALL POSNAM( TZDESFILE, 'NAM_DYNN', GFOUND )
CALL INIT_NAM_DYNN
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_DYNn)
CALL UPDATE_NAM_DYNN
END IF
CALL POSNAM( TZDESFILE, 'NAM_ADVN', GFOUND )
CALL INIT_NAM_ADVN
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_ADVn)
CALL UPDATE_NAM_ADVN
END IF
CALL POSNAM( TZDESFILE, 'NAM_PARAMN', GFOUND )
CALL INIT_NAM_PARAMn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_PARAMn)
CALL UPDATE_NAM_PARAMn
END IF
CALL POSNAM( TZDESFILE, 'NAM_PARAM_RADN', GFOUND )
CALL INIT_NAM_PARAM_RADn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_PARAM_RADn)
CALL UPDATE_NAM_PARAM_RADn
END IF
#ifdef MNH_ECRAD
CALL POSNAM( TZDESFILE, 'NAM_PARAM_ECRADN', GFOUND )
CALL INIT_NAM_PARAM_ECRADn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_PARAM_ECRADn)
CALL UPDATE_NAM_PARAM_ECRADn
END IF
#endif
CALL POSNAM( TZDESFILE, 'NAM_PARAM_KAFRN', GFOUND )
CALL INIT_NAM_PARAM_KAFRn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_PARAM_KAFRn)
CALL UPDATE_NAM_PARAM_KAFRn
END IF
RODIER Quentin
committed
CALL PARAM_MFSHALLN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .TRUE., .FALSE., 0)
CALL POSNAM( TZDESFILE, 'NAM_LBCN', GFOUND )
CALL INIT_NAM_LBCn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_LBCn)
CALL UPDATE_NAM_LBCn
END IF
CALL POSNAM( TZDESFILE, 'NAM_NUDGINGN', GFOUND )
CALL INIT_NAM_NUDGINGn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_NUDGINGn)
CALL UPDATE_NAM_NUDGINGn
END IF
RODIER Quentin
committed
CALL TURBN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .TRUE., .FALSE., 0)
CALL NEBN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .TRUE., .FALSE., 0)
CALL PARAM_ICEN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .TRUE., .FALSE., 0)
CALL POSNAM( TZDESFILE, 'NAM_CH_MNHCN', GFOUND )
CALL INIT_NAM_CH_MNHCn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_CH_MNHCn)
CALL UPDATE_NAM_CH_MNHCn
END IF
CALL POSNAM( TZDESFILE, 'NAM_CH_SOLVERN', GFOUND )
CALL INIT_NAM_CH_SOLVERn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_CH_SOLVERn)
CALL UPDATE_NAM_CH_SOLVERn
END IF
CALL POSNAM( TZDESFILE, 'NAM_DRAGN', GFOUND )
CALL INIT_NAM_DRAGn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_DRAGn)
CALL UPDATE_NAM_DRAGn
END IF
CALL POSNAM( TZDESFILE, 'NAM_IBM_PARAMN', GFOUND )
RODIER Quentin
committed
CALL INIT_NAM_IBM_PARAMn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_IBM_PARAMn)
CALL UPDATE_NAM_IBM_PARAMn
END IF
CALL POSNAM( TZDESFILE, 'NAM_RECYCL_PARAMN', GFOUND )
RODIER Quentin
committed
CALL INIT_NAM_RECYCL_PARAMn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_RECYCL_PARAMn)
CALL UPDATE_NAM_RECYCL_PARAMn
END IF
CALL POSNAM( TZDESFILE, 'NAM_SERIESN', GFOUND )
CALL INIT_NAM_SERIESn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_SERIESn)
CALL UPDATE_NAM_SERIESn
END IF
CALL POSNAM( TZDESFILE, 'NAM_BLOWSNOWN', GFOUND )
CALL INIT_NAM_BLOWSNOWn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_BLOWSNOWn)
CALL UPDATE_NAM_BLOWSNOWn
END IF
CALL POSNAM( TZDESFILE, 'NAM_BLANKN', GFOUND )
RODIER Quentin
committed
CALL INIT_NAM_BLANKn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_BLANKn)
CALL UPDATE_NAM_BLANKn
END IF
WAUTELET Philippe
committed
! Note: it is not useful to read the PROFILERS/STATIONS namelists in the .des files
! The values here (if present in file) don't need to be compared with the ones in the EXSEGn files
! CALL POSNAM( TZDESFILE, 'NAM_PROFILERN', GFOUND )
! CALL INIT_NAM_PROFILERn
! IF (GFOUND) THEN
! READ(UNIT=ILUDES,NML=NAM_PROFILERN)
! CALL UPDATE_NAM_PROFILERn
! END IF
! CALL POSNAM( TZDESFILE, 'NAM_STATIONN', GFOUND )
! CALL INIT_NAM_STATIONn
! IF (GFOUND) THEN
! READ(UNIT=ILUDES,NML=NAM_STATIONn)
! CALL UPDATE_NAM_STATIONn
! END IF
CALL POSNAM( TZDESFILE, 'NAM_FIREN', GFOUND )
CALL INIT_NAM_FIREn
IF (GFOUND) THEN
READ(UNIT=ILUDES,NML=NAM_FIREn)
CALL UPDATE_NAM_FIREn
END IF
CALL POSNAM( TZDESFILE, 'NAM_CONF', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_CONF)
CALL POSNAM( TZDESFILE, 'NAM_DYN', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_DYN)
CALL POSNAM( TZDESFILE, 'NAM_NESTING', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_NESTING)
CALL POSNAM( TZDESFILE, 'NAM_BACKUP', GFOUND )
IF (.NOT.ALLOCATED(XBAK_TIME)) THEN
ALLOCATE(XBAK_TIME(NMODEL,NFILE_NUM_MAX))
XBAK_TIME(:,:) = XNEGUNDEF
END IF
IF (.NOT.ALLOCATED(XOUT_TIME)) THEN
ALLOCATE(XOUT_TIME(NMODEL,NFILE_NUM_MAX)) !Allocate *OUT* variables to prevent
XOUT_TIME(:,:) = XNEGUNDEF
END IF
IF (.NOT.ALLOCATED(NBAK_STEP)) THEN
ALLOCATE(NBAK_STEP(NMODEL,NFILE_NUM_MAX))
NBAK_STEP(:,:) = NNEGUNDEF
END IF
IF (.NOT.ALLOCATED(NOUT_STEP)) THEN
ALLOCATE(NOUT_STEP(NMODEL,NFILE_NUM_MAX)) !problems if NAM_OUTPUT does not exist
NOUT_STEP(:,:) = NNEGUNDEF
END IF
IF (.NOT.ALLOCATED(COUT_VAR)) THEN
ALLOCATE(COUT_VAR (NMODEL,JPOUTVARMAX))
COUT_VAR(:,:) = ''
END IF
READ(UNIT=ILUDES,NML=NAM_BACKUP)
WAUTELET Philippe
committed
ELSE
CALL POSNAM( TZDESFILE, 'NAM_FMOUT', GFOUND )
IF (GFOUND) CALL PRINT_MSG(NVERB_FATAL,'IO','READ_DESFM_n','use namelist NAM_BACKUP instead of namelist NAM_FMOUT')
END IF
CALL POSNAM( TZDESFILE, 'NAM_OUTPUT', GFOUND )
IF (GFOUND) THEN
IF (.NOT.ALLOCATED(XBAK_TIME)) THEN
ALLOCATE(XBAK_TIME(NMODEL,NFILE_NUM_MAX)) !Allocate *BAK* variables to prevent
XBAK_TIME(:,:) = XNEGUNDEF
END IF
IF (.NOT.ALLOCATED(XOUT_TIME)) THEN
ALLOCATE(XOUT_TIME(NMODEL,NFILE_NUM_MAX))
XOUT_TIME(:,:) = XNEGUNDEF
END IF
IF (.NOT.ALLOCATED(NBAK_STEP)) THEN
ALLOCATE(NBAK_STEP(NMODEL,NFILE_NUM_MAX)) !problems if NAM_BACKUP does not exist
NBAK_STEP(:,:) = NNEGUNDEF
END IF
IF (.NOT.ALLOCATED(NOUT_STEP)) THEN
ALLOCATE(NOUT_STEP(NMODEL,NFILE_NUM_MAX))
NOUT_STEP(:,:) = NNEGUNDEF
END IF
IF (.NOT.ALLOCATED(COUT_VAR)) THEN
ALLOCATE(COUT_VAR (NMODEL,JPOUTVARMAX))
COUT_VAR(:,:) = ''
END IF
READ(UNIT=ILUDES,NML=NAM_OUTPUT)
WAUTELET Philippe
committed
! Note: it is not useful to read the budget namelists in the .des files
WAUTELET Philippe
committed
! The values here (if present in file) don't need to be compared with the ones in the EXSEGn files
! CALL POSNAM( TZDESFILE, 'NAM_BUDGET', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BUDGET)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RU', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RU)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RV', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RV)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RW', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RW)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RTH', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RTH)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RTKE', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RTKE)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRV', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRV)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRC', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRC)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRR', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRR)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRI', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRI)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRS', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRS)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRG', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRG)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RRH', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RRH)
! CALL POSNAM( TZDESFILE, 'NAM_BU_RSV', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BU_RSV)
CALL POSNAM( TZDESFILE, 'NAM_LES', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_LES)
CALL POSNAM( TZDESFILE, 'NAM_PDF', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_PDF)
CALL POSNAM( TZDESFILE, 'NAM_FRC', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_FRC)
CALL POSNAM( TZDESFILE, 'NAM_PARAM_C2R2', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_PARAM_C2R2)
CALL POSNAM( TZDESFILE, 'NAM_PARAM_C1R3', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_PARAM_C1R3)
RODIER Quentin
committed
CALL PARAM_LIMA_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .TRUE., .FALSE., 0)
CALL POSNAM( TZDESFILE, 'NAM_ELEC', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_ELEC)
CALL POSNAM( TZDESFILE, 'NAM_SERIES', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_SERIES)
CALL POSNAM( TZDESFILE, 'NAM_CH_ORILAM', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_CH_ORILAM)
CALL POSNAM( TZDESFILE, 'NAM_DUST', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_DUST)
CALL POSNAM( TZDESFILE, 'NAM_SALT', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_SALT)
CALL POSNAM( TZDESFILE, 'NAM_PASPOL', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_PASPOL)
#ifdef MNH_FOREFIRE
CALL POSNAM( TZDESFILE, 'NAM_FOREFIRE', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_FOREFIRE)
#endif
CALL POSNAM( TZDESFILE, 'NAM_CONDSAMP', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_CONDSAMP)
CALL POSNAM( TZDESFILE, 'NAM_BLOWSNOW', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_BLOWSNOW)
CALL POSNAM( TZDESFILE, 'NAM_2D_FRC', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_2D_FRC)
LTEMPDEPOS_DST(:) = LDEPOS_DST(:)
LTEMPDEPOS_SLT(:) = LDEPOS_SLT(:)
LTEMPDEPOS_AER(:) = LDEPOS_AER(:)
CALL POSNAM( TZDESFILE, 'NAM_LATZ_EDFLX', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_LATZ_EDFLX)
CALL POSNAM( TZDESFILE, 'NAM_VISC', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_VISC)
WAUTELET Philippe
committed
! Note: it is not useful to read the FLYERS/AIRCRAFTS/BALLOONS namelists in the .des files
! The values here (if present in file) don't need to be compared with the ones in the EXSEGn files
! CALL POSNAM( TZDESFILE, 'NAM_FLYERS', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_FLYERS)
! CALL POSNAM(ILUSEG,'NAM_AIRCRAFTS', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_AIRCRAFTS)
! CALL POSNAM(ILUSEG,'NAM_BALLOONS', GFOUND )
WAUTELET Philippe
committed
! IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_BALLOONS)
END IF
!
!-------------------------------------------------------------------------------
!
!* 2. SAVE SOME FMFILE ATTRIBUTES
! ---------------------------
HCONF = CCONF
OFLAT = LFLAT
OUSERV = LUSERV
OUSERC = LUSERC
OUSERR = LUSERR
OUSERI = LUSERI
OUSECI = LUSECI
OUSERS = LUSERS
OUSERG = LUSERG
OUSERH = LUSERH
OUSECHEM = LUSECHEM
OUSECHAQ = LUSECHAQ
OUSECHIC = LUSECHIC
OCH_PH = LCH_PH
OCH_CONV_LINOX = LCH_CONV_LINOX
ODUST = LDUST
ODEPOS_DST(KMI) = LTEMPDEPOS_DST(KMI)
ODEPOS_SLT(KMI) = LTEMPDEPOS_SLT(KMI)
ODEPOS_AER(KMI) = LTEMPDEPOS_AER(KMI)
OSALT = LSALT
OORILAM = LORILAM
OLG = LLG
OPASPOL = LPASPOL
#ifdef MNH_FOREFIRE
OFOREFIRE = LFOREFIRE
#endif
OLNOX_EXPLICIT = LLNOX_EXPLICIT
OBLOWSNOW= LBLOWSNOW
! Initially atmosphere free of blowing snow particles
IF(KMI>1) OBLOWSNOW=.FALSE.
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
KRIMX = NRIMX
KRIMY = NRIMY
KSV_USER = NSV_USER
HTURB = CTURB
HTOM = CTOM
ORMC01 = LRMC01
HRAD = CRAD
HDCONV = CDCONV
HSCONV = CSCONV
HCLOUD = CCLOUD
HELEC = CELEC
HEQNSYS = CEQNSYS
!
!-------------------------------------------------------------------------------
!
!* 3. WRITE DESFM ON OUTPUT LISTING
! ------------------------------
!
IF (NVERB >= 10) THEN
WRITE(UNIT=ILUOUT,FMT="(/,'DESCRIPTOR OF INITIAL FILE FOR MODEL ',I2)") KMI
WRITE(UNIT=ILUOUT,FMT="( '------------------------------------ ' )")
!
WRITE(UNIT=ILUOUT,FMT="('********** LOGICAL UNITSn **********')")
WRITE(UNIT=ILUOUT,NML=NAM_LUNITn)
!
WRITE(UNIT=ILUOUT,FMT="('********** CONFIGURATIONn **********')")
WRITE(UNIT=ILUOUT,NML=NAM_CONFn)
!
WRITE(UNIT=ILUOUT,FMT="('********** DYNAMICn ****************')")
WRITE(UNIT=ILUOUT,NML=NAM_DYNn)
!
WRITE(UNIT=ILUOUT,FMT="('********** ADVECTIONn **************')")
WRITE(UNIT=ILUOUT,NML=NAM_ADVn)
!
WRITE(UNIT=ILUOUT,FMT="('********** PARAMETERIZATIONSn ******')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAMn)
!
WRITE(UNIT=ILUOUT,FMT="('********** RADIATIONSn *************')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_RADn)
!
#ifdef MNH_ECRAD
WRITE(UNIT=ILUOUT,FMT="('********** ECRAD RADIATIONSn *************')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_ECRADn)
#endif
!
WRITE(UNIT=ILUOUT,FMT="('********** DEEP CONVECTIONn ********')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_KAFRn)
!
WRITE(UNIT=ILUOUT,FMT="('*** MASS FLUX SHALLOW CONVECTION ***')")
RODIER Quentin
committed
CALL PARAM_MFSHALLN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .FALSE., .FALSE., 2)
!
WRITE(UNIT=ILUOUT,FMT="('********** LBCn ********************')")
WRITE(UNIT=ILUOUT,NML=NAM_LBCn)
!
WRITE(UNIT=ILUOUT,FMT="('********** TURBn *******************')")
RODIER Quentin
committed
CALL TURBN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .FALSE., .FALSE., 2)
!
WRITE(UNIT=ILUOUT,FMT="('********** NEBn *******************')")
CALL NEBN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .FALSE., .FALSE., 2)
!
WRITE(UNIT=ILUOUT,FMT="('********** DRAGn *******************')")
WRITE(UNIT=ILUOUT,NML=NAM_DRAGn)
RODIER Quentin
committed
!
WRITE(UNIT=ILUOUT,FMT="('********** IBM FORCING *************')")
WRITE(UNIT=ILUOUT,NML=NAM_IBM_PARAMn)
!
WRITE(UNIT=ILUOUT,FMT="('********** RECYLING *************')")
WRITE(UNIT=ILUOUT,NML=NAM_RECYCL_PARAMn)
!
WRITE(UNIT=ILUOUT,FMT="('********** NUDGINGn ****************')")
WRITE(UNIT=ILUOUT,NML=NAM_NUDGINGn)
!
WRITE(UNIT=ILUOUT,FMT="('********** CHEMICAL MONITORn *******')")
WRITE(UNIT=ILUOUT,NML=NAM_CH_MNHCn)
!
WAUTELET Philippe
committed
WRITE(UNIT=ILUOUT,FMT="('********** CHEMICAL SOLVER *********')")
WRITE(UNIT=ILUOUT,NML=NAM_CH_SOLVERn)
WAUTELET Philippe
committed
WRITE(UNIT=ILUOUT,FMT="('********** BLOWSNOWn ***************')")
RODIER Quentin
committed
WRITE(UNIT=ILUOUT,NML=NAM_BLOWSNOWn)
!
WAUTELET Philippe
committed
WRITE(UNIT=ILUOUT,FMT="('********** BLANKn ******************')")
WRITE(UNIT=ILUOUT,NML=NAM_BLANKn)
WAUTELET Philippe
committed
! Profilers/stations namelists not read anymore in READ_DESFM_n
! WRITE(UNIT=ILUOUT,FMT="('********** PROFILERn *****************')")
! WRITE(UNIT=ILUOUT,NML=NAM_PROFILERn)
WAUTELET Philippe
committed
! WRITE(UNIT=ILUOUT,FMT="('********** STATIONn ******************')")
! WRITE(UNIT=ILUOUT,NML=NAM_STATIONn)
RODIER Quentin
committed
WRITE(UNIT=ILUOUT,FMT="('************ ICE SCHEME ***********************')")
CALL PARAM_ICEN_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .FALSE., .FALSE., 2)
!
WRITE(UNIT=ILUOUT,FMT="('********** BLAZE *******************')")
WRITE(UNIT=ILUOUT,NML=NAM_FIREn)
WAUTELET Philippe
committed
!
IF (KMI==1) THEN
WRITE(UNIT=ILUOUT,FMT="(/,'PART OF INITIAL FILE COMMON TO ALL THE MODELS')")
WRITE(UNIT=ILUOUT,FMT="( '---------------------------------------------')")
!
WRITE(UNIT=ILUOUT,FMT="('************ CONFIGURATION ********************')")
WRITE(UNIT=ILUOUT,NML=NAM_CONF)
!
WRITE(UNIT=ILUOUT,FMT="('************ DYNAMIC **************************')")
WRITE(UNIT=ILUOUT,NML=NAM_DYN)
!
WAUTELET Philippe
committed
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
! Budget namelists not read anymore in READ_DESFM_n
! WRITE(UNIT=ILUOUT,FMT="('************ BUDGET ***************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BUDGET)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ U BUDGET *************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RU)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ V BUDGET *************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RV)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ W BUDGET *************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RW)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ TH BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RTH)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ TKE BUDGET ***********************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RTKE)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RV BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRV)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RC BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRC)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RR BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRR)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RI BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRI)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RS BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRS)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RG BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRG)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ RH BUDGET ************************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RRH)
! !
! WRITE(UNIT=ILUOUT,FMT="('************ SVx BUDGET ***********************')")
! WRITE(UNIT=ILUOUT,NML=NAM_BU_RSV)
!
WRITE(UNIT=ILUOUT,FMT="('************ LES ******************************')")
WRITE(UNIT=ILUOUT,NML=NAM_LES)
!
WRITE(UNIT=ILUOUT,FMT="('************ PDF ******************************')")
WRITE(UNIT=ILUOUT,NML=NAM_PDF)
!
WRITE(UNIT=ILUOUT,FMT="('************ FORCING **************************')")
WRITE(UNIT=ILUOUT,NML=NAM_FRC)
!
WRITE(UNIT=ILUOUT,FMT="('************ ORILAM SCHEME ********************')")
WRITE(UNIT=ILUOUT,NML=NAM_CH_ORILAM)
!
WRITE(UNIT=ILUOUT,FMT="('************ SALT SCHEME **********************')")
WRITE(UNIT=ILUOUT,NML=NAM_SALT)
!
WRITE(UNIT=ILUOUT,FMT="('************ DUST SCHEME **********************')")
WRITE(UNIT=ILUOUT,NML=NAM_DUST)
!
WRITE(UNIT=ILUOUT,FMT="('************ PASSIVE POLLUTANT ***************')")
WRITE(UNIT=ILUOUT,NML=NAM_PASPOL)
!
WRITE(UNIT=ILUOUT,FMT="('************ VISCOSITY ***************')")
WRITE(UNIT=ILUOUT,NML=NAM_VISC)
#ifdef MNH_FOREFIRE
WRITE(UNIT=ILUOUT,FMT="('************ FOREFIRE ***************')")
WRITE(UNIT=ILUOUT,NML=NAM_FOREFIRE)
!
WRITE(UNIT=ILUOUT,FMT="('************ CONDITIONAL SAMPLING *************')")
WRITE(UNIT=ILUOUT,NML=NAM_CONDSAMP)
!
WRITE(UNIT=ILUOUT,FMT="('********** BLOWING SNOW SCHEME******************')")
WRITE(UNIT=ILUOUT,NML=NAM_BLOWSNOW)
!
IF( CCLOUD == 'C2R2' ) THEN
WRITE(UNIT=ILUOUT,FMT="('************ C2R2 SCHEME **********************')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_C2R2)
END IF
!
IF( CCLOUD == 'KHKO' ) THEN !modif
WRITE(UNIT=ILUOUT,FMT="('************ KHKO SCHEME **********************')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_C2R2)
END IF
!
IF( CCLOUD == 'C3R5' ) THEN
WRITE(UNIT=ILUOUT,FMT="('************ C3R5 SCHEME **********************')")
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_C2R2)
WRITE(UNIT=ILUOUT,NML=NAM_PARAM_C1R3)
END IF
!
IF( CCLOUD == 'LIMA' ) THEN
WRITE(UNIT=ILUOUT,FMT="('************ LIMA SCHEME **********************')")
RODIER Quentin
committed
CALL PARAM_LIMA_INIT(CPROGRAM, TZDESFILE, .FALSE., ILUOUT, .FALSE., .FALSE., .FALSE., 2)
!
IF (CELEC /= 'NONE') THEN
WRITE(UNIT=ILUOUT,FMT="('************ ELEC SCHEME **********************')")
WRITE(UNIT=ILUOUT,NML=NAM_ELEC)
END IF
!
END IF
!
END IF
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE READ_DESFM_n