Next: 9.2 TM5 versus TM4 Up: 9. Emissions Previous: 9. Emissions

9.1 Structure TM5 emissions

Module: emission.F90

Shared subroutines:

declare_emission
- purpose: allocation emission variables and reading emis input files
- called by: trace0 (sources_sinks.F90)
emission_apply
- purpose: application of emissions in model run (per region!)
- called by: source1 (sources_sinks.F90) [source1 does nothing else!]
free_emission
- purpose: deallocation emission variables and writing to budget file
- called by: trace_end (sources_sinks.F90)
get_dms
- purpose: calculate ocean DMS flux
- called by: trace_after_read (sources_sinks.F90)

Also relevant:

subroutine source2 in sources_sinks.F90
- purpose: apply boundary conditions for O and HNO

General procedure for each emission (in declare_emission):

`filename`	[in]	name of emission HDF file
`rank`	[in]	rank of emission field (1,2,3,or 23 for lat-pres)
`im_emis`	[in]	nr. longitudes
`jm_emis`	[in]	nr. latitudes
`lm_emis`	[in]	nr. levels
`month`	[in]	requested month (Jan = 0!!)
`field`	[out]	variable to put field in: array (`im_emis,jm_emis,lm_emis`)
`field_name`	[in]	name of field in HDF file

Do some kind of (re)distribution (e.g., over vertical levels)
call coarsen_emission_1d (similarly 2d, 3d, 23d: interfaced to coarsen_emission)

`name_field`	[in]	name of the field (only for printing reasons)
`jm_emis`	[in]	nr. latitudes
`field_in`	[in]	input field: array (`jm_emis`)
`field`	[out]	output field: `type(d2data), dimension(nregions)`
`avg`	[in]	adding mode (0=sum; 1=area-weighted mean)

Actions (in emission_apply):

call scale_isop (toolbox.F90: calculate diurnal distribution isoprene emissions
call do_add_2d or call do_add_3d for all emission fields
call do_add_isop for isoprene emissions
Additional compilation and application of $^{222}$ Rn emissions
call lspscav: wet removal by large-scale precipitation (why here?). In TM4 there is advection between emissions and wet deposition

Storage of emission/boundary-condition fields:

Next: 9.2 TM5 versus TM4 Up: 9. Emissions Previous: 9. Emissions

Created at IMAU on Tue Mar 3 05:00:05 CET 2009 by a slave chained in the basement