libf/dyn3d/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	!
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