casa_coeffsoil Subroutine

public subroutine casa_coeffsoil(xklitter, xksoil, veg, soil, casabiome, casaflux, casamet)

bitwiseWHERE( veg%iveg == c3_cropland .OR. veg%iveg == c4_cropland ) ! for cultivated land type

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(mp)	::	xklitter
real(kind=r_2),	intent(in),		DIMENSION(mp)	::	xksoil
type(veg_parameter_type),	intent(inout)			::	veg
type(soil_parameter_type),	intent(inout)			::	soil
type(casa_biome),	intent(inout)			::	casabiome
type(casa_flux),	intent(inout)			::	casaflux
type(casa_met),	intent(inout)			::	casamet