81 |
real fq_fonte |
real fq_fonte |
82 |
REAL bil_eau_s(size(ps)) ! in kg m-2 |
REAL bil_eau_s(size(ps)) ! in kg m-2 |
83 |
real snow_evap(size(ps)) ! in kg m-2 s-1 |
real snow_evap(size(ps)) ! in kg m-2 s-1 |
84 |
real, parameter:: t_grnd = 271.35, t_coup = 273.15 |
real, parameter:: t_coup = 273.15 |
85 |
REAL, parameter:: chasno = 3.334E5/(2.3867E6*0.15) |
REAL, parameter:: chasno = 3.334E5/(2.3867E6*0.15) |
86 |
REAL, parameter:: chaice = 3.334E5/(2.3867E6*0.15) |
REAL, parameter:: chaice = 3.334E5/(2.3867E6*0.15) |
87 |
real, parameter:: max_eau_sol = 150. ! in kg m-2 |
real, parameter:: max_eau_sol = 150. ! in kg m-2 |