cable_param_module Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, private :: patches_in_parfile = 4
character(len=4), private :: classification
integer, private, DIMENSION(:, :, :), ALLOCATABLE :: inVeg
real, private, DIMENSION(:, :, :), ALLOCATABLE :: inPFrac
integer, private, DIMENSION(:, :), ALLOCATABLE :: inSoil
real, private, DIMENSION(:, :, :, :), ALLOCATABLE :: inWB
real, private, DIMENSION(:, :, :, :), ALLOCATABLE :: inTGG
real, private, DIMENSION(:), ALLOCATABLE :: inLon
real, private, DIMENSION(:), ALLOCATABLE :: inLat
real, private, DIMENSION(:, :, :, :), ALLOCATABLE :: inALB
real, private, DIMENSION(:, :, :, :), ALLOCATABLE :: inSND
real, private, DIMENSION(:, :, :), ALLOCATABLE :: inLAI
real, private, DIMENSION(:, :), ALLOCATABLE :: inArea
integer, private, DIMENSION(:, :), ALLOCATABLE :: inSorder
real, private, DIMENSION(:, :), ALLOCATABLE :: inNdep
real, private, DIMENSION(:, :), ALLOCATABLE :: inNfix
real, private, DIMENSION(:, :), ALLOCATABLE :: inPwea
real, private, DIMENSION(:, :), ALLOCATABLE :: inPdust
real, private, DIMENSION(:, :), ALLOCATABLE :: inswilt
real, private, DIMENSION(:, :), ALLOCATABLE :: insfc
real, private, DIMENSION(:, :), ALLOCATABLE :: inssat
real, private, DIMENSION(:, :), ALLOCATABLE :: inbch
real, private, DIMENSION(:, :), ALLOCATABLE :: inhyds
real, private, DIMENSION(:, :), ALLOCATABLE :: insucs
real, private, DIMENSION(:, :), ALLOCATABLE :: inrhosoil
real, private, DIMENSION(:, :), ALLOCATABLE :: incss
real, private, DIMENSION(:, :), ALLOCATABLE :: incnsd
real, private, DIMENSION(:, :), ALLOCATABLE :: inclay
real, private, DIMENSION(:, :), ALLOCATABLE :: insilt
real, private, DIMENSION(:, :), ALLOCATABLE :: insand
logical, private :: found_explicit_gw_parameters
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWbch
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWssat
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWhyds
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWsucs
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWrhosoil
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWclay
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWsilt
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWsand
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWWatr
real, private, DIMENSION(:, :), ALLOCATABLE :: inWatr
real, private, DIMENSION(:, :), ALLOCATABLE :: inSlope
real, private, DIMENSION(:, :), ALLOCATABLE :: inGWdz
real, private, DIMENSION(:, :), ALLOCATABLE :: inSlopeSTD
real, private, DIMENSION(:, :), ALLOCATABLE :: inORG
integer, private, DIMENSION(:, :), ALLOCATABLE :: inSoilColor

Interfaces

private interface get_gw_data

  • private function get_gw_2d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat) result(data_vec)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncfile_id
    integer, intent(in) :: try_it
    character(len=*), intent(in) :: varname
    real, intent(in) :: default_const
    integer, intent(in) :: nlon
    integer, intent(in) :: nlat

    Return Value real(kind=r_2), dimension(mp)

  • private function get_gw_3d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat, ms) result(data_vec)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncfile_id
    integer, intent(in) :: try_it
    character(len=*), intent(in) :: varname
    real, intent(in) :: default_const
    integer, intent(in) :: nlon
    integer, intent(in) :: nlat
    integer, intent(in) :: ms

    Return Value real(kind=r_2), dimension(mp,ms)

  • private function get_gw_4d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat, ms, npatch) result(data_vec)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncfile_id
    integer, intent(in) :: try_it
    character(len=*), intent(in) :: varname
    real, intent(in) :: default_const
    integer, intent(in) :: nlon
    integer, intent(in) :: nlat
    integer, intent(in) :: ms
    integer, intent(in) :: npatch

    Return Value real(kind=r_2), dimension(mp,ms,mpatch)

  • private function get_gw_2d_var(ncfile_id, try_it, varname, default_data, nlon, nlat) result(data_vec)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncfile_id
    integer, intent(in) :: try_it
    character(len=*), intent(in) :: varname
    real, intent(in), dimension(:,:) :: default_data
    integer, intent(in) :: nlon
    integer, intent(in) :: nlat

    Return Value real(kind=r_2), dimension(mp)

  • private function get_gw_3d_var(ncfile_id, try_it, varname, default_data, nlon, nlat, ms) result(data_vec)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncfile_id
    integer, intent(in) :: try_it
    character(len=*), intent(in) :: varname
    real, intent(in), dimension(:,:) :: default_data
    integer, intent(in) :: nlon
    integer, intent(in) :: nlat
    integer, intent(in) :: ms

    Return Value real(kind=r_2), dimension(mp,ms)

  • private function get_gw_4d_var(ncfile_id, try_it, varname, default_data, nlon, nlat, ms, npatch) result(data_vec)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncfile_id
    integer, intent(in) :: try_it
    character(len=*), intent(in) :: varname
    real, intent(in), dimension(:,:) :: default_data
    integer, intent(in) :: nlon
    integer, intent(in) :: nlat
    integer, intent(in) :: ms
    integer, intent(in) :: npatch

    Return Value real(kind=r_2), dimension(mp,ms,mpatch)


Functions

private function get_gw_2d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in) :: default_const
integer, intent(in) :: nlon
integer, intent(in) :: nlat

Return Value real(kind=r_2), dimension(mp)

private function get_gw_2d_var(ncfile_id, try_it, varname, default_data, nlon, nlat) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in), dimension(:,:) :: default_data
integer, intent(in) :: nlon
integer, intent(in) :: nlat

Return Value real(kind=r_2), dimension(mp)

private function get_gw_3d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat, ms) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in) :: default_const
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms

Return Value real(kind=r_2), dimension(mp,ms)

private function get_gw_3d_var(ncfile_id, try_it, varname, default_data, nlon, nlat, ms) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in), dimension(:,:) :: default_data
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms

Return Value real(kind=r_2), dimension(mp,ms)

private function get_gw_4d_var_constdef(ncfile_id, try_it, varname, default_const, nlon, nlat, ms, npatch) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in) :: default_const
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms
integer, intent(in) :: npatch

Return Value real(kind=r_2), dimension(mp,ms,mpatch)

private function get_gw_4d_var(ncfile_id, try_it, varname, default_data, nlon, nlat, ms, npatch) result(data_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncfile_id
integer, intent(in) :: try_it
character(len=*), intent(in) :: varname
real, intent(in), dimension(:,:) :: default_data
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: ms
integer, intent(in) :: npatch

Return Value real(kind=r_2), dimension(mp,ms,mpatch)


Subroutines

public subroutine get_default_params(logn, vegparmnew, LUC_EXPT)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: logn
logical, intent(in) :: vegparmnew
type(LUC_EXPT_TYPE), intent(inout) :: LUC_EXPT

private subroutine read_gridinfo(nlon, nlat, npatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nlon
integer, intent(out) :: nlat
integer, intent(inout) :: npatch

private subroutine spatialSoil(nlon, nlat, logn)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: logn

private subroutine read_soilcolor(logn)

Arguments

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

private subroutine NSflip(nlon, nlat, invar)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlon
integer, intent(in) :: nlat
real, intent(inout) :: invar(nlon,nlat)

private subroutine get_land_index(nlon, nlat)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlon
integer, intent(in) :: nlat

private subroutine countPatch(nlon, nlat, npatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlon
integer, intent(in) :: nlat
integer, intent(in) :: npatch

public subroutine write_default_params(met, air, ssnow, veg, bgc, soil, canopy, rough, rad, logn, vegparmnew, month, TFRZ, LUC_EXPT)

Arguments

Type IntentOptional Attributes Name
type(met_type), intent(inout) :: met
type(air_type), intent(inout) :: air
type(soil_snow_type), intent(inout) :: ssnow
type(veg_parameter_type), intent(inout) :: veg
type(bgc_pool_type), intent(inout) :: bgc
type(soil_parameter_type), intent(inout) :: soil
type(canopy_type), intent(inout) :: canopy
type(roughness_type), intent(inout) :: rough
type(radiation_type), intent(inout) :: rad
integer, intent(in) :: logn
logical, intent(in) :: vegparmnew
integer, intent(in) :: month
real, intent(in) :: TFRZ
type(LUC_EXPT_TYPE), intent(in) :: LUC_EXPT

public subroutine write_cnp_params(veg, casaflux, casamet)

Arguments

Type IntentOptional Attributes Name
type(veg_parameter_type), intent(in) :: veg
type(casa_flux), intent(inout) :: casaflux
type(casa_met), intent(inout) :: casamet

public subroutine derived_parameters(soil, sum_flux, bal, ssnow, veg, rough)

Arguments

Type IntentOptional Attributes Name
type(soil_parameter_type), intent(inout) :: soil
type(sum_flux_type), intent(inout) :: sum_flux
type(balances_type), intent(inout) :: bal
type(soil_snow_type), intent(inout) :: ssnow
type(veg_parameter_type), intent(in) :: veg
type(roughness_type), intent(inout) :: rough

public subroutine check_parameter_values(soil, veg, ssnow)

Arguments

Type IntentOptional Attributes Name
type(soil_parameter_type), intent(inout) :: soil
type(veg_parameter_type), intent(inout) :: veg
type(soil_snow_type), intent(inout) :: ssnow

public subroutine consistency_ice_veg_soil(soil, veg)

Arguments

Type IntentOptional Attributes Name
type(soil_parameter_type), intent(inout) :: soil
type(veg_parameter_type), intent(inout) :: veg

public subroutine report_parameters(logn, soil, veg, bgc, rough, ssnow, canopy, casamet, casapool, casaflux, phen, vegparmnew, verbose)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: logn
type(soil_parameter_type), intent(in) :: soil
type(veg_parameter_type), intent(in) :: veg
type(bgc_pool_type), intent(in) :: bgc
type(roughness_type), intent(in) :: rough
type(soil_snow_type), intent(in) :: ssnow
type(canopy_type), intent(in) :: canopy
type(casa_met), intent(in) :: casamet
type(casa_pool), intent(in) :: casapool
type(casa_flux), intent(in) :: casaflux
type(phen_variable), intent(in) :: phen
logical, intent(in) :: vegparmnew
logical, intent(in) :: verbose

private subroutine init_veg_from_vegin(ifmp, fmp, veg, soil_zse)

Arguments

Type IntentOptional Attributes Name
integer :: ifmp
integer :: fmp
type(veg_parameter_type) :: veg
real, DIMENSION(ms) :: soil_zse

private subroutine GWspatialParameters(logn, soil, ssnow)

MMY : move from subroutine derived_parameters to here since derived_parameters is now an option but compulsory

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: logn
type(soil_parameter_type), intent(inout) :: soil
type(soil_snow_type), intent(inout) :: ssnow