64 |
real, intent(IN):: precip_snow(klon) |
real, intent(IN):: precip_snow(klon) |
65 |
! precipitation, solid water mass flux (kg / m2 / s), positive down |
! precipitation, solid water mass flux (kg / m2 / s), positive down |
66 |
|
|
67 |
real, intent(IN):: rugos(klon) ! rugosite |
real, intent(IN):: rugos(:) ! (knon) rugosite |
68 |
real, intent(IN):: rugoro(klon) ! rugosite orographique |
real, intent(IN):: rugoro(:) ! (knon) rugosite orographique |
69 |
real, intent(INOUT):: snow(:) ! (knon) |
real, intent(INOUT):: snow(:) ! (knon) |
70 |
real, intent(INOUT):: qsurf(klon) |
real, intent(INOUT):: qsurf(klon) |
71 |
real, intent(IN):: ts(:) ! (knon) temp\'erature de surface |
real, intent(IN):: ts(:) ! (knon) temp\'erature de surface |
81 |
real, intent(OUT):: dflux_l(:), dflux_s(:) ! (knon) |
real, intent(OUT):: dflux_l(:), dflux_s(:) ! (knon) |
82 |
real, intent(OUT):: tsurf_new(:) ! (knon) temp\'erature au sol |
real, intent(OUT):: tsurf_new(:) ! (knon) temp\'erature au sol |
83 |
real, intent(OUT):: albedo(:) ! (knon) albedo |
real, intent(OUT):: albedo(:) ! (knon) albedo |
84 |
real, intent(OUT):: z0_new(klon) ! surface roughness |
real, intent(OUT):: z0_new(:) ! (knon) surface roughness |
85 |
|
|
86 |
real, intent(in):: pctsrf_new_sic(:) ! (klon) |
real, intent(in):: pctsrf_new_sic(:) ! (klon) |
87 |
! nouvelle repartition des surfaces |
! nouvelle repartition des surfaces |
88 |
|
|
89 |
real, intent(INOUT):: agesno(:) ! (knon) |
real, intent(INOUT):: agesno(:) ! (knon) |
90 |
|
|
91 |
|
real, intent(OUT):: fqcalving(:) ! (knon) |
92 |
! Flux d'eau "perdue" par la surface et n\'ecessaire pour limiter la |
! Flux d'eau "perdue" par la surface et n\'ecessaire pour limiter la |
93 |
! hauteur de neige, en kg / m2 / s |
! hauteur de neige, en kg / m2 / s |
|
real, intent(OUT):: fqcalving(:) ! (knon) |
|
94 |
|
|
|
! Flux thermique utiliser pour fondre la neige |
|
95 |
real, dimension(klon), intent(INOUT):: ffonte |
real, dimension(klon), intent(INOUT):: ffonte |
96 |
|
! Flux thermique utiliser pour fondre la neige |
97 |
|
|
98 |
real, dimension(klon), intent(INOUT):: run_off_lic_0 |
real, dimension(klon), intent(INOUT):: run_off_lic_0 |
99 |
! run_off_lic_0 runoff glacier du pas de temps precedent |
! run_off_lic_0 runoff glacier du pas de temps precedent |
144 |
|
|
145 |
ffonte(1:knon) = 0. |
ffonte(1:knon) = 0. |
146 |
dif_grnd = 999999. |
dif_grnd = 999999. |
|
z0_new = 999999. |
|
147 |
|
|
148 |
! Aiguillage vers les differents schemas de surface |
! Aiguillage vers les differents schemas de surface |
149 |
|
|