waterstate_type Derived Type

type, public :: waterstate_type


Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: snow_depth_col(:)
real(kind=r8), public, pointer :: snow_persistence_col(:)
real(kind=r8), public, pointer :: snowdp_col(:)
real(kind=r8), public, pointer :: snowice_col(:)
real(kind=r8), public, pointer :: snowliq_col(:)
real(kind=r8), public, pointer :: int_snow_col(:)
real(kind=r8), public, pointer :: snow_layer_unity_col(:,:)
real(kind=r8), public, pointer :: bw_col(:,:)
real(kind=r8), public, pointer :: h2osno_col(:)
real(kind=r8), public, pointer :: h2osno_old_col(:)
real(kind=r8), public, pointer :: h2osoi_liq_col(:,:)
real(kind=r8), public, pointer :: h2osoi_ice_col(:,:)
real(kind=r8), public, pointer :: h2osoi_liq_tot_col(:)
real(kind=r8), public, pointer :: h2osoi_ice_tot_col(:)
real(kind=r8), public, pointer :: h2osoi_liqice_10cm_col(:)
real(kind=r8), public, pointer :: h2osoi_vol_col(:,:)
real(kind=r8), public, pointer :: h2osoi_vol_prs_grc(:,:)
real(kind=r8), public, pointer :: air_vol_col(:,:)
real(kind=r8), public, pointer :: h2osoi_liqvol_col(:,:)
real(kind=r8), public, pointer :: h2ocan_patch(:)
real(kind=r8), public, pointer :: h2osfc_col(:)
real(kind=r8), public, pointer :: snocan_patch(:)
real(kind=r8), public, pointer :: liqcan_patch(:)
real(kind=r8), public, pointer :: snounload_patch(:)
real(kind=r8), public, pointer :: swe_old_col(:,:)
real(kind=r8), public, pointer :: liq1_grc(:)
real(kind=r8), public, pointer :: liq2_grc(:)
real(kind=r8), public, pointer :: ice1_grc(:)
real(kind=r8), public, pointer :: ice2_grc(:)
real(kind=r8), public, pointer :: tws_grc(:)
real(kind=r8), public, pointer :: total_plant_stored_h2o_col(:)
real(kind=r8), public, pointer :: snw_rds_col(:,:)
real(kind=r8), public, pointer :: snw_rds_top_col(:)
real(kind=r8), public, pointer :: h2osno_top_col(:)
real(kind=r8), public, pointer :: sno_liq_top_col(:)
real(kind=r8), public, pointer :: q_ref2m_patch(:)
real(kind=r8), public, pointer :: rh_ref2m_patch(:)
real(kind=r8), public, pointer :: rh_ref2m_r_patch(:)
real(kind=r8), public, pointer :: rh_ref2m_u_patch(:)
real(kind=r8), public, pointer :: rh_af_patch(:)
real(kind=r8), public, pointer :: rh10_af_patch(:)
real(kind=r8), public, pointer :: qg_snow_col(:)
real(kind=r8), public, pointer :: qg_soil_col(:)
real(kind=r8), public, pointer :: qg_h2osfc_col(:)
real(kind=r8), public, pointer :: qg_col(:)
real(kind=r8), public, pointer :: dqgdT_col(:)
real(kind=r8), public, pointer :: qaf_lun(:)
real(kind=r8), public, pointer :: frac_sno_col(:)
real(kind=r8), public, pointer :: frac_sno_eff_col(:)
real(kind=r8), public, pointer :: frac_iceold_col(:,:)
real(kind=r8), public, pointer :: frac_h2osfc_col(:)
real(kind=r8), public, pointer :: frac_h2osfc_nosnow_col(:)
real(kind=r8), public, pointer :: wf_col(:)
real(kind=r8), public, pointer :: wf2_col(:)
real(kind=r8), public, pointer :: fwet_patch(:)
real(kind=r8), public, pointer :: fcansno_patch(:)
real(kind=r8), public, pointer :: fdry_patch(:)
real(kind=r8), public, pointer :: begwb_col(:)
real(kind=r8), public, pointer :: endwb_col(:)
real(kind=r8), public, pointer :: errh2o_patch(:)
real(kind=r8), public, pointer :: errh2o_col(:)
real(kind=r8), public, pointer :: errh2osno_col(:)

Type-Bound Procedures

procedure, public :: Init

  • private subroutine Init(this, bounds, h2osno_input_col, snow_depth_input_col, watsat_col, t_soisno_col)

    Arguments

    Type IntentOptional Attributes Name
    class(waterstate_type) :: this
    type(bounds_type), intent(in) :: bounds
    real(kind=r8), intent(inout) :: h2osno_input_col(bounds%begc:)
    real(kind=r8), intent(inout) :: snow_depth_input_col(bounds%begc:)
    real(kind=r8), intent(inout) :: watsat_col(bounds%begc:,1:)
    real(kind=r8), intent(inout) :: t_soisno_col(bounds%begc:,-nlevsno+1:)

procedure, public :: Restart

  • private subroutine Restart(this, bounds, ncid, flag, watsat_col)

    Arguments

    Type IntentOptional Attributes Name
    class(waterstate_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) :: watsat_col(bounds%begc:,1:)

procedure, public :: Reset

  • private subroutine Reset(this, column)

    Arguments

    Type IntentOptional Attributes Name
    class(waterstate_type) :: this
    integer, intent(in) :: column