libf/phylmd/conf_interface.f90

subroutine conf_interface(tau_calv)

  ! From phylmd/conf_phys.F90,v 1.7 2005/07/05 07:21:23

  use getincom
  implicit none

  ! Configuration de l'interace atm/surf
  !
  ! tau_calv:    temps de relaxation pour la fonte des glaciers

  REAL          :: tau_calv

  ! Local
  integer              :: numout = 6
  !
  !Config Key  = tau_calv
  !Config Desc = temps de relaxation pour fonte des glaciers en jours
  !Config Def  = 1 an 
  !Config Help = 
  !
  tau_calv = 360.*10.
  call getin('tau_calv',tau_calv)

  write(numout,*)' *********'
  WRITE(numout,*)' Configuration de l''interface atm/surfaces  : '
  WRITE(numout,*)' tau_calv = ',tau_calv
  return

end subroutine conf_interface
1	subroutine conf_interface(tau_calv)
2
3	! From phylmd/conf_phys.F90,v 1.7 2005/07/05 07:21:23
4
5	use getincom
6	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