113 |
real zfra(size(knindex)) ! (knon) |
real zfra(size(knindex)) ! (knon) |
114 |
REAL, PARAMETER:: fmagic = 1. ! facteur magique pour r\'egler l'alb\'edo |
REAL, PARAMETER:: fmagic = 1. ! facteur magique pour r\'egler l'alb\'edo |
115 |
REAL, PARAMETER:: max_eau_sol = 150. ! in kg m-2 |
REAL, PARAMETER:: max_eau_sol = 150. ! in kg m-2 |
116 |
|
REAL, PARAMETER:: tau_gl = 86400. * 5. |
117 |
|
|
118 |
!------------------------------------------------------------- |
!------------------------------------------------------------- |
119 |
|
|
210 |
|
|
211 |
CALL soil(dtime, is_sic, snow, tsurf_new, tsoil, soilcap, soilflux) |
CALL soil(dtime, is_sic, snow, tsurf_new, tsoil, soilcap, soilflux) |
212 |
cal = RCPD / soilcap |
cal = RCPD / soilcap |
213 |
dif_grnd = 0. |
dif_grnd = 1. / tau_gl |
214 |
tsurf = tsurf_new |
tsurf = tsurf_new |
215 |
beta = 1. |
beta = 1. |
216 |
|
|