phylmd/Interface_surf/interface_surf.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

  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	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	72	REAL, save :: tau_calv
9			! temps de relaxation pour la fonte des glaciers, en jours
10
11			contains
12
13			subroutine conf_interface
14
15			! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23
16
17			! Configuration de l'interace atm/surf
18
19			use unit_nml_m, only: unit_nml
20
21			namelist /conf_interface_nml/ tau_calv
22
23			!------------------------------------------------------
24
25			tau_calv = 360.*10.
26
27			print *, "Enter namelist 'conf_interface_nml'."
28			read(unit=*, nml=conf_interface_nml)
29			write(unit_nml, nml=conf_interface_nml)
30
31			end subroutine conf_interface
32
33	guez	3	END MODULE interface_surf