cnfire_base_type Derived Type

type, public, extends(cnfire_method_type) :: cnfire_base_type


Components

Type Visibility Attributes Name Initial
logical, public :: need_lightning_and_popdens = .true.
real(kind=r8), public, pointer :: forc_lnfm(:)
real(kind=r8), public, pointer :: forc_hdm(:)

Type-Bound Procedures

procedure, public :: CNFireInit

  • private subroutine CNFireInit(this, bounds, NLFilename)

    Arguments

    Type IntentOptional Attributes Name
    class(cnfire_base_type) :: this
    type(bounds_type), intent(in) :: bounds
    character(len=*), intent(in) :: NLFilename

procedure, public :: CNFireReadNML

  • private subroutine CNFireReadNML(this, NLFilename)

    Arguments

    Type IntentOptional Attributes Name
    class(cnfire_base_type) :: this
    character(len=*), intent(in) :: NLFilename

procedure, public :: CNFireInterp

  • private subroutine CNFireInterp(this, bounds)

    Arguments

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

procedure, public :: CNFireArea

  • private subroutine CNFireArea(this, bounds, num_soilc, filter_soilc, num_soilp, filter_soilp, atm2lnd_inst, energyflux_inst, soilhydrology_inst, waterstate_inst, cnveg_state_inst, cnveg_carbonstate_inst, totlitc_col, decomp_cpools_vr_col, t_soi17cm_col)

    Arguments

    Type IntentOptional Attributes Name
    class(cnfire_base_type) :: this
    type(bounds_type), intent(in) :: bounds
    integer, intent(in) :: num_soilc
    integer, intent(in) :: filter_soilc(:)
    integer, intent(in) :: num_soilp
    integer, intent(in) :: filter_soilp(:)
    type(atm2lnd_type), intent(in) :: atm2lnd_inst
    type(energyflux_type), intent(in) :: energyflux_inst
    type(soilhydrology_type), intent(in) :: soilhydrology_inst
    type(waterstate_type), intent(in) :: waterstate_inst
    type(cnveg_state_type), intent(inout) :: cnveg_state_inst
    type(cnveg_carbonstate_type), intent(inout) :: cnveg_carbonstate_inst
    real(kind=r8), intent(in) :: totlitc_col(bounds%begc:)
    real(kind=r8), intent(in) :: decomp_cpools_vr_col(bounds%begc:,1:,1:)
    real(kind=r8), intent(in) :: t_soi17cm_col(bounds%begc:)

procedure, public :: CNFireFluxes

  • private subroutine CNFireFluxes(this, bounds, num_soilc, filter_soilc, num_soilp, filter_soilp, dgvs_inst, cnveg_state_inst, cnveg_carbonstate_inst, cnveg_carbonflux_inst, cnveg_nitrogenstate_inst, cnveg_nitrogenflux_inst, leaf_prof_patch, froot_prof_patch, croot_prof_patch, stem_prof_patch, totsomc_col, decomp_cpools_vr_col, decomp_npools_vr_col, somc_fire_col)

    Arguments

    Type IntentOptional Attributes Name
    class(cnfire_base_type) :: this
    type(bounds_type), intent(in) :: bounds
    integer, intent(in) :: num_soilc
    integer, intent(in) :: filter_soilc(:)
    integer, intent(in) :: num_soilp
    integer, intent(in) :: filter_soilp(:)
    type(dgvs_type), intent(inout) :: dgvs_inst
    type(cnveg_state_type), intent(inout) :: cnveg_state_inst
    type(cnveg_carbonstate_type), intent(inout) :: cnveg_carbonstate_inst
    type(cnveg_carbonflux_type), intent(inout) :: cnveg_carbonflux_inst
    type(cnveg_nitrogenstate_type), intent(in) :: cnveg_nitrogenstate_inst
    type(cnveg_nitrogenflux_type), intent(inout) :: cnveg_nitrogenflux_inst
    real(kind=r8), intent(in) :: leaf_prof_patch(bounds%begp:,1:)
    real(kind=r8), intent(in) :: froot_prof_patch(bounds%begp:,1:)
    real(kind=r8), intent(in) :: croot_prof_patch(bounds%begp:,1:)
    real(kind=r8), intent(in) :: stem_prof_patch(bounds%begp:,1:)
    real(kind=r8), intent(in) :: totsomc_col(bounds%begc:)
    real(kind=r8), intent(in) :: decomp_cpools_vr_col(bounds%begc:,1:,1:)
    real(kind=r8), intent(in) :: decomp_npools_vr_col(bounds%begc:,1:,1:)
    real(kind=r8), intent(out) :: somc_fire_col(bounds%begc:)