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	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