casa_cnp_module Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=r_2), public, parameter :: zero = 0.0_r_2
real(kind=r_2), public, parameter :: one = 1.0_r_2

Functions

public function vcmax_np(nleaf, pleaf)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: nleaf
real, intent(in) :: pleaf

Return Value real


Subroutines

public subroutine casa_xnp(xnplimit, xNPuptake, veg, casabiome, casapool, casaflux, casamet)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(out), DIMENSION(mp) :: xnplimit
real(kind=r_2), intent(out), DIMENSION(mp) :: xNPuptake
type(veg_parameter_type), intent(inout) :: veg
type(casa_biome), intent(inout) :: casabiome
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet

public subroutine casa_allocation(veg, soil, casabiome, casaflux, casapool, casamet, phen, LALLOC)

Computes the fraction of net photosynthate allocated to leaf, wood and froot using an allocation scheme modified from Pierre Friedlingstein.

Read more…

Arguments

Type IntentOptional Attributes Name
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_pool), intent(inout) :: casapool
type(casa_met), intent(inout) :: casamet
type(phen_variable), intent(inout) :: phen
integer, intent(in) :: LALLOC

public subroutine casa_wolf(veg, casabiome, casaflux, casapool, casamet)

Carbon allocation algorithm implemented by Dan Qiu and YP Wang in 2011 based on Adam Wolf 1 and 2

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(in) :: veg
type(casa_biome), intent(in) :: casabiome
type(casa_flux), intent(inout) :: casaflux
type(casa_pool), intent(inout) :: casapool
type(casa_met), intent(in) :: casamet

public subroutine casa_xrateplant(xkleafcold, xkleafdry, xkleaf, veg, casabiome, casamet, phen)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(out), DIMENSION(mp) :: xkleafcold
real(kind=r_2), intent(out), DIMENSION(mp) :: xkleafdry
real(kind=r_2), intent(out), DIMENSION(mp) :: xkleaf
type(veg_parameter_type), intent(inout) :: veg
type(casa_biome), intent(inout) :: casabiome
type(casa_met), intent(inout) :: casamet
type(phen_variable), intent(inout) :: phen

public subroutine casa_xratesoil(xklitter, xksoil, veg, soil, casamet, casabiome)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(out), DIMENSION(mp) :: xklitter
real(kind=r_2), intent(out), DIMENSION(mp) :: xksoil
type(veg_parameter_type), intent(inout) :: veg
type(soil_parameter_type), intent(inout) :: soil
type(casa_met), intent(inout) :: casamet
type(casa_biome), intent(inout) :: casabiome

public subroutine casa_coeffplant(xkleafcold, xkleafdry, xkleaf, veg, casabiome, casapool, casaflux, casamet, phen)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(mp) :: xkleafcold
real(kind=r_2), intent(in), DIMENSION(mp) :: xkleafdry
real(kind=r_2), intent(in), DIMENSION(mp) :: xkleaf
type(veg_parameter_type), intent(inout) :: veg
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(phen_variable), intent(in) :: phen

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

Arguments

Type IntentOptional 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

public subroutine casa_delplant(veg, casabiome, casapool, casaflux, casamet, cleaf2met, cleaf2str, croot2met, croot2str, cwood2cwd, nleaf2met, nleaf2str, nroot2met, nroot2str, nwood2cwd, pleaf2met, pleaf2str, proot2met, proot2str, pwood2cwd)

revise turnover and NPP and dcplantdt to reflect above adjustments End of adjustments to avoid negative stores Ticket#108

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(inout) :: veg
type(casa_biome), intent(inout) :: casabiome
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet
real, intent(out), DIMENSION(mp) :: cleaf2met
real, intent(out), DIMENSION(mp) :: cleaf2str
real, intent(out), DIMENSION(mp) :: croot2met
real, intent(out), DIMENSION(mp) :: croot2str
real, intent(out), DIMENSION(mp) :: cwood2cwd
real, intent(out), DIMENSION(mp) :: nleaf2met
real, intent(out), DIMENSION(mp) :: nleaf2str
real, intent(out), DIMENSION(mp) :: nroot2met
real, intent(out), DIMENSION(mp) :: nroot2str
real, intent(out), DIMENSION(mp) :: nwood2cwd
real, intent(out), DIMENSION(mp) :: pleaf2met
real, intent(out), DIMENSION(mp) :: pleaf2str
real, intent(out), DIMENSION(mp) :: proot2met
real, intent(out), DIMENSION(mp) :: proot2str
real, intent(out), DIMENSION(mp) :: pwood2cwd

public subroutine casa_delsoil(veg, casapool, casaflux, casamet, casabiome)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(inout) :: veg
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet
type(casa_biome), intent(inout) :: casabiome

public subroutine avgsoil(veg, soil, casamet)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(inout) :: veg
type(soil_parameter_type), intent(inout) :: soil
type(casa_met), intent(inout) :: casamet

public subroutine casa_xkN(xkNlimiting, casapool, casaflux, casamet, casabiome, veg)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(inout), DIMENSION(mp) :: xkNlimiting
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet
type(casa_biome), intent(inout) :: casabiome
type(veg_parameter_type), intent(in) :: veg

public subroutine casa_nuptake(veg, xkNlimiting, casabiome, casapool, casaflux, casamet)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(inout) :: veg
real(kind=r_2), intent(in), DIMENSION(mp) :: xkNlimiting
type(casa_biome), intent(inout) :: casabiome
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet

public subroutine casa_Nrequire(xnCnpp, Nreqmin, Nreqmax, NtransPtoP, veg, casabiome, casapool, casaflux, casamet)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(mp) :: xnCnpp
real(kind=r_2), intent(inout), DIMENSION(mp,mplant) :: Nreqmin
real(kind=r_2), intent(inout), DIMENSION(mp,mplant) :: Nreqmax
real(kind=r_2), intent(inout), DIMENSION(mp,mplant) :: NtransPtoP
type(veg_parameter_type), intent(inout) :: veg
type(casa_biome), intent(inout) :: casabiome
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet

public subroutine casa_puptake(veg, xkNlimiting, casabiome, casapool, casaflux, casamet)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(inout) :: veg
real(kind=r_2), intent(in), DIMENSION(mp) :: xkNlimiting
type(casa_biome), intent(inout) :: casabiome
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet

public subroutine casa_Prequire(xpCnpp, Preqmin, Preqmax, PtransPtoP, veg, casabiome, casapool, casaflux, casamet)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(mp) :: xpCnpp
real(kind=r_2), intent(inout), DIMENSION(mp,mplant) :: Preqmin
real(kind=r_2), intent(inout), DIMENSION(mp,mplant) :: Preqmax
real(kind=r_2), intent(inout), DIMENSION(mp,mplant) :: PtransPtoP
type(veg_parameter_type), intent(inout) :: veg
type(casa_biome), intent(inout) :: casabiome
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet

public subroutine casa_cnpcycle(veg, casabiome, casapool, casaflux, casamet, casabal, LALLOC)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(inout) :: veg
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
integer, intent(in) :: LALLOC

public subroutine casa_poolzero(n, ipool, casapool)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(in) :: ipool
type(casa_pool), intent(inout) :: casapool

public subroutine casa_cnpbal(veg, casamet, casapool, casaflux, casabal)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(in) :: veg
type(casa_met), intent(in) :: casamet
type(casa_pool), intent(inout) :: casapool
type(casa_flux), intent(inout) :: casaflux
type(casa_balance), intent(inout) :: casabal

public subroutine casa_ndummy(casamet, casabal, casapool)

Arguments

Type IntentOptional Attributes Name
type(casa_met), intent(in) :: casamet
type(casa_balance), intent(inout) :: casabal
type(casa_pool), intent(inout) :: casapool

public subroutine casa_pdummy(casamet, casabal, casaflux, casapool)

Arguments

Type IntentOptional Attributes Name
type(casa_met), intent(in) :: casamet
type(casa_balance), intent(inout) :: casabal
type(casa_flux), intent(in) :: casaflux
type(casa_pool), intent(inout) :: casapool

public subroutine phenology(iday, veg, phen)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iday
type(veg_parameter_type), intent(inout) :: veg
type(phen_variable), intent(inout) :: phen