1 |
MODULE interface_surf |
MODULE conf_interface_m |
2 |
|
|
3 |
! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09 |
! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09 |
4 |
! L. Fairhead, LMD, february 2000 |
! L. Fairhead, LMD, february 2000 |
5 |
|
|
6 |
IMPLICIT none |
IMPLICIT none |
7 |
|
|
|
! run_off ruissellement total |
|
|
REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic |
|
|
real, allocatable, dimension(:), save :: coastalflow, riverflow |
|
|
|
|
|
REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rlic |
|
|
! pour simuler la fonte des glaciers antarctiques |
|
|
|
|
8 |
REAL, save :: tau_calv |
REAL, save :: tau_calv |
9 |
! temps de relaxation pour la fonte des glaciers, en jours |
! temps de relaxation pour la fonte des glaciers, en jours |
10 |
|
|
30 |
|
|
31 |
end subroutine conf_interface |
end subroutine conf_interface |
32 |
|
|
33 |
END MODULE interface_surf |
END MODULE conf_interface_m |