cable_mpiworker Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private		::	inp_t
integer,	private		::	send_t
integer,	private		::	casa_t
integer,	private		::	casa_dump_t
integer,	private		::	casa_LUC_t
integer,	private		::	climate_t
integer,	private		::	pop_t
integer,	private		::	restart_t
real,	private,	allocatable	::	heat_cap_lower_limit(:,:)

Subroutines

public subroutine mpidrv_worker(comm)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm

private subroutine worker_decomp(comm)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm

private subroutine worker_cable_params(comm, met, air, ssnow, veg, bgc, soil, canopy, rough, rad, sum_flux, bal)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(met_type),	intent(out)			::	met
type(air_type),	intent(out)			::	air
type(soil_snow_type),	intent(out)			::	ssnow
type(veg_parameter_type),	intent(out)			::	veg
type(bgc_pool_type),	intent(out)			::	bgc
type(soil_parameter_type),	intent(out)			::	soil
type(canopy_type),	intent(out)			::	canopy
type(roughness_type),	intent(out)			::	rough
type(radiation_type),	intent(out)			::	rad
type(sum_flux_type),	intent(out)			::	sum_flux
type(balances_type),	intent(out)			::	bal

private subroutine worker_casa_params(comm, casabiome, casapool, casaflux, casamet, casabal, phen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(casa_biome),	intent(out)			::	casabiome
type(casa_pool),	intent(out)			::	casapool
type(casa_flux),	intent(out)			::	casaflux
type(casa_met),	intent(out)			::	casamet
type(casa_balance),	intent(out)			::	casabal
type(phen_variable),	intent(out)			::	phen

private subroutine worker_intype(comm, met, veg)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(met_type),	intent(in)			::	met
type(veg_parameter_type),	intent(in)			::	veg

private subroutine worker_outtype(comm, met, canopy, ssnow, rad, bal, air, soil, veg)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm
type(met_type),	intent(in)			::	met
type(canopy_type),	intent(in)			::	canopy
type(soil_snow_type),	intent(in)			::	ssnow
type(radiation_type),	intent(in)			::	rad
type(balances_type),	intent(inout)			::	bal
type(air_type),	intent(in)			::	air
type(soil_parameter_type),	intent(in)			::	soil
type(veg_parameter_type),	intent(in)			::	veg

private subroutine worker_casa_type(comm, casapool, casaflux, casamet, casabal, phen)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm
type(casa_pool),	intent(inout)			::	casapool
type(casa_flux),	intent(inout)			::	casaflux
type(casa_met),	intent(inout)			::	casamet
type(casa_balance),	intent(inout)			::	casabal
type(phen_variable),	intent(inout)			::	phen

private subroutine worker_climate_types(comm, climate, ktauday)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(climate_type),	intent(inout)			::	climate
integer,	intent(in)			::	ktauday

private subroutine worker_restart_type(comm, canopy, air, bgc)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	comm
type(canopy_type),	intent(in)			::	canopy
type(air_type),	intent(in)			::	air
type(bgc_pool_type),	intent(in)			::	bgc

private subroutine worker_casa_dump_types(comm, casamet, casaflux, phen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(casa_met),	intent(inout)			::	casamet
type(casa_flux),	intent(inout)			::	casaflux
type(phen_variable),	intent(inout)			::	phen

private subroutine worker_casa_LUC_types(comm, casapool, casabal)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(casa_pool),	intent(in)			::	casapool
type(casa_balance),	intent(in)			::	casabal

private subroutine worker_pop_types(comm, veg, pop)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comm
type(veg_parameter_type),	intent(in)			::	veg
type(POP_TYPE),	intent(inout)			::	pop

private subroutine worker_send_pop(pop, comm)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(in)			::	pop
integer,	intent(in)			::	comm

private subroutine worker_end(icycle, restart)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	icycle
logical				::	restart

private subroutine worker_spincasacnp(dels, kstart, kend, mloop, veg, soil, casabiome, casapool, casaflux, casamet, casabal, phen, POP, climate, LALLOC, icomm, ocomm)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	dels
integer,	intent(in)			::	kstart
integer,	intent(in)			::	kend
integer,	intent(in)			::	mloop
type(veg_parameter_type),	intent(inout)			::	veg
type(soil_parameter_type),	intent(inout)			::	soil
type(casa_biome),	intent(inout)			::	casabiome
type(casa_pool),	intent(inout)			::	casapool
type(casa_flux),	intent(inout)			::	casaflux
type(casa_met),	intent(inout)			::	casamet
type(casa_balance),	intent(inout)			::	casabal
type(phen_variable),	intent(inout)			::	phen
type(POP_TYPE),	intent(inout)			::	POP
type(climate_type),	intent(inout)			::	climate
integer,	intent(in)			::	LALLOC
integer,	intent(in)			::	icomm
integer,	intent(in)			::	ocomm

private subroutine worker_CASAONLY_LUC(dels, kstart, kend, veg, soil, casabiome, casapool, casaflux, casamet, casabal, phen, POP, climate, LALLOC, icomm, ocomm)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	dels
integer,	intent(in)			::	kstart
integer,	intent(in)			::	kend
type(veg_parameter_type),	intent(inout)			::	veg
type(soil_parameter_type),	intent(inout)			::	soil
type(casa_biome),	intent(inout)			::	casabiome
type(casa_pool),	intent(inout)			::	casapool
type(casa_flux),	intent(inout)			::	casaflux
type(casa_met),	intent(inout)			::	casamet
type(casa_balance),	intent(inout)			::	casabal
type(phen_variable),	intent(inout)			::	phen
type(POP_TYPE),	intent(inout)			::	POP
type(climate_type),	intent(inout)			::	climate
integer,	intent(in)			::	LALLOC
integer,	intent(in)			::	icomm
integer,	intent(in)			::	ocomm