dyn3d/Guide/conf_guide.f

!
! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/conf_guide.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
!
c
c
      SUBROUTINE conf_guide
c
      use getparam
      use guide_m
      IMPLICIT NONE

c-----------------------------------------------------------------------
c  Parametres de controle du run:
c-----------------------------------------------------------------------

      call getpar('guide.eff')

      call getpar('online',1,online,'Index de controle du guide')
      CALL getpar('ncep',.false.,ncep,'Coordonnee vert NCEP ou ECMWF')
      CALL getpar('ini_anal',.false.,ini_anal,'Initial = analyse')

      CALL getpar('guide_u',.true.,guide_u,'guidage de u')
      CALL getpar('guide_v',.true.,guide_v,'guidage de v')
      CALL getpar('guide_T',.true.,guide_T,'guidage de T')
      CALL getpar('guide_P',.true.,guide_P,'guidage de P')
      CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q')

c   Constantes de rappel. Unite : fraction de jour
      CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u')
      CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u')
      CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v')
      CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v')
      CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T')
      CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T')
      CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q')
      CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q')
      CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P')
      CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P')

c   Latitude min et max pour le rappel.
c   dans le cas ou on 'a les analyses que sur une bande de latitudes.
      CALL getpar('lat_min_guide',-90.,lat_min_guide
     s     ,'Latitude minimum pour le guidage ')
      CALL getpar('lat_max_guide', 90.,lat_max_guide
     s     ,'Latitude maximum pour le guidage ')


      CALL getpar

      end
1	guez	3	!
2			! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/conf_guide.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
3			!
4			c
5			c
6			SUBROUTINE conf_guide
7			c
8			use getparam
9			use guide_m
10			IMPLICIT NONE
11
12			c-----------------------------------------------------------------------
13			c Parametres de controle du run:
14			c-----------------------------------------------------------------------
15
16			call getpar('guide.eff')
17
18			call getpar('online',1,online,'Index de controle du guide')
19			CALL getpar('ncep',.false.,ncep,'Coordonnee vert NCEP ou ECMWF')
20			CALL getpar('ini_anal',.false.,ini_anal,'Initial = analyse')
21
22			CALL getpar('guide_u',.true.,guide_u,'guidage de u')
23			CALL getpar('guide_v',.true.,guide_v,'guidage de v')
24			CALL getpar('guide_T',.true.,guide_T,'guidage de T')
25			CALL getpar('guide_P',.true.,guide_P,'guidage de P')
26			CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q')
27
28			c Constantes de rappel. Unite : fraction de jour
29			CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u')
30			CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u')
31			CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v')
32			CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v')
33			CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T')
34			CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T')
35			CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q')
36			CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q')
37			CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P')
38			CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P')
39
40			c Latitude min et max pour le rappel.
41			c dans le cas ou on 'a les analyses que sur une bande de latitudes.
42			CALL getpar('lat_min_guide',-90.,lat_min_guide
43			s ,'Latitude minimum pour le guidage ')
44			CALL getpar('lat_max_guide', 90.,lat_max_guide
45			s ,'Latitude maximum pour le guidage ')
46
47
48			CALL getpar
49
50			end