1 |
guez |
3 |
MODULE interface_surf |
2 |
|
|
|
3 |
guez |
14 |
! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09 |
4 |
guez |
38 |
! L. Fairhead, LMD, february 2000 |
5 |
guez |
3 |
|
6 |
|
|
IMPLICIT none |
7 |
|
|
|
8 |
guez |
72 |
REAL, save :: tau_calv |
9 |
|
|
! temps de relaxation pour la fonte des glaciers, en jours |
10 |
|
|
|
11 |
|
|
contains |
12 |
|
|
|
13 |
|
|
subroutine conf_interface |
14 |
|
|
|
15 |
|
|
! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23 |
16 |
|
|
|
17 |
|
|
! Configuration de l'interace atm/surf |
18 |
|
|
|
19 |
|
|
use unit_nml_m, only: unit_nml |
20 |
|
|
|
21 |
|
|
namelist /conf_interface_nml/ tau_calv |
22 |
|
|
|
23 |
|
|
!------------------------------------------------------ |
24 |
|
|
|
25 |
|
|
tau_calv = 360.*10. |
26 |
|
|
|
27 |
|
|
print *, "Enter namelist 'conf_interface_nml'." |
28 |
|
|
read(unit=*, nml=conf_interface_nml) |
29 |
|
|
write(unit_nml, nml=conf_interface_nml) |
30 |
|
|
|
31 |
|
|
end subroutine conf_interface |
32 |
|
|
|
33 |
guez |
3 |
END MODULE interface_surf |