1 |
guez |
3 |
subroutine conf_interface(tau_calv) |
2 |
|
|
|
3 |
|
|
! From phylmd/conf_phys.F90,v 1.7 2005/07/05 07:21:23 |
4 |
|
|
|
5 |
guez |
30 |
use getincom |
6 |
guez |
3 |
implicit none |
7 |
|
|
|
8 |
|
|
! Configuration de l'interace atm/surf |
9 |
|
|
! |
10 |
|
|
! tau_calv: temps de relaxation pour la fonte des glaciers |
11 |
|
|
|
12 |
|
|
REAL :: tau_calv |
13 |
|
|
|
14 |
|
|
! Local |
15 |
|
|
integer :: numout = 6 |
16 |
|
|
! |
17 |
|
|
!Config Key = tau_calv |
18 |
|
|
!Config Desc = temps de relaxation pour fonte des glaciers en jours |
19 |
|
|
!Config Def = 1 an |
20 |
|
|
!Config Help = |
21 |
|
|
! |
22 |
|
|
tau_calv = 360.*10. |
23 |
|
|
call getin('tau_calv',tau_calv) |
24 |
|
|
|
25 |
|
|
write(numout,*)' *********' |
26 |
|
|
WRITE(numout,*)' Configuration de l''interface atm/surfaces : ' |
27 |
|
|
WRITE(numout,*)' tau_calv = ',tau_calv |
28 |
|
|
return |
29 |
|
|
|
30 |
|
|
end subroutine conf_interface |