cnveg_carbonstate_type Derived Type

type, public :: cnveg_carbonstate_type


Components

Type Visibility Attributes Name Initial
integer, public :: species
real(kind=r8), public, pointer :: grainc_patch(:)
real(kind=r8), public, pointer :: grainc_storage_patch(:)
real(kind=r8), public, pointer :: grainc_xfer_patch(:)
real(kind=r8), public, pointer :: leafc_patch(:)
real(kind=r8), public, pointer :: leafc_storage_patch(:)
real(kind=r8), public, pointer :: leafc_xfer_patch(:)
real(kind=r8), public, pointer :: leafc_storage_xfer_acc_patch(:)
real(kind=r8), public, pointer :: storage_cdemand_patch(:)
real(kind=r8), public, pointer :: frootc_patch(:)
real(kind=r8), public, pointer :: frootc_storage_patch(:)
real(kind=r8), public, pointer :: frootc_xfer_patch(:)
real(kind=r8), public, pointer :: livestemc_patch(:)
real(kind=r8), public, pointer :: livestemc_storage_patch(:)
real(kind=r8), public, pointer :: livestemc_xfer_patch(:)
real(kind=r8), public, pointer :: deadstemc_patch(:)
real(kind=r8), public, pointer :: deadstemc_storage_patch(:)
real(kind=r8), public, pointer :: deadstemc_xfer_patch(:)
real(kind=r8), public, pointer :: livecrootc_patch(:)
real(kind=r8), public, pointer :: livecrootc_storage_patch(:)
real(kind=r8), public, pointer :: livecrootc_xfer_patch(:)
real(kind=r8), public, pointer :: deadcrootc_patch(:)
real(kind=r8), public, pointer :: deadcrootc_storage_patch(:)
real(kind=r8), public, pointer :: deadcrootc_xfer_patch(:)
real(kind=r8), public, pointer :: gresp_storage_patch(:)
real(kind=r8), public, pointer :: gresp_xfer_patch(:)
real(kind=r8), public, pointer :: cpool_patch(:)
real(kind=r8), public, pointer :: xsmrpool_patch(:)
real(kind=r8), public, pointer :: xsmrpool_loss_patch(:)
real(kind=r8), public, pointer :: ctrunc_patch(:)
real(kind=r8), public, pointer :: woodc_patch(:)
real(kind=r8), public, pointer :: leafcmax_patch(:)
real(kind=r8), public, pointer :: totc_patch(:)
real(kind=r8), public, pointer :: rootc_col(:)
real(kind=r8), public, pointer :: leafc_col(:)
real(kind=r8), public, pointer :: deadstemc_col(:)
real(kind=r8), public, pointer :: fuelc_col(:)
real(kind=r8), public, pointer :: fuelc_crop_col(:)
real(kind=r8), public, pointer :: cropseedc_deficit_patch(:)
real(kind=r8), public, pointer :: seedc_grc(:)
real(kind=r8), public, pointer :: dispvegc_patch(:)
real(kind=r8), public, pointer :: storvegc_patch(:)
real(kind=r8), public, pointer :: totvegc_patch(:)
real(kind=r8), public, pointer :: totvegc_col(:)
real(kind=r8), public, pointer :: totc_p2c_col(:)
real(kind=r8), public, pointer :: totc_col(:)
real(kind=r8), public, pointer :: totecosysc_col(:)

Type-Bound Procedures

procedure, public :: Init

  • private subroutine Init(this, bounds, carbon_type, ratio, NLFilename, dribble_crophrv_xsmrpool_2atm, c12_cnveg_carbonstate_inst)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_carbonstate_type) :: this
    type(bounds_type), intent(in) :: bounds
    character(len=*), intent(in) :: carbon_type
    real(kind=r8), intent(in) :: ratio
    character(len=*), intent(in) :: NLFilename
    logical, intent(in) :: dribble_crophrv_xsmrpool_2atm
    type(cnveg_carbonstate_type), intent(in), optional :: c12_cnveg_carbonstate_inst

procedure, public :: SetValues

  • private subroutine SetValues(this, num_patch, filter_patch, value_patch, num_column, filter_column, value_column)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_carbonstate_type) :: this
    integer, intent(in) :: num_patch
    integer, intent(in) :: filter_patch(:)
    real(kind=r8), intent(in) :: value_patch
    integer, intent(in) :: num_column
    integer, intent(in) :: filter_column(:)
    real(kind=r8), intent(in) :: value_column

procedure, public :: ZeroDWT => ZeroDwt

  • private subroutine ZeroDwt(this, bounds)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_carbonstate_type) :: this
    type(bounds_type), intent(in) :: bounds

procedure, public :: Restart

  • private subroutine Restart(this, bounds, ncid, flag, carbon_type, reseed_dead_plants, c12_cnveg_carbonstate_inst, filter_reseed_patch, num_reseed_patch)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_carbonstate_type) :: this
    type(bounds_type), intent(in) :: bounds
    type(file_desc_t), intent(inout) :: ncid
    character(len=*), intent(in) :: flag
    character(len=*), intent(in) :: carbon_type
    logical, intent(in) :: reseed_dead_plants
    type(cnveg_carbonstate_type), intent(in), optional :: c12_cnveg_carbonstate_inst
    integer, intent(out), optional :: filter_reseed_patch(:)
    integer, intent(out), optional :: num_reseed_patch

procedure, public :: Summary => Summary_carbonstate

  • private subroutine Summary_carbonstate(this, bounds, num_allc, filter_allc, num_soilc, filter_soilc, num_soilp, filter_soilp, soilbiogeochem_cwdc_col, soilbiogeochem_totlitc_col, soilbiogeochem_totsomc_col, soilbiogeochem_ctrunc_col)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_carbonstate_type) :: this
    type(bounds_type), intent(in) :: bounds
    integer, intent(in) :: num_allc
    integer, intent(in) :: filter_allc(:)
    integer, intent(in) :: num_soilc
    integer, intent(in) :: filter_soilc(:)
    integer, intent(in) :: num_soilp
    integer, intent(in) :: filter_soilp(:)
    real(kind=r8), intent(in) :: soilbiogeochem_cwdc_col(bounds%begc:)
    real(kind=r8), intent(in) :: soilbiogeochem_totlitc_col(bounds%begc:)
    real(kind=r8), intent(in) :: soilbiogeochem_totsomc_col(bounds%begc:)
    real(kind=r8), intent(in) :: soilbiogeochem_ctrunc_col(bounds%begc:)

procedure, public :: DynamicPatchAdjustments

  • private subroutine DynamicPatchAdjustments(this, bounds, num_soilp_with_inactive, filter_soilp_with_inactive, patch_state_updater, leafc_seed, deadstemc_seed, conv_cflux, wood_product_cflux, crop_product_cflux, dwt_frootc_to_litter, dwt_livecrootc_to_litter, dwt_deadcrootc_to_litter, dwt_leafc_seed, dwt_deadstemc_seed)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_carbonstate_type), intent(inout) :: this
    type(bounds_type), intent(in) :: bounds
    integer, intent(in) :: num_soilp_with_inactive
    integer, intent(in) :: filter_soilp_with_inactive(:)
    type(patch_state_updater_type), intent(in) :: patch_state_updater
    real(kind=r8), intent(in) :: leafc_seed
    real(kind=r8), intent(in) :: deadstemc_seed
    real(kind=r8), intent(inout) :: conv_cflux(bounds%begp:)
    real(kind=r8), intent(inout) :: wood_product_cflux(bounds%begp:)
    real(kind=r8), intent(inout) :: crop_product_cflux(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_frootc_to_litter(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_livecrootc_to_litter(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_deadcrootc_to_litter(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_leafc_seed(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_deadstemc_seed(bounds%begp:)