source: LMDZ5/branches/testing/libf/phy1d/1D_decl_cases.h @ 1687

Last change on this file since 1687 was 1665, checked in by Laurent Fairhead, 13 years ago

Version testing basée sur la r1628

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

Testing release based on r1628
File size: 5.2 KB
Line 
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
94cAl1     logical :: imp_fcg_gcssold
95c        logical :: ts_fcg_gcssold
96c        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
Note: See TracBrowser for help on using the repository browser.