sli_numbers Module


Uses

  • module~~sli_numbers~~UsesGraph module~sli_numbers sli_numbers module~cable_def_types_mod cable_def_types_mod module~sli_numbers->module~cable_def_types_mod module~cable_climate_type_mod cable_climate_type_mod module~cable_def_types_mod->module~cable_climate_type_mod

Used by

  • module~~sli_numbers~~UsedByGraph module~sli_numbers sli_numbers module~sli_roots sli_roots module~sli_roots->module~sli_numbers module~sli_solve sli_solve module~sli_solve->module~sli_numbers module~sli_utils sli_utils module~sli_solve->module~sli_utils module~sli_utils->module~sli_numbers proc~csat csat proc~csat->module~sli_numbers proc~csoil csoil proc~csoil->module~sli_numbers proc~dthetalmaxdt dthetalmaxdT proc~dthetalmaxdt->module~sli_numbers proc~dthetalmaxdth dthetalmaxdTh proc~dthetalmaxdth->module~sli_numbers proc~esat esat proc~esat->module~sli_numbers proc~esat_ice esat_ice proc~esat_ice->module~sli_numbers proc~generic_thomas_1d generic_thomas_1d proc~generic_thomas_1d->module~sli_numbers proc~generic_thomas_2d generic_thomas_2d proc~generic_thomas_2d->module~sli_numbers proc~gtfrozen GTfrozen proc~gtfrozen->module~sli_numbers proc~jsoillayer JSoilLayer proc~jsoillayer->module~sli_numbers proc~massman_sparse_1d massman_sparse_1d proc~massman_sparse_1d->module~sli_numbers proc~massman_sparse_2d massman_sparse_2d proc~massman_sparse_2d->module~sli_numbers proc~phi phi proc~phi->module~sli_numbers proc~sli_main sli_main proc~sli_main->module~sli_numbers proc~sli_main->module~sli_roots proc~sli_main->module~sli_solve proc~sli_main->module~sli_utils proc~slope_csat slope_csat proc~slope_csat->module~sli_numbers proc~slope_esat slope_esat proc~slope_esat->module~sli_numbers proc~slope_esat_ice slope_esat_ice proc~slope_esat_ice->module~sli_numbers proc~tfrozen Tfrozen proc~tfrozen->module~sli_numbers proc~tfrz Tfrz proc~tfrz->module~sli_numbers proc~thetalmax thetalmax proc~thetalmax->module~sli_numbers proc~tthetalmax Tthetalmax proc~tthetalmax->module~sli_numbers

Variables

Type Visibility Attributes Name Initial
real(kind=r_2), public, parameter :: zero = 0.0_r_2
real(kind=r_2), public, parameter :: half = 0.5_r_2
real(kind=r_2), public, parameter :: one = 1.0_r_2
real(kind=r_2), public, parameter :: two = 2.0_r_2
real(kind=r_2), public, parameter :: four = 4.0_r_2
real(kind=r_2), public, parameter :: thousand = 1000._r_2
real(kind=r_2), public, parameter :: e1 = 1.e-1_r_2
real(kind=r_2), public, parameter :: e2 = 1.e-2_r_2
real(kind=r_2), public, parameter :: e3 = 1.e-3_r_2
real(kind=r_2), public, parameter :: e4 = 1.e-4_r_2
real(kind=r_2), public, parameter :: e5 = 1.e-5_r_2
real(kind=r_2), public, parameter :: e6 = 1.e-6_r_2
real(kind=r_2), public, parameter :: e7 = 1.e-7_r_2
real(kind=r_2), public, parameter :: pi = 3.1415927_r_2
real(kind=r_2), public, parameter :: Tzero = 273.16_r_2
real(kind=r_2), public, parameter :: gravity = 9.8086_r_2
real(kind=r_2), public, parameter :: Mw = 0.018016_r_2
real(kind=r_2), public, parameter :: rmair = 0.02897_r_2
real(kind=r_2), public, parameter :: Mw18 = 0.018_r_2
real(kind=r_2), public, parameter :: cpa = 1004.64_r_2
real(kind=r_2), public, parameter :: esata = 6.106_r_2*100.0_r_2
real(kind=r_2), public, parameter :: esatb = 17.27_r_2
real(kind=r_2), public, parameter :: esatc = 237.3_r_2
real(kind=r_2), public, parameter :: rlambda = 2.442e6_r_2
real(kind=r_2), public, parameter :: lambdaf = 335000._r_2
real(kind=r_2), public, parameter :: lambdas = 2835000._r_2
real(kind=r_2), public, parameter :: Dva = 2.17e-5_r_2
real(kind=r_2), public, parameter :: rhow = 1000.0_r_2
real(kind=r_2), public, parameter :: rhoi = 920._r_2
real(kind=r_2), public, parameter :: rhoa = 1.184_r_2
real(kind=r_2), public, parameter :: rhocp = 1189.8_r_2
real(kind=r_2), public, parameter :: esata_ice = 611.2_r_2
real(kind=r_2), public, parameter :: esatb_ice = 22.46_r_2
real(kind=r_2), public, parameter :: esatc_ice = 272.62_r_2
real(kind=r_2), public, parameter :: csice = 2.100e3_r_2
real(kind=r_2), public, parameter :: cswat = 4.182e3_r_2
real(kind=r_2), public, parameter :: rgas = 8.3143_r_2
real(kind=r_2), public, parameter :: kw = 0.58_r_2
real(kind=r_2), public, parameter :: dSfac = 5.25_r_2
real(kind=r_2), public, parameter :: dpmaxr = 0.5_r_2
real(kind=r_2), public, parameter :: h0min = -5.e-3_r_2
real(kind=r_2), public, parameter :: snmin = 0.005_r_2
real(kind=r_2), public, parameter :: fsnowliq_max = 0.03_r_2
integer(kind=i_d), public, parameter :: nsnow_max = 1
real(kind=r_2), public, parameter :: dh0max = 0.0001_r_2
real(kind=r_2), public, parameter :: SLmax = 1.01_r_2
real(kind=r_2), public, parameter :: SLmin = 0.001_r_2
real(kind=r_2), public, parameter :: Smax = 1.05_r_2
real(kind=r_2), public, parameter :: h0max = 0.005_r_2
real(kind=r_2), public, parameter :: qprecmax = 1.0e10_r_2
real(kind=r_2), public, parameter :: dSmax = 0.1_r_2
real(kind=r_2), public, parameter :: dSmaxr = 0.4_r_2
real(kind=r_2), public, parameter :: dtmax = 86400._r_2
real(kind=r_2), public, parameter :: dtmin = 0.01_r_2
real(kind=r_2), public, parameter :: dsmmax = 1.0_r_2
real(kind=r_2), public, parameter :: dTsoilmax = 30.0_r_2
real(kind=r_2), public, parameter :: dTLmax = 30.0_r_2
real(kind=r_2), public, parameter :: tol_dthetaldT = 1.e-12_r_2
integer(kind=i_d), public, parameter :: nsteps_ice_max = 20
integer(kind=i_d), public, parameter :: nsteps_max = 200
real(kind=r_2), public, parameter :: gf = 1.0_r_2
real(kind=r_2), public, parameter :: hmin = -1.0e6_r_2
real(kind=r_2), public, parameter :: csol = 0.0_r_2
real(kind=r_2), public, parameter :: rhmin = 0.05_r_2
real(kind=r_2), public, parameter :: hbot = 0.0_r_2
character(len=20), public :: botbc = "free drainage"
integer(kind=i_d), public :: experiment = 0
real(kind=r_2), public, parameter :: freezefac = 1.0_r_2
integer(kind=i_d), public, parameter :: topmodel = 0
real(kind=r_2), public, parameter :: alpha = 0.1_r_2
real(kind=r_2), public, parameter :: fsat_max = 2.0_r_2
integer(kind=i_d), public :: ithermalcond = 0

Derived Types

type, public ::  vars_met

Components

Type Visibility Attributes Name Initial
real(kind=r_2), public :: Ta
real(kind=r_2), public :: rha
real(kind=r_2), public :: rbw
real(kind=r_2), public :: rbh
real(kind=r_2), public :: rrc
real(kind=r_2), public :: Rn
real(kind=r_2), public :: Da
real(kind=r_2), public :: cva
real(kind=r_2), public :: civa
real(kind=r_2), public :: phiva
real(kind=r_2), public :: Rnsw

type, public ::  vars

Components

Type Visibility Attributes Name Initial
integer(kind=i_d), public :: isat
real(kind=r_2), public :: h
real(kind=r_2), public :: phi
real(kind=r_2), public :: phiS
real(kind=r_2), public :: K
real(kind=r_2), public :: KS
real(kind=r_2), public :: Dv
real(kind=r_2), public :: cvsat
real(kind=r_2), public :: rh
real(kind=r_2), public :: phiv
real(kind=r_2), public :: phivS
real(kind=r_2), public :: kH
real(kind=r_2), public :: kE
real(kind=r_2), public :: kth
real(kind=r_2), public :: csoil
real(kind=r_2), public :: eta_th
real(kind=r_2), public :: hS
real(kind=r_2), public :: rhS
real(kind=r_2), public :: sl
real(kind=r_2), public :: cv
real(kind=r_2), public :: cvsatT
real(kind=r_2), public :: cvS
real(kind=r_2), public :: kv
integer(kind=i_d), public :: iice
real(kind=r_2), public :: thetai
real(kind=r_2), public :: thetal
real(kind=r_2), public :: phiT
real(kind=r_2), public :: KT
real(kind=r_2), public :: lambdav
real(kind=r_2), public :: lambdaf
real(kind=r_2), public :: Sliq
real(kind=r_2), public :: he
real(kind=r_2), public :: phie
real(kind=r_2), public :: Ksat
real(kind=r_2), public :: dthetaldT
real(kind=r_2), public :: Tfrz
real(kind=r_2), public :: csoileff
real(kind=r_2), public :: zsat
real(kind=r_2), public :: macropore_factor

type, public ::  vars_snow

Components

Type Visibility Attributes Name Initial
real(kind=r_2), public, DIMENSION(nsnow_max) :: depth
real(kind=r_2), public, DIMENSION(nsnow_max) :: hsnow
real(kind=r_2), public, DIMENSION(nsnow_max) :: hliq
real(kind=r_2), public, DIMENSION(nsnow_max) :: dens
real(kind=r_2), public, DIMENSION(nsnow_max) :: tsn
real(kind=r_2), public, DIMENSION(nsnow_max) :: kH
real(kind=r_2), public, DIMENSION(nsnow_max) :: kE
real(kind=r_2), public, DIMENSION(nsnow_max) :: kth
real(kind=r_2), public, DIMENSION(nsnow_max) :: Dv
real(kind=r_2), public, DIMENSION(nsnow_max) :: cv
real(kind=r_2), public, DIMENSION(nsnow_max) :: sl
real(kind=r_2), public, DIMENSION(nsnow_max) :: melt
real(kind=r_2), public, DIMENSION(nsnow_max) :: Jsensible
real(kind=r_2), public, DIMENSION(nsnow_max) :: Jlatent
real(kind=r_2), public, DIMENSION(nsnow_max) :: deltaJlatent
real(kind=r_2), public, DIMENSION(nsnow_max) :: deltaJsensible
real(kind=r_2), public, DIMENSION(nsnow_max) :: fsnowliq_max
real(kind=r_2), public :: wcol
real(kind=r_2), public :: Qadv_snow
real(kind=r_2), public :: Qadv_rain
real(kind=r_2), public :: totdepth
real(kind=r_2), public :: J
real(kind=r_2), public :: Qadv_melt
real(kind=r_2), public :: Qadv_vap
real(kind=r_2), public :: Qcond_net
real(kind=r_2), public :: Qadv_transfer
real(kind=r_2), public :: Qmelt
real(kind=r_2), public :: Qtransfer
real(kind=r_2), public :: FluxDivergence
real(kind=r_2), public :: deltaJ
real(kind=r_2), public :: Qvap
real(kind=r_2), public :: MoistureFluxDivergence
real(kind=r_2), public :: Qprec
real(kind=r_2), public :: Qevap
real(kind=r_2), public :: deltawcol
integer(kind=i_d), public :: nsnow
integer(kind=i_d), public :: nsnow_last

type, public ::  vars_aquifer

Components

Type Visibility Attributes Name Initial
integer(kind=i_d), public :: isat
real(kind=r_2), public :: zdelta
real(kind=r_2), public :: zsoil
real(kind=r_2), public :: zzero
real(kind=r_2), public :: K
real(kind=r_2), public :: Wa
real(kind=r_2), public :: discharge
real(kind=r_2), public :: f
real(kind=r_2), public :: Rsmax
real(kind=r_2), public :: Sy

type, public ::  params

Components

Type Visibility Attributes Name Initial
real(kind=r_2), public :: the
real(kind=r_2), public :: thre
real(kind=r_2), public :: he
real(kind=r_2), public :: lam
real(kind=r_2), public :: Ke
real(kind=r_2), public :: eta
real(kind=r_2), public :: thr
real(kind=r_2), public :: KSe
real(kind=r_2), public :: phie
real(kind=r_2), public :: phiSe
real(kind=r_2), public :: rho
real(kind=r_2), public :: thw
real(kind=r_2), public :: thfc
real(kind=r_2), public :: kd
real(kind=r_2), public :: css
real(kind=r_2), public :: clay
real(kind=r_2), public :: tortuosity
integer(kind=i_d), public :: ishorizon
real(kind=r_2), public :: zeta
real(kind=r_2), public :: fsatmax
real(kind=r_2), public :: lambc
real(kind=r_2), public :: LambdaS

type, public ::  rapointer

Components

Type Visibility Attributes Name Initial
real(kind=r_2), public, DIMENSION(:), POINTER :: p

type, public ::  solve_type

Components

Type Visibility Attributes Name Initial
integer(kind=i_d), public :: k
real(kind=r_2), public :: T1
real(kind=r_2), public :: Ta
real(kind=r_2), public :: cva
real(kind=r_2), public :: Rnet
real(kind=r_2), public :: hr1
real(kind=r_2), public :: hra
real(kind=r_2), public :: Dv
real(kind=r_2), public :: gv
real(kind=r_2), public :: gh
real(kind=r_2), public :: Dh
real(kind=r_2), public :: dz
real(kind=r_2), public :: phie
real(kind=r_2), public :: he
real(kind=r_2), public :: K1
real(kind=r_2), public :: eta
real(kind=r_2), public :: lambda
real(kind=r_2), public :: Ks
real(kind=r_2), public :: lambdav