My Project
 All Classes Files Functions Variables Macros
1D_decl_cases.h
Go to the documentation of this file.
1 ! Declarations specifiques au cas Toga
2  character*80 :: fich_toga
3 ! integer nlev_prof
4 ! parameter (nlev_prof = 41)
5  integer nlev_toga, nt_toga
6  parameter (nlev_toga=41, nt_toga=480)
7  integer year_ini_toga, day_ini_toga, mth_ini_toga
8  real day_ju_ini_toga ! Julian day of toga coare first day
9  parameter (year_ini_toga=1992)
10  parameter (mth_ini_toga=11)
11  parameter (day_ini_toga=1) ! 1erNov1992
12  real dt_toga
13  parameter (dt_toga=6.*3600.)
14 !!
15  integer year_print, month_print, day_print
16  real sec_print
17 !!
18  integer nn
19  integer it_toga1, it_toga2
20  real time_toga1,time_toga2
21 
22  real ts_toga(nt_toga)
23  real plev_toga(nlev_toga,nt_toga),w_toga(nlev_toga,nt_toga)
24  real t_toga(nlev_toga,nt_toga),q_toga(nlev_toga,nt_toga)
25  real u_toga(nlev_toga,nt_toga),v_toga(nlev_toga,nt_toga)
26  real ht_toga(nlev_toga,nt_toga),vt_toga(nlev_toga,nt_toga)
27  real hq_toga(nlev_toga,nt_toga),vq_toga(nlev_toga,nt_toga)
28 
29  real ts_prof
30  real plev_prof(nlev_toga),w_prof(nlev_toga)
31  real t_prof(nlev_toga),q_prof(nlev_toga)
32  real u_prof(nlev_toga),v_prof(nlev_toga)
33  real ht_prof(nlev_toga),vt_prof(nlev_toga)
34  real hq_prof(nlev_toga),vq_prof(nlev_toga)
35 
36  real plev_mod(llm),w_mod(llm), t_mod(llm),q_mod(llm)
37  real u_mod(llm),v_mod(llm), ht_mod(llm),vt_mod(llm)
38  real hq_mod(llm),vq_mod(llm),qv_mod(llm),ql_mod(llm),qt_mod(llm)
39 
40  real ts_cur
41  common /sst_forcing/ts_cur ! also in read_tsurf1d.F
42 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
43 ! Declarations specifiques au cas RICO
44  character*80 :: fich_rico
45  integer nlev_rico
46 
47  parameter (nlev_rico=81)
48  real ts_rico,ps_rico
49  real w_rico(llm)
50  real t_rico(llm),q_rico(llm)
51  real u_rico(llm),v_rico(llm)
52  real dth_rico(llm)
53  real dqh_rico(llm)
54  real du_age(llm),dv_age(llm)
55 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
56 ! Declarations specifiques au cas TWPice
57  character*80 :: fich_twpice
58  integer nlev_twpi, nt_twpi
59  parameter (nlev_twpi=40, nt_twpi=215)
60  integer year_ini_twpi, day_ini_twpi, mth_ini_twpi
61  real heure_ini_twpi
62  real day_ju_ini_twpi ! Julian day of twpice first day
63  parameter (year_ini_twpi=2006)
64  parameter (mth_ini_twpi=1)
65  parameter (day_ini_twpi=17) ! 17 = 17Jan2006
66  parameter (heure_ini_twpi=10800.) !3h en secondes
67  real dt_twpi
68  parameter (dt_twpi=3.*3600.)
69 
70  real ts_twpi(nt_twpi)
71  real plev_twpi(nlev_twpi,nt_twpi),w_twpi(nlev_twpi,nt_twpi)
72  real t_twpi(nlev_twpi,nt_twpi),q_twpi(nlev_twpi,nt_twpi)
73  real u_twpi(nlev_twpi,nt_twpi),v_twpi(nlev_twpi,nt_twpi)
74  real ht_twpi(nlev_twpi,nt_twpi),vt_twpi(nlev_twpi,nt_twpi)
75  real hq_twpi(nlev_twpi,nt_twpi),vq_twpi(nlev_twpi,nt_twpi)
76 
77  real ts_proftwp
78  real plev_proftwp(nlev_twpi),w_proftwp(nlev_twpi)
79  real t_proftwp(nlev_twpi),q_proftwp(nlev_twpi)
80  real u_proftwp(nlev_twpi),v_proftwp(nlev_twpi)
81  real ht_proftwp(nlev_twpi),vt_proftwp(nlev_twpi)
82  real hq_proftwp(nlev_twpi),vq_proftwp(nlev_twpi)
83 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
84 ! Declarations specifiques au cas GCSSold
85  character*80 :: fich_gcssold_ctl
86  character*80 :: fich_gcssold_dat
87  real ht_gcssold(llm),hq_gcssold(llm),hw_gcssold(llm)
88  real hu_gcssold(llm)
89  real hv_gcssold(llm)
90  real hthturb_gcssold(llm)
91  real hqturb_gcssold(llm)
92  real Ts_gcssold
93  real dtime_frcg
94 cAl1 logical :: imp_fcg_gcssold
95 c logical :: ts_fcg_gcssold
96 c logical :: Tp_fcg_gcssold
97  logical :: Turb_fcg_gcssold
98  common /turb_forcing/ dtime_frcg,
99  $ Turb_fcg_gcssold, hthturb_gcssold, hqturb_gcssold
100 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
101 ! Declarations specifiques au cas Arm_cu
102  character*80 :: fich_armcu
103 
104 
105  integer nlev_armcu, nt_armcu
106  parameter (nlev_armcu=40, nt_armcu=31)
107  integer year_ini_armcu, day_ini_armcu, mth_ini_armcu
108  real heure_ini_armcu
109  real day_ju_ini_armcu ! Julian day of armcu case first day
110  parameter (year_ini_armcu=1997)
111  parameter (mth_ini_armcu=6)
112  parameter (day_ini_armcu=21) ! 172 = 21 juin 1997
113  parameter (heure_ini_armcu=41400) ! 11:30 en secondes
114  real dt_armcu
115  parameter (dt_armcu=1.*1800.) ! forcages donnes ttes les demi-heures par ifa_armcu.txt
116  real sens_armcu(nt_armcu),flat_armcu(nt_armcu)
117  real adv_theta_armcu(nt_armcu),rad_theta_armcu(nt_armcu)
118  real adv_qt_armcu(nt_armcu)
119  real theta_mod(llm),rv_mod(llm),play_mod(llm)
120  real d_t_dyn_ls(llm),d_q_dyn_ls(llm)
121 ! profc comme "profil armcu"
122  real h_profc,play_profc,t_profc,th_profc,plev_profc
123  real u_profc,v_profc,qv_profc,rv_profc
124 
125 ! forcages interpoles dans le temps
126  real adv_theta_prof,rad_theta_prof,adv_qt_prof
127  real sens_prof,flat_prof,fact
128 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
129