Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
tp_sat_2_ht_w | Module: SOIL_DRV | File: GHY_DRV.f |
Author :
Version:
Declaration:
subroutine tp_sat_2_ht_w( w, ht, nsn, dzsn, wsn, hsn, fr_snow, earth_sat, earth_ice, earth_tp, snowd, ws_can, shc_can, q, dz )
- rhow : used from constant
- shi_kg : used from constant
- Initial Value
= >shi
- lhm : used from constant
- snow_redistr : used from snow_model
- snow_fraction : used from snow_model
- ngm : used from ghy_com
- get_soil_properties : used from sle001
- w :
real*8, intent(out), dimension(0:, :)
- ht :
real*8, intent(out), dimension(0:, :)
- dzsn :
real*8, intent(out), dimension(:, :)
- wsn :
real*8, intent(out), dimension(:, :)
- hsn :
real*8, intent(out), dimension(:, :)
- fr_snow :
real*8, intent(out), dimension(:)
- nsn :
integer, intent(out), dimension(:)
- earth_sat :
real*8, intent(in), dimension(0:, :)
- earth_ice :
real*8, intent(in), dimension(0:, :)
- earth_tp :
real*8, intent(in), dimension(0:, :)
- snowd :
real*8, intent(in), dimension(:)
- ws_can :
real*8, intent(in)
- shc_can :
real*8, intent(in)
- shi :
real*8, parameter
- heat capacity of pure ice (J/m^3 C)
Initial Value= shi_kg * rhow
- q :
real*8, intent(in), dimension(:, :)
- dz :
real*8, intent(in), dimension(:)
- fsn :
real*8, parameter
- latent heat of melt (J/m^3)
Initial Value= lhm * rhow
- thetm :
real*8, dimension(ngm, 2)
- thets :
real*8, dimension(ngm, 2)
- shc :
real*8, dimension(ngm, 2)
- tsn1 :
real*8, dimension(2)
- ibv :
integer
- k :
integer