phytracr_spl_mod – Fortran Program

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! AS: SUBROUTINE readscaleparams_spl pas appellee

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

scale_param_ssacc scale_param_sscoa scale_param_ind scale_param_bb scale_param_ff scale_param_dustacc scale_param_dustcoa scale_param_dustsco param_wstarBLperregion param_wstarWAKEperregion dust_ec u10m_ec v10m_ec fileregionsdimsind fileregionsdimsdust fileregionsdimsbb fileregionsdimswstar paramname_ind paramname_bb paramname_ff paramname_dustacc paramname_dustcoa paramname_dustsco paramname_ssacc paramname_sscoa paramname_wstarBL paramname_wstarWAKE filescaleparams paramsname lmt_so2volc_cont lmt_altvolc_cont lmt_so2volc_expl lmt_altvolc_expl lmt_so2ff_l lmt_so2ff_h lmt_so2nff lmt_so2ba lmt_so2bb_l lmt_so2bb_h lmt_dmsconc lmt_dmsbio lmt_h2sbio lmt_bcff lmt_bcnff lmt_bcbb_l lmt_bcbb_h lmt_bcba lmt_omff lmt_omnff lmt_ombb_l lmt_ombb_h lmt_omnat lmt_omba lmt_sea_salt tsol ijulday edgar flag_dms nbjour d_tr_cl d_tr_dec d_tr_cv d_tr_insc d_tr_bcscav d_tr_evapls d_tr_ls d_tr_trsp d_tr_sscav d_tr_sat d_tr_uscav qPr qDi qPa qMel qTrdi dtrcvMA d_tr_th d_tr_lessi_impa d_tr_lessi_nucl qPrls d_tr_dry flux_tr_dry id_prec id_fine id_coss id_codu id_scdu diff_aod550_tot diag_aod670_tot diag_aod865_tot diff_aod550_tr2 diag_aod670_tr2 diag_aod865_tr2 diag_aod550_ss diag_aod670_ss diag_aod865_ss diag_aod550_dust diag_aod670_dust diag_aod865_dust diag_aod550_dustsco diag_aod670_dustsco diag_aod865_dustsco aod550_terra aod550_tr2_terra aod550_ss_terra aod550_dust_terra aod550_dustsco_terra aod670_terra aod670_tr2_terra aod670_ss_terra aod670_dust_terra aod670_dustsco_terra aod865_terra aod865_tr2_terra aod865_ss_terra aod865_dust_terra aod865_dustsco_terra aod550_aqua aod550_tr2_aqua aod550_ss_aqua aod550_dust_aqua aod550_dustsco_aqua aod670_aqua aod670_tr2_aqua aod670_ss_aqua aod670_dust_aqua aod670_dustsco_aqua aod865_aqua aod865_tr2_aqua aod865_ss_aqua aod865_dust_aqua aod865_dustsco_aqua sconc01 trm01 sconc02 trm02 sconc03 trm03 sconc04 trm04 sconc05 trm05 flux01 flux02 flux03 flux04 flux05 ds01 ds02 ds03 ds04 ds05 dh01 dh02 dh03 dh04 dh05 dtrconv01 dtrconv02 dtrconv03 dtrconv04 dtrconv05 dtherm01 dtherm02 dtherm03 dtherm04 dtherm05 dhkecv01 dhkecv02 dhkecv03 dhkecv04 dhkecv05 d_tr_ds01 d_tr_ds02 d_tr_ds03 d_tr_ds04 d_tr_ds05 dhkelsc01 dhkelsc02 dhkelsc03 dhkelsc04 dhkelsc05 d_tr_cv01 d_tr_cv02 d_tr_cv03 d_tr_cv04 d_tr_cv05 d_tr_trsp01 d_tr_trsp02 d_tr_trsp03 d_tr_trsp04 d_tr_trsp05 d_tr_sscav01 d_tr_sscav02 d_tr_sscav03 d_tr_sscav04 d_tr_sscav05 d_tr_sat01 d_tr_sat02 d_tr_sat03 d_tr_sat04 d_tr_sat05 d_tr_uscav01 d_tr_uscav02 d_tr_uscav03 d_tr_uscav04 d_tr_uscav05 d_tr_insc01 d_tr_insc02 d_tr_insc03 d_tr_insc04 d_tr_insc05 d_tr_bcscav01 d_tr_bcscav02 d_tr_bcscav03 d_tr_bcscav04 d_tr_bcscav05 d_tr_evapls01 d_tr_evapls02 d_tr_evapls03 d_tr_evapls04 d_tr_evapls05 d_tr_ls01 d_tr_ls02 d_tr_ls03 d_tr_ls04 d_tr_ls05 d_tr_dyn01 d_tr_dyn02 d_tr_dyn03 d_tr_dyn04 d_tr_dyn05 d_tr_cl01 d_tr_cl02 d_tr_cl03 d_tr_cl04 d_tr_cl05 d_tr_th01 d_tr_th02 d_tr_th03 d_tr_th04 d_tr_th05 sed_ss3D sed_dust3D sed_dustsco3D sed_ss sed_dust sed_dustsco his_g2pgas his_g2paer fluxbb fluxff fluxbcbb fluxbcff fluxbcnff fluxbcba fluxbc fluxombb fluxomff fluxomnff fluxomba fluxomnat fluxom fluxh2sff fluxh2snff fluxso2ff fluxso2nff fluxso2bb fluxso2vol fluxso2ba fluxso2 fluxso4ff fluxso4nff fluxso4bb fluxso4ba fluxso4 fluxdms fluxh2sbio fluxdustec fluxddfine fluxddcoa fluxddsco fluxdd fluxssfine fluxsscoa fluxss flux_sparam_ind flux_sparam_bb flux_sparam_ff flux_sparam_ddfine flux_sparam_ddcoa flux_sparam_ddsco flux_sparam_ssfine flux_sparam_sscoa u10m_ss v10m_ss ok_chimeredust

Subroutines

phytracr_spl_out_init phytracr_spl_ini phytracr_spl readregionsdims2_spl readregionsdims_spl readregions_spl readscaleparams_spl readscaleparamsnc_spl read_scalenc

Variables

Type	Visibility	Attributes		Name		Initial
real,	public,	SAVE	::	scale_param_ssacc
real,	public,	SAVE	::	scale_param_sscoa
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	scale_param_ind
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	scale_param_bb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	scale_param_ff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	scale_param_dustacc
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	scale_param_dustcoa
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	scale_param_dustsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	param_wstarBLperregion
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	param_wstarWAKEperregion
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dust_ec
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	u10m_ec
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	v10m_ec
character(len=800),	public		::	fileregionsdimsind
character(len=800),	public		::	fileregionsdimsdust
character(len=800),	public		::	fileregionsdimsbb
character(len=800),	public		::	fileregionsdimswstar
character(len=100),	public		::	paramname_ind
character(len=100),	public		::	paramname_bb
character(len=100),	public		::	paramname_ff
character(len=100),	public		::	paramname_dustacc
character(len=100),	public		::	paramname_dustcoa
character(len=100),	public		::	paramname_dustsco
character(len=100),	public		::	paramname_ssacc
character(len=100),	public		::	paramname_sscoa
character(len=100),	public		::	paramname_wstarBL
character(len=100),	public		::	paramname_wstarWAKE
character(len=800),	public		::	filescaleparams
character(len=800),	public		::	paramsname
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2volc_cont
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_altvolc_cont
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2volc_expl
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_altvolc_expl
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2ff_l
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2ff_h
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2nff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2ba
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2bb_l
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_so2bb_h
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_dmsconc
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_dmsbio
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_h2sbio
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_bcff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_bcnff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_bcbb_l
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_bcbb_h
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_bcba
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_omff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_omnff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_ombb_l
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_ombb_h
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_omnat
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	lmt_omba
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	lmt_sea_salt
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	tsol
integer,	public		::	ijulday
logical,	public,	parameter	::	edgar	=	.true.
integer,	public,	parameter	::	flag_dms	=	4
integer(kind=4),	public		::	nbjour
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_cl
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_dec
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_cv
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_insc
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_bcscav
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_evapls
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_ls
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_trsp
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_sscav
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_sat
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_uscav
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	qPr
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	qDi
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	qPa
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	qMel
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	qTrdi			RomP <<<
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	dtrcvMA			RomP <<<
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_th
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_lessi_impa
real,	public,	DIMENSION(:,:,:), ALLOCATABLE, SAVE	::	d_tr_lessi_nucl
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	qPrls
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_dry
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	flux_tr_dry
integer,	public,	SAVE	::	id_prec
integer,	public,	SAVE	::	id_fine
integer,	public,	SAVE	::	id_coss
integer,	public,	SAVE	::	id_codu
integer,	public,	SAVE	::	id_scdu
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diff_aod550_tot
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod670_tot
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod865_tot
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diff_aod550_tr2
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod670_tr2
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod865_tr2
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod550_ss
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod670_ss
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod865_ss
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod550_dust
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod670_dust
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod865_dust
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod550_dustsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod670_dustsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	diag_aod865_dustsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_tr2_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_ss_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_dust_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_dustsco_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_tr2_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_ss_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_dust_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_dustsco_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_tr2_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_ss_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_dust_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_dustsco_terra
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_tr2_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_ss_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_dust_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod550_dustsco_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_tr2_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_ss_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_dust_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod670_dustsco_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_tr2_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_ss_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_dust_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	aod865_dustsco_aqua
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sconc01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	trm01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sconc02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	trm02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sconc03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	trm03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sconc04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	trm04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sconc05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	trm05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	ds01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	ds02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	ds03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	ds04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	ds05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dh01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dh02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dh03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dh04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dh05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtrconv01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtrconv02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtrconv03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtrconv04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtrconv05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtherm01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtherm02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtherm03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtherm04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dtherm05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkecv01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkecv02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkecv03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkecv04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkecv05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	d_tr_ds01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	d_tr_ds02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	d_tr_ds03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	d_tr_ds04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	d_tr_ds05
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkelsc01
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkelsc02
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkelsc03
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkelsc04
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	dhkelsc05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cv01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cv02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cv03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cv04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cv05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_trsp01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_trsp02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_trsp03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_trsp04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_trsp05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sscav01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sscav02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sscav03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sscav04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sscav05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sat01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sat02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sat03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sat04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_sat05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_uscav01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_uscav02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_uscav03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_uscav04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_uscav05			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_insc01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_insc02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_insc03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_insc04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_insc05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_bcscav01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_bcscav02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_bcscav03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_bcscav04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_bcscav05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_evapls01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_evapls02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_evapls03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_evapls04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_evapls05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_ls01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_ls02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_ls03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_ls04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_ls05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_dyn01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_dyn02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_dyn03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_dyn04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_dyn05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cl01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cl02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cl03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cl04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_cl05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_th01
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_th02
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_th03
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_th04
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	d_tr_th05
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	sed_ss3D
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	sed_dust3D
real,	public,	DIMENSION(:,:), ALLOCATABLE, SAVE	::	sed_dustsco3D			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sed_ss
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sed_dust
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	sed_dustsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	his_g2pgas
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	his_g2paer
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxbb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxbcbb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxbcff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxbcnff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxbcba
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxbc
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxombb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxomff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxomnff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxomba
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxomnat
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxom
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxh2sff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxh2snff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso2ff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso2nff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso2bb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso2vol
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso2ba
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso2
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso4ff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso4nff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso4bb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso4ba
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxso4
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxdms
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxh2sbio
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxdustec
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxddfine
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxddcoa
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxddsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxdd
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxssfine
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxsscoa
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	fluxss
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_ind
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_bb
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_ff
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_ddfine
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_ddcoa
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_ddsco
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_ssfine
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	flux_sparam_sscoa
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	u10m_ss
real,	public,	DIMENSION(:), ALLOCATABLE, SAVE	::	v10m_ss
logical,	public,	parameter	::	ok_chimeredust	=	.TRUE.	!!!! !$OMP THREADPRIVATE(ok_chimeredust)

Subroutines

public subroutine phytracr_spl_out_init()

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

None

public subroutine phytracr_spl_ini(klon, nbreg_ind, nbreg_bb, nbreg_dust, nbreg_wstardust)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type		Name
integer	::	klon
integer	::	nbreg_ind
integer	::	nbreg_bb
integer	::	nbreg_dust
integer	::	nbreg_wstardust

public subroutine phytracr_spl(debutphy, lafin, jD_cur, jH_cur, iflag_conv, pdtphys, ftsol, t_seri, q_seri, paprs, pplay, RHcl, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, coefh, cdragh, cdragm, yu1, yv1, u_seri, v_seri, rlat, rlon, pphis, pctsrf, pmflxr, pmflxs, prfl, psfl, da, phi, phi2, d1a, dam, mp, ep, sigd, sij, clw, elij, epmlmMm, eplaMm, upwd, dnwd, itop_con, ibas_con, evapls, wdtrainA, wdtrainM, wght_cvfd, fm_therm, entr_therm, rneb, beta_fisrt, beta_v1, zu10m, zv10m, wstar, ale_bl, ale_wake, nsurfwind, wind10ms, probu, d_tr_dyn, tr_seri)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Attributes		Name
logical,	intent(in)		::	debutphy
logical,	intent(in)		::	lafin
real,	intent(in)		::	jD_cur
real,	intent(in)		::	jH_cur
integer,	intent(in)		::	iflag_conv
real,	intent(in)		::	pdtphys
real,	intent(in)		::	ftsol(klon,nbsrf)
real,	intent(in)		::	t_seri(klon,klev)
real,	intent(in)		::	q_seri(klon,klev)
real,	intent(in)		::	paprs(klon,klev+1)
real,	intent(in)		::	pplay(klon,klev)
real,	intent(in)		::	RHcl(klon,klev)
real,	intent(in)		::	pmfu(klon,klev)
real,	intent(in)		::	pmfd(klon,klev)
real,	intent(in)		::	pen_u(klon,klev)
real,	intent(in)		::	pde_u(klon,klev)
real,	intent(in)		::	pen_d(klon,klev)
real,	intent(in)		::	pde_d(klon,klev)	Variables pour le lessivage convectif
real,	intent(in)		::	coefh(klon,klev)
real,	intent(in)		::	cdragh(klon)
real,	intent(in)		::	cdragm(klon)
real,	intent(in)		::	yu1(klon)
real,	intent(in)		::	yv1(klon)
real,	intent(in)		::	u_seri(klon,klev)
real,	intent(in)		::	v_seri(klon,klev)
real,	intent(in)		::	rlat(klon)
real,	intent(in)		::	rlon(klon)
real,	intent(in)		::	pphis(klon)
real,	intent(in)		::	pctsrf(klon,nbsrf)
real,	intent(in)		::	pmflxr(klon,klev+1)
real,	intent(in)		::	pmflxs(klon,klev+1)
real,	intent(in)		::	prfl(klon,klev+1)
real,	intent(in)		::	psfl(klon,klev+1)
real,	intent(in),	DIMENSION(klon,klev)	::	da
real,	intent(in),	DIMENSION(klon,klev,klev)	::	phi
real,	intent(in),	DIMENSION(klon,klev,klev)	::	phi2
real,	intent(in),	DIMENSION(klon,klev)	::	d1a
real,	intent(in),	DIMENSION(klon,klev)	::	dam
real,	intent(in),	DIMENSION(klon,klev)	::	mp
real,	intent(in),	DIMENSION(klon,klev)	::	ep
real,	intent(in),	DIMENSION(klon)	::	sigd
real,	intent(in),	DIMENSION(klon,klev,klev)	::	sij
real,	intent(in),	DIMENSION(klon,klev)	::	clw
real,	intent(in),	DIMENSION(klon,klev,klev)	::	elij
real,	intent(in),	DIMENSION(klon,klev,klev)	::	epmlmMm
real,	intent(in),	DIMENSION(klon,klev)	::	eplaMm
real,	intent(in),	DIMENSION(klon,klev)	::	upwd
real,	intent(in),	DIMENSION(klon,klev)	::	dnwd
integer,	intent(in),	DIMENSION(klon)	::	itop_con
integer,	intent(in),	DIMENSION(klon)	::	ibas_con
real,		DIMENSION(klon,klev)	::	evapls
real,	intent(in),	DIMENSION(klon,klev)	::	wdtrainA
real,	intent(in),	DIMENSION(klon,klev)	::	wdtrainM
real,	intent(in),	DIMENSION(klon,klev)	::	wght_cvfd
real,	intent(in),	DIMENSION(klon,klev+1)	::	fm_therm
real,	intent(inout),	DIMENSION(klon,klev)	::	entr_therm
real,	intent(in),	DIMENSION(klon,klev)	::	rneb
real,		DIMENSION(klon,klev)	::	beta_fisrt
real,		DIMENSION(klon,klev)	::	beta_v1
real,	intent(in),	DIMENSION(klon)	::	zu10m
real,	intent(in),	DIMENSION(klon)	::	zv10m
real,	intent(in),	DIMENSION(klon)	::	wstar	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real,	intent(in),	DIMENSION(klon)	::	ale_bl	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real,	intent(in),	DIMENSION(klon)	::	ale_wake	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
integer,	intent(in)		::	nsurfwind
real,	intent(in),	DIMENSION(klon,nsurfwind)	::	wind10ms
real,	intent(in),	DIMENSION(klon,nsurfwind)	::	probu
real,	intent(in),	DIMENSION(klon,klev,nbtr)	::	d_tr_dyn	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real			::	tr_seri(klon,klev,nbtr)

public subroutine readregionsdims2_spl(nbreg, fileregions)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nbreg
character(len=800)				::	fileregions

public subroutine readregionsdims_spl(nbreg_ind, fileregionsdimsind, nbreg_dust, fileregionsdimsdust, nbreg_bb, fileregionsdimsbb)

Arguments

Type		Name
integer	::	nbreg_ind
character(len=800)	::	fileregionsdimsind
integer	::	nbreg_dust
character(len=800)	::	fileregionsdimsdust
integer	::	nbreg_bb
character(len=800)	::	fileregionsdimsbb

public subroutine readregions_spl(iregion, filenameregion)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iregion(klon)
character(len=*)				::	filenameregion

public subroutine readscaleparams_spl(scale_param, nbreg, filescaleparams)

Arguments

Type		Name
real	::	scale_param(nbreg)
integer	::	nbreg
character(len=800)	::	filescaleparams

public subroutine readscaleparamsnc_spl(scale_param_ind, nbreg_ind, paramname_ind, scale_param_ff, nbreg_ff, paramname_ff, scale_param_bb, nbreg_bb, paramname_bb, scale_param_dustacc, nbreg_dustacc, paramname_dustacc, scale_param_dustcoa, nbreg_dustcoa, paramname_dustcoa, scale_param_dustsco, nbreg_dustsco, paramname_dustsco, param_wstarBLperregion, nbreg_wstardustBL, paramname_wstarBL, param_wstarWAKEperregion, nbreg_wstardustWAKE, paramname_wstarWAKE, scale_param_ssacc, paramname_ssacc, scale_param_sscoa, paramname_sscoa, filescaleparams, julien, jH_phys, pdtphys, debutphy)

Arguments

Type		Name
real	::	scale_param_ind(nbreg_ind)
integer	::	nbreg_ind
character(len=100)	::	paramname_ind
real	::	scale_param_ff(nbreg_ff)
integer	::	nbreg_ff
character(len=100)	::	paramname_ff
real	::	scale_param_bb(nbreg_bb)
integer	::	nbreg_bb
character(len=100)	::	paramname_bb
real	::	scale_param_dustacc(nbreg_dustacc)
integer	::	nbreg_dustacc
character(len=100)	::	paramname_dustacc
real	::	scale_param_dustcoa(nbreg_dustcoa)
integer	::	nbreg_dustcoa
character(len=100)	::	paramname_dustcoa
real	::	scale_param_dustsco(nbreg_dustsco)
integer	::	nbreg_dustsco
character(len=100)	::	paramname_dustsco
real	::	param_wstarBLperregion(nbreg_wstardustBL)
integer	::	nbreg_wstardustBL
character(len=100)	::	paramname_wstarBL
real	::	param_wstarWAKEperregion(nbreg_wstardustWAKE)
integer	::	nbreg_wstardustWAKE
character(len=100)	::	paramname_wstarWAKE
real	::	scale_param_ssacc
character(len=100)	::	paramname_ssacc
real	::	scale_param_sscoa
character(len=100)	::	paramname_sscoa
character(len=800)	::	filescaleparams
integer	::	julien
real	::	jH_phys
real	::	pdtphys
logical	::	debutphy

public subroutine read_scalenc(filescaleparams, paramname, nbreg, step_sca, scale_param)

Arguments

Type		Name
character(len=800)	::	filescaleparams
character(len=100)	::	paramname
integer	::	nbreg
integer	::	step_sca
real	::	scale_param(nbreg)

phytracr_spl_mod Module

Contents

Variables

Subroutines

Uses

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine phytracr_spl_out_init()

Arguments

public subroutine phytracr_spl_ini(klon, nbreg_ind, nbreg_bb, nbreg_dust, nbreg_wstardust)

Arguments

Arguments

public subroutine readregionsdims2_spl(nbreg, fileregions)

Arguments

public subroutine readregionsdims_spl(nbreg_ind, fileregionsdimsind, nbreg_dust, fileregionsdimsdust, nbreg_bb, fileregionsdimsbb)

Arguments

public subroutine readregions_spl(iregion, filenameregion)

Arguments

public subroutine readscaleparams_spl(scale_param, nbreg, filescaleparams)

Arguments

Arguments

public subroutine read_scalenc(filescaleparams, paramname, nbreg, step_sca, scale_param)

Arguments