dyn3d/Guide/conf_guide.f

module conf_guide_m

  IMPLICIT NONE

  !   Constantes de rappel. Unite : fraction de jour
  REAL:: tau_min_u = 0.02
  REAL:: tau_max_u = 10.
  REAL:: tau_min_v = 0.02
  REAL:: tau_max_v = 10.
  REAL:: tau_min_t = 0.02
  REAL:: tau_max_t = 10.
  REAL:: tau_min_q = 0.02
  REAL:: tau_max_q = 10.
  REAL:: tau_min_p = 0.02
  REAL:: tau_max_p = 10.

  LOGICAL:: ncep = .false. ! Coordonnee vert NCEP ou ECMWF
  LOGICAL:: ini_anal = .false. ! Initial = analyse
  LOGICAL:: guide_u = .true. ! guidage de u
  LOGICAL:: guide_v = .true. ! gvidage de v
  LOGICAL:: guide_t = .false. ! guidage de T
  LOGICAL:: guide_q = .false. ! guidage de q

  logical:: online = .true. ! controle du guide
  ! hors-ligne: x=x_rea

  ! Latitude min et max pour le rappel dans le cas ou on 'a les
  ! analyses que sur une bande de latitudes.
  REAL:: lat_min_guide = -90. ! Latitude minimum pour le guidage
  real:: lat_max_guide = 90. ! Latitude maximum pour le guidage

contains

  SUBROUTINE conf_guide

    ! From LMDZ4/libf/dyn3d/conf_guide.F, version 1.1.1.1 2004/05/19 12:53:07
    !  Parametres de controle du run:

    use unit_nml_m, only: unit_nml

    namelist /conf_guide_nml/ ncep, ini_anal, guide_u, guide_v, guide_t, &
         online, tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, &
         tau_max_t, tau_min_q, tau_max_q, tau_min_p, tau_max_p, &
         lat_min_guide, lat_max_guide

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

    print *, "Call sequence information: conf_guide"

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

  end SUBROUTINE conf_guide

end module conf_guide_m
1	guez	44	module conf_guide_m
2	guez	37
3	guez	44	IMPLICIT NONE
4	guez	3
5	guez	83	! Constantes de rappel. Unite : fraction de jour
6			REAL:: tau_min_u = 0.02
7			REAL:: tau_max_u = 10.
8			REAL:: tau_min_v = 0.02
9			REAL:: tau_max_v = 10.
10			REAL:: tau_min_t = 0.02
11			REAL:: tau_max_t = 10.
12			REAL:: tau_min_q = 0.02
13			REAL:: tau_max_q = 10.
14			REAL:: tau_min_p = 0.02
15			REAL:: tau_max_p = 10.
16	guez	3
17	guez	83	LOGICAL:: ncep = .false. ! Coordonnee vert NCEP ou ECMWF
18			LOGICAL:: ini_anal = .false. ! Initial = analyse
19			LOGICAL:: guide_u = .true. ! guidage de u
20			LOGICAL:: guide_v = .true. ! gvidage de v
21	guez	107	LOGICAL:: guide_t = .false. ! guidage de T
22			LOGICAL:: guide_q = .false. ! guidage de q
23	guez	83
24	guez	102	logical:: online = .true. ! controle du guide
25			! hors-ligne: x=x_rea
26
27	guez	83	! Latitude min et max pour le rappel dans le cas ou on 'a les
28			! analyses que sur une bande de latitudes.
29			REAL:: lat_min_guide = -90. ! Latitude minimum pour le guidage
30			real:: lat_max_guide = 90. ! Latitude maximum pour le guidage
31
32	guez	44	contains
33	guez	3
34	guez	44	SUBROUTINE conf_guide
35	guez	3
36	guez	44	! From LMDZ4/libf/dyn3d/conf_guide.F, version 1.1.1.1 2004/05/19 12:53:07
37			! Parametres de controle du run:
38	guez	3
39	guez	83	use unit_nml_m, only: unit_nml
40	guez	3
41	guez	83	namelist /conf_guide_nml/ ncep, ini_anal, guide_u, guide_v, guide_t, &
42	guez	85	online, tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, &
43			tau_max_t, tau_min_q, tau_max_q, tau_min_p, tau_max_p, &
44	guez	83	lat_min_guide, lat_max_guide
45
46	guez	44	!-----------------------------------------------------------------------
47	guez	3
48	guez	44	print *, "Call sequence information: conf_guide"
49	guez	3
50	guez	83	print *, "Enter namelist 'conf_guide_nml'."
51			read(unit=*, nml=conf_guide_nml)
52			write(unit_nml, nml=conf_guide_nml)
53	guez	3
54	guez	44	end SUBROUTINE conf_guide
55
56			end module conf_guide_m