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