cnveg_nitrogenstate_type Derived Type

type, public :: cnveg_nitrogenstate_type


Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: grainn_patch(:)
real(kind=r8), public, pointer :: grainn_storage_patch(:)
real(kind=r8), public, pointer :: grainn_xfer_patch(:)
real(kind=r8), public, pointer :: leafn_patch(:)
real(kind=r8), public, pointer :: leafn_storage_patch(:)
real(kind=r8), public, pointer :: leafn_xfer_patch(:)
real(kind=r8), public, pointer :: leafn_storage_xfer_acc_patch(:)
real(kind=r8), public, pointer :: storage_ndemand_patch(:)
real(kind=r8), public, pointer :: frootn_patch(:)
real(kind=r8), public, pointer :: frootn_storage_patch(:)
real(kind=r8), public, pointer :: frootn_xfer_patch(:)
real(kind=r8), public, pointer :: livestemn_patch(:)
real(kind=r8), public, pointer :: livestemn_storage_patch(:)
real(kind=r8), public, pointer :: livestemn_xfer_patch(:)
real(kind=r8), public, pointer :: deadstemn_patch(:)
real(kind=r8), public, pointer :: deadstemn_storage_patch(:)
real(kind=r8), public, pointer :: deadstemn_xfer_patch(:)
real(kind=r8), public, pointer :: livecrootn_patch(:)
real(kind=r8), public, pointer :: livecrootn_storage_patch(:)
real(kind=r8), public, pointer :: livecrootn_xfer_patch(:)
real(kind=r8), public, pointer :: deadcrootn_patch(:)
real(kind=r8), public, pointer :: deadcrootn_storage_patch(:)
real(kind=r8), public, pointer :: deadcrootn_xfer_patch(:)
real(kind=r8), public, pointer :: retransn_patch(:)
real(kind=r8), public, pointer :: npool_patch(:)
real(kind=r8), public, pointer :: ntrunc_patch(:)
real(kind=r8), public, pointer :: cropseedn_deficit_patch(:)
real(kind=r8), public, pointer :: seedn_grc(:)
real(kind=r8), public, pointer :: dispvegn_patch(:)
real(kind=r8), public, pointer :: storvegn_patch(:)
real(kind=r8), public, pointer :: totvegn_patch(:)
real(kind=r8), public, pointer :: totvegn_col(:)
real(kind=r8), public, pointer :: totn_patch(:)
real(kind=r8), public, pointer :: totn_p2c_col(:)
real(kind=r8), public, pointer :: totn_col(:)
real(kind=r8), public, pointer :: totecosysn_col(:)

Type-Bound Procedures

procedure, public :: Init

  • private subroutine Init(this, bounds, leafc_patch, leafc_storage_patch, frootc_patch, frootc_storage_patch, deadstemc_patch)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_nitrogenstate_type) :: this
    type(bounds_type), intent(in) :: bounds
    real(kind=r8), intent(in) :: leafc_patch(bounds%begp:)
    real(kind=r8), intent(in) :: leafc_storage_patch(bounds%begp:)
    real(kind=r8), intent(in) :: frootc_patch(bounds%begp:)
    real(kind=r8), intent(in) :: frootc_storage_patch(bounds%begp:)
    real(kind=r8), intent(in) :: deadstemc_patch(bounds%begp:)

procedure, public :: Restart

  • private subroutine Restart(this, bounds, ncid, flag, leafc_patch, leafc_storage_patch, frootc_patch, frootc_storage_patch, deadstemc_patch, filter_reseed_patch, num_reseed_patch)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_nitrogenstate_type) :: this
    type(bounds_type), intent(in) :: bounds
    type(file_desc_t), intent(inout) :: ncid
    character(len=*), intent(in) :: flag
    real(kind=r8), intent(in) :: leafc_patch(bounds%begp:)
    real(kind=r8), intent(in) :: leafc_storage_patch(bounds%begp:)
    real(kind=r8), intent(in) :: frootc_patch(bounds%begp:)
    real(kind=r8), intent(in) :: frootc_storage_patch(bounds%begp:)
    real(kind=r8), intent(in) :: deadstemc_patch(bounds%begp:)
    integer, intent(in) :: filter_reseed_patch(:)
    integer, intent(in) :: num_reseed_patch

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_nitrogenstate_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

procedure, public :: Summary => Summary_nitrogenstate

  • private subroutine Summary_nitrogenstate(this, bounds, num_allc, filter_allc, num_soilc, filter_soilc, num_soilp, filter_soilp, soilbiogeochem_nitrogenstate_inst)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_nitrogenstate_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(:)
    type(soilbiogeochem_nitrogenstate_type), intent(in) :: soilbiogeochem_nitrogenstate_inst

procedure, public :: DynamicPatchAdjustments

  • private subroutine DynamicPatchAdjustments(this, bounds, num_soilp_with_inactive, filter_soilp_with_inactive, patch_state_updater, leafc_seed, deadstemc_seed, conv_nflux, wood_product_nflux, crop_product_nflux, dwt_frootn_to_litter, dwt_livecrootn_to_litter, dwt_deadcrootn_to_litter, dwt_leafn_seed, dwt_deadstemn_seed)

    Arguments

    Type IntentOptional Attributes Name
    class(cnveg_nitrogenstate_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_nflux(bounds%begp:)
    real(kind=r8), intent(inout) :: wood_product_nflux(bounds%begp:)
    real(kind=r8), intent(inout) :: crop_product_nflux(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_frootn_to_litter(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_livecrootn_to_litter(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_deadcrootn_to_litter(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_leafn_seed(bounds%begp:)
    real(kind=r8), intent(inout) :: dwt_deadstemn_seed(bounds%begp:)