| 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | c |
|---|
| 5 | c |
|---|
| 6 | SUBROUTINE conf_guide |
|---|
| 7 | c |
|---|
| 8 | use IOIPSL |
|---|
| 9 | use getparam |
|---|
| 10 | IMPLICIT NONE |
|---|
| 11 | |
|---|
| 12 | c----------------------------------------------------------------------- |
|---|
| 13 | c Parametres de controle du run: |
|---|
| 14 | c----------------------------------------------------------------------- |
|---|
| 15 | #include "guide.h" |
|---|
| 16 | |
|---|
| 17 | call getpar('guide.eff') |
|---|
| 18 | |
|---|
| 19 | call getpar('online',1,online,'Index de controle du guide') |
|---|
| 20 | CALL getpar('ncep',.false.,ncep,'Coordonnee vert NCEP ou ECMWF') |
|---|
| 21 | CALL getpar('guide_modele',.false.,guide_modele, |
|---|
| 22 | $ 'guidage sur niveaux modele') |
|---|
| 23 | CALL getpar('ini_anal',.false.,ini_anal,'Initial = analyse') |
|---|
| 24 | CALL getpar('ok_invertp',.true.,ok_invertp,'niveaux p inverses') |
|---|
| 25 | |
|---|
| 26 | CALL getpar('guide_u',.true.,guide_u,'guidage de u') |
|---|
| 27 | CALL getpar('guide_v',.true.,guide_v,'guidage de v') |
|---|
| 28 | CALL getpar('guide_T',.true.,guide_T,'guidage de T') |
|---|
| 29 | CALL getpar('guide_P',.true.,guide_P,'guidage de P') |
|---|
| 30 | CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q') |
|---|
| 31 | CALL getpar('guide_hr',.true.,guide_hr,'guidage de Q par H.R') |
|---|
| 32 | CALL getpar('guide_BL',.true.,guide_BL,'guidage dans C.Lim') |
|---|
| 33 | |
|---|
| 34 | c Constantes de rappel. Unite : fraction de jour |
|---|
| 35 | CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u') |
|---|
| 36 | CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u') |
|---|
| 37 | CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v') |
|---|
| 38 | CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v') |
|---|
| 39 | CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T') |
|---|
| 40 | CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T') |
|---|
| 41 | CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q') |
|---|
| 42 | CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q') |
|---|
| 43 | CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P') |
|---|
| 44 | CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P') |
|---|
| 45 | CALL getpar('gamma4',.false.,gamma4,'Zone sans rappel elargie') |
|---|
| 46 | |
|---|
| 47 | c Latitude min et max pour le rappel. |
|---|
| 48 | c dans le cas ou on 'a les analyses que sur une bande de latitudes. |
|---|
| 49 | CALL getpar('lat_min_guide',-90.,lat_min_guide |
|---|
| 50 | s ,'Latitude minimum pour le guidage ') |
|---|
| 51 | CALL getpar('lat_max_guide', 90.,lat_max_guide |
|---|
| 52 | s ,'Latitude maximum pour le guidage ') |
|---|
| 53 | |
|---|
| 54 | |
|---|
| 55 | CALL getpar |
|---|
| 56 | |
|---|
| 57 | end |
|---|
