7 |
|
|
8 |
! run_off ruissellement total |
! run_off ruissellement total |
9 |
REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic |
REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic |
|
real, allocatable, dimension(:), save :: coastalflow, riverflow |
|
10 |
|
|
11 |
REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic |
REAL, save :: tau_calv |
12 |
! pour simuler la fonte des glaciers antarctiques |
! temps de relaxation pour la fonte des glaciers, en jours |
13 |
REAL, save :: tau_calv |
|
14 |
|
contains |
15 |
|
|
16 |
|
subroutine conf_interface |
17 |
|
|
18 |
|
! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23 |
19 |
|
|
20 |
|
! Configuration de l'interace atm/surf |
21 |
|
|
22 |
|
use unit_nml_m, only: unit_nml |
23 |
|
|
24 |
|
namelist /conf_interface_nml/ tau_calv |
25 |
|
|
26 |
|
!------------------------------------------------------ |
27 |
|
|
28 |
|
tau_calv = 360.*10. |
29 |
|
|
30 |
|
print *, "Enter namelist 'conf_interface_nml'." |
31 |
|
read(unit=*, nml=conf_interface_nml) |
32 |
|
write(unit_nml, nml=conf_interface_nml) |
33 |
|
|
34 |
|
end subroutine conf_interface |
35 |
|
|
36 |
END MODULE interface_surf |
END MODULE interface_surf |