17 |
|
|
18 |
USE conf_phys_m, ONLY : iflag_pbl |
USE conf_phys_m, ONLY : iflag_pbl |
19 |
USE dimens_m, ONLY : iim, jjm |
USE dimens_m, ONLY : iim, jjm |
20 |
USE dimphy, ONLY : klev, klon, zmasq |
USE dimphy, ONLY : klev, klon |
21 |
USE dimsoil, ONLY : nsoilmx |
USE dimsoil, ONLY : nsoilmx |
22 |
USE indicesol, ONLY : is_ter, nbsrf |
USE indicesol, ONLY : is_ter, nbsrf |
23 |
USE interfsurf_hq_m, ONLY : interfsurf_hq |
USE interfsurf_hq_m, ONLY : interfsurf_hq |
76 |
!IM cf JLD |
!IM cf JLD |
77 |
! Flux thermique utiliser pour fondre la neige |
! Flux thermique utiliser pour fondre la neige |
78 |
REAL ffonte(klon) |
REAL ffonte(klon) |
79 |
! Flux d'eau "perdue" par la surface et nécessaire pour que limiter la |
! Flux d'eau "perdue" par la surface et n\'ecessaire pour que limiter la |
80 |
! hauteur de neige, en kg/m2/s |
! hauteur de neige, en kg/m2/s |
81 |
REAL fqcalving(klon) |
REAL fqcalving(klon) |
82 |
|
|