phylmd/Interface_surf/conf_interface.f

MODULE interface_surf

  ! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09
  ! L. Fairhead, LMD, february 2000

  IMPLICIT none

  ! run_off ruissellement total
  REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic
  real, allocatable, dimension(:), save :: coastalflow, riverflow

  REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic
  ! pour simuler la fonte des glaciers antarctiques

  REAL, save :: tau_calv 
  ! temps de relaxation pour la fonte des glaciers, en jours

contains

  subroutine conf_interface

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

    ! Configuration de l'interace atm/surf

    use unit_nml_m, only: unit_nml

    namelist /conf_interface_nml/ tau_calv

    !------------------------------------------------------

    tau_calv = 360.*10.

    print *, "Enter namelist 'conf_interface_nml'."
    read(unit=*, nml=conf_interface_nml)
    write(unit_nml, nml=conf_interface_nml)

  end subroutine conf_interface

END MODULE interface_surf
1	MODULE interface_surf
2
3	! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09
4	! L. Fairhead, LMD, february 2000
5
6	IMPLICIT none
7
8	! run_off ruissellement total
9	REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic
10	real, allocatable, dimension(:), save :: coastalflow, riverflow
11
12	REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic
13	! pour simuler la fonte des glaciers antarctiques
14
15	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	END MODULE interface_surf