POPModule Module


Uses

  • module~~popmodule~~UsesGraph module~popmodule POPModule module~pop_constants POP_Constants module~popmodule->module~pop_constants module~pop_types POP_Types module~popmodule->module~pop_types module~typedef TypeDef module~popmodule->module~typedef module~pop_constants->module~typedef module~pop_types->module~pop_constants module~pop_types->module~typedef

Used by

  • module~~popmodule~~UsedByGraph module~popmodule POPModule module~popluc_module POPLUC_Module module~popluc_module->module~popmodule proc~bgcdriver bgcdriver proc~bgcdriver->module~popmodule proc~casaonly_luc CASAONLY_LUC proc~casaonly_luc->module~popmodule proc~casaonly_luc->module~popluc_module proc~load_parameters load_parameters proc~load_parameters->module~popmodule proc~load_parameters->module~popluc_module proc~lucdriver LUCdriver proc~lucdriver->module~popmodule proc~lucdriver->module~popluc_module proc~master_casaonly_luc master_CASAONLY_LUC proc~master_casaonly_luc->module~popmodule proc~master_casaonly_luc->module~popluc_module proc~master_spincasacnp master_spincasacnp proc~master_spincasacnp->module~popmodule proc~mpidrv_worker~2 mpidrv_worker proc~mpidrv_worker~2->module~popmodule proc~popdriver POPdriver proc~popdriver->module~popmodule proc~spincasacnp spincasacnp proc~spincasacnp->module~popmodule proc~worker_casaonly_luc worker_CASAONLY_LUC proc~worker_casaonly_luc->module~popmodule proc~worker_pop_types worker_pop_types proc~worker_pop_types->module~popmodule proc~worker_spincasacnp worker_spincasacnp proc~worker_spincasacnp->module~popmodule module~cable_serial cable_serial module~cable_serial->module~popluc_module proc~mpidrv_master~2 mpidrv_master proc~mpidrv_master~2->module~popluc_module program~cable_offline_driver cable_offline_driver program~cable_offline_driver->module~cable_serial

Functions

public function Exponential(lambda, x)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: lambda
integer(kind=i4b), intent(in) :: x

Return Value real(kind=dp)

public function REALExponential(lambda, x)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: lambda
real(kind=dp), intent(in) :: x

Return Value real(kind=dp)

public function CumExponential(lambda, x)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: lambda
real(kind=dp), intent(in) :: x

Return Value real(kind=dp)

public function Factorial(n)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n

Return Value real(kind=dp)

public function GetHeight(precip, biomass, density)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: precip
real(kind=dp), intent(in) :: biomass
real(kind=dp), intent(in) :: density

Return Value real(kind=dp)

public function Area_Triangle(x1, y1, x2, y2, x3, y3)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x1
real(kind=dp), intent(in) :: y1
real(kind=dp), intent(in) :: x2
real(kind=dp), intent(in) :: y2
real(kind=dp), intent(in) :: x3
real(kind=dp), intent(in) :: y3

Return Value real(kind=dp)


Subroutines

public subroutine ZeroPOP(POP, n)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer, intent(in), optional :: n

public subroutine InitPOP2D_Poisson(POP, mean_disturbance_interval, m)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: mean_disturbance_interval(:,:)
integer(kind=i4b), intent(in), optional :: m

public subroutine POPStep(POP, StemNPP, disturbance_interval, disturbance_intensity, LAI, Cleaf, Croot, NPPtoGPP, StemNPP_av, frac_intensity1, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
real(kind=dp), intent(in) :: StemNPP(:,:)
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
real(kind=dp), intent(in) :: disturbance_intensity(:,:)
real(kind=dp), intent(in) :: LAI(:)
real(kind=dp), intent(in) :: Cleaf(:)
real(kind=dp), intent(in) :: Croot(:)
real(kind=dp), intent(in) :: NPPtoGPP(:)
real(kind=dp), intent(in), optional :: StemNPP_av(:)
real(kind=dp), intent(in), optional :: frac_intensity1(:)
real(kind=dp), intent(in), optional :: precip(:)

public subroutine PatchAnnualDynamics(pop, StemNPP, NPPtoGPP, disturbance_interval, it, precip, StemNPP_av)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: pop
real(kind=dp), intent(in) :: StemNPP(:,:)
real(kind=dp), intent(in) :: NPPtoGPP(:)
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: it(:)
real(kind=dp), intent(in), optional :: precip(:)
real(kind=dp), intent(in), optional :: StemNPP_av(:)

public subroutine GetUniqueAgeFrequencies(POP, disturbance_interval, idisturb, it)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: idisturb
integer(kind=i4b), intent(in) :: it(:)

public subroutine GetPatchFrequencies(POP, it)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: it(:)

public subroutine GetDiagnostics(POP, LAI, Cleaf, Croot, disturbance_interval, it, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
real(kind=dp), intent(in) :: LAI(:)
real(kind=dp), intent(in) :: Cleaf(:)
real(kind=dp), intent(in) :: Croot(:)
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: it(:)
real(kind=dp), intent(in), optional :: precip(:)

public subroutine Patch_partial_disturb(POP, idisturb, intensity, precip, frac_intensity1)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: idisturb
real(kind=dp), intent(in) :: intensity(:,:)
real(kind=dp), intent(in), optional :: precip(:)
real(kind=dp), intent(in), optional :: frac_intensity1(:)

public subroutine Patch_partial_disturb2(POP, idisturb, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: idisturb
real(kind=dp), intent(in), optional :: precip(:)

public subroutine Patch_disturb(POP, idisturb, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: idisturb
real(kind=dp), intent(in), optional :: precip(:)

public subroutine layer_recruitment(POP, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
real(kind=dp), intent(in), optional :: precip(:)

public subroutine layer_recruitment_single_patch(POP, index, grid_index, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: index
integer(kind=i4b), intent(in) :: grid_index
real(kind=dp), intent(in), optional :: precip(:)

public subroutine GET_ALLOMETRY(ALLOM_SWITCH, biomass, density, ht, diam, basal, precip)

Arguments

Type IntentOptional Attributes Name
integer(kind=i4b), intent(in) :: ALLOM_SWITCH
real(kind=dp), intent(in) :: biomass
real(kind=dp), intent(in) :: density
real(kind=dp), intent(out) :: ht
real(kind=dp), intent(out) :: diam
real(kind=dp), intent(out) :: basal
real(kind=dp), intent(in), optional :: precip

public subroutine INTERPOLATE_BIOMASS_1D(POP, disturbance_interval, it, g)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: it
integer(kind=i4b), intent(in) :: g

public subroutine INTERPOLATE_BIOMASS_2D(POP, disturbance_interval, it, g)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: it
integer(kind=i4b), intent(in) :: g

public subroutine SMOOTH_FLUX(POP, g, t)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: g
integer(kind=i4b), intent(in) :: t

public subroutine SMOOTH_FLUX_cat(POP, g, t)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: g
integer(kind=i4b), intent(in) :: t

public subroutine REGRESS(x, y, n, a, b, r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x(:)
real(kind=dp), intent(in) :: y(:)
integer(kind=i4b), intent(in) :: n
real(kind=dp), intent(out) :: a
real(kind=dp), intent(out) :: b
real(kind=dp), intent(out) :: r

public subroutine Allometry(height, biomass, density, diam, basal)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: height
real(kind=dp), intent(in) :: biomass
real(kind=dp), intent(in) :: density
real(kind=dp), intent(out) :: diam
real(kind=dp), intent(out) :: basal

public subroutine Williams_Allometry(agbiomass, density, height, dbh, basal)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: agbiomass
real(kind=dp), intent(in) :: density
real(kind=dp), intent(out) :: height
real(kind=dp), intent(out) :: dbh
real(kind=dp), intent(out) :: basal

public subroutine POP_init(POP, disturbance_interval, np, Iwood, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: np
integer(kind=i4b), intent(in) :: Iwood(:)
real(kind=dp), intent(in), optional :: precip(:)

public subroutine POP_init_single(POP, disturbance_interval, n, precip)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer(kind=i4b), intent(in) :: disturbance_interval(:,:)
integer(kind=i4b), intent(in) :: n
real(kind=dp), intent(in), optional :: precip(:)

public subroutine alloc_POP(POP, arraysize)

Arguments

Type IntentOptional Attributes Name
type(POP_TYPE), intent(inout) :: POP
integer, intent(in) :: arraysize