5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE fonte_neige(nisurf, precip_rain, precip_snow, snow, qsol, & |
SUBROUTINE fonte_neige(nisurf, precip_rain, precip_snow, snow, qsol, & |
8 |
tsurf_new, evap, fqcalving, ffonte, run_off_lic_0) |
tsurf_new, evap, fqcalving, ffonte, run_off_lic_0, run_off_lic) |
9 |
|
|
10 |
! Routine de traitement de la fonte de la neige dans le cas du traitement |
! Routine de traitement de la fonte de la neige dans le cas du traitement |
11 |
! de sol simplifi\'e |
! de sol simplifi\'e |
45 |
real, intent(INOUT):: run_off_lic_0(:) ! (knon) |
real, intent(INOUT):: run_off_lic_0(:) ! (knon) |
46 |
! run off glacier du pas de temps pr\'ecedent |
! run off glacier du pas de temps pr\'ecedent |
47 |
|
|
48 |
|
REAL, intent(OUT):: run_off_lic(:) ! (knon) ruissellement total |
49 |
|
|
50 |
! Local: |
! Local: |
51 |
|
|
52 |
integer knon ! nombre de points \`a traiter |
integer knon ! nombre de points \`a traiter |
62 |
REAL, parameter:: chaice = 3.334E5 / (2.3867E6 * 0.15) |
REAL, parameter:: chaice = 3.334E5 / (2.3867E6 * 0.15) |
63 |
real, parameter:: max_eau_sol = 150. ! in kg m-2 |
real, parameter:: max_eau_sol = 150. ! in kg m-2 |
64 |
real coeff_rel |
real coeff_rel |
|
REAL run_off_lic(size(precip_rain)) ! (knon) ruissellement total |
|
65 |
|
|
66 |
!-------------------------------------------------------------------- |
!-------------------------------------------------------------------- |
67 |
|
|