| [2117] | 1 | #include "netcdf.inc" |
|---|
| 2 | |
|---|
| [2017] | 3 | ! Declarations specifiques au cas Toga |
|---|
| 4 | character*80 :: fich_toga |
|---|
| 5 | ! integer nlev_prof |
|---|
| 6 | ! parameter (nlev_prof = 41) |
|---|
| 7 | integer nlev_toga, nt_toga |
|---|
| 8 | parameter (nlev_toga=41, nt_toga=480) |
|---|
| 9 | integer year_ini_toga, day_ini_toga, mth_ini_toga |
|---|
| 10 | real day_ju_ini_toga ! Julian day of toga coare first day |
|---|
| 11 | parameter (year_ini_toga=1992) |
|---|
| 12 | parameter (mth_ini_toga=11) |
|---|
| 13 | parameter (day_ini_toga=1) ! 1erNov1992 |
|---|
| 14 | real dt_toga |
|---|
| 15 | parameter (dt_toga=6.*3600.) |
|---|
| 16 | !! |
|---|
| 17 | integer year_print, month_print, day_print |
|---|
| 18 | real sec_print |
|---|
| 19 | !! |
|---|
| 20 | real ts_toga(nt_toga) |
|---|
| 21 | real plev_toga(nlev_toga,nt_toga),w_toga(nlev_toga,nt_toga) |
|---|
| 22 | real t_toga(nlev_toga,nt_toga),q_toga(nlev_toga,nt_toga) |
|---|
| 23 | real u_toga(nlev_toga,nt_toga),v_toga(nlev_toga,nt_toga) |
|---|
| 24 | real ht_toga(nlev_toga,nt_toga),vt_toga(nlev_toga,nt_toga) |
|---|
| 25 | real hq_toga(nlev_toga,nt_toga),vq_toga(nlev_toga,nt_toga) |
|---|
| 26 | |
|---|
| 27 | real ts_prof |
|---|
| 28 | real plev_prof(nlev_toga),w_prof(nlev_toga) |
|---|
| 29 | real t_prof(nlev_toga),q_prof(nlev_toga) |
|---|
| 30 | real u_prof(nlev_toga),v_prof(nlev_toga) |
|---|
| 31 | real ht_prof(nlev_toga),vt_prof(nlev_toga) |
|---|
| 32 | real hq_prof(nlev_toga),vq_prof(nlev_toga) |
|---|
| 33 | |
|---|
| 34 | real w_mod(llm), t_mod(llm),q_mod(llm) |
|---|
| 35 | real u_mod(llm),v_mod(llm), ht_mod(llm),vt_mod(llm) |
|---|
| 36 | real hq_mod(llm),vq_mod(llm),qv_mod(llm),ql_mod(llm),qt_mod(llm) |
|---|
| [2126] | 37 | real th_mod(llm) |
|---|
| [2017] | 38 | |
|---|
| 39 | real ts_cur |
|---|
| 40 | common /sst_forcing/ts_cur ! also in read_tsurf1d.F |
|---|
| 41 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 42 | ! Declarations specifiques au cas RICO |
|---|
| 43 | character*80 :: fich_rico |
|---|
| 44 | integer nlev_rico |
|---|
| 45 | |
|---|
| 46 | parameter (nlev_rico=81) |
|---|
| 47 | real ts_rico,ps_rico |
|---|
| 48 | real w_rico(llm) |
|---|
| 49 | real t_rico(llm),q_rico(llm) |
|---|
| 50 | real u_rico(llm),v_rico(llm) |
|---|
| 51 | real dth_rico(llm) |
|---|
| 52 | real dqh_rico(llm) |
|---|
| 53 | real du_age(llm),dv_age(llm) |
|---|
| 54 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 55 | ! Declarations specifiques au cas TWPice |
|---|
| 56 | character*80 :: fich_twpice |
|---|
| 57 | integer nlev_twpi, nt_twpi |
|---|
| 58 | parameter (nlev_twpi=40, nt_twpi=215) |
|---|
| 59 | integer year_ini_twpi, day_ini_twpi, mth_ini_twpi |
|---|
| 60 | real heure_ini_twpi |
|---|
| 61 | real day_ju_ini_twpi ! Julian day of twpice first day |
|---|
| 62 | parameter (year_ini_twpi=2006) |
|---|
| 63 | parameter (mth_ini_twpi=1) |
|---|
| 64 | parameter (day_ini_twpi=17) ! 17 = 17Jan2006 |
|---|
| 65 | parameter (heure_ini_twpi=10800.) !3h en secondes |
|---|
| 66 | real dt_twpi |
|---|
| 67 | parameter (dt_twpi=3.*3600.) |
|---|
| 68 | |
|---|
| 69 | real ts_twpi(nt_twpi) |
|---|
| 70 | real plev_twpi(nlev_twpi,nt_twpi),w_twpi(nlev_twpi,nt_twpi) |
|---|
| 71 | real t_twpi(nlev_twpi,nt_twpi),q_twpi(nlev_twpi,nt_twpi) |
|---|
| 72 | real u_twpi(nlev_twpi,nt_twpi),v_twpi(nlev_twpi,nt_twpi) |
|---|
| 73 | real ht_twpi(nlev_twpi,nt_twpi),vt_twpi(nlev_twpi,nt_twpi) |
|---|
| 74 | real hq_twpi(nlev_twpi,nt_twpi),vq_twpi(nlev_twpi,nt_twpi) |
|---|
| 75 | |
|---|
| 76 | real ts_proftwp |
|---|
| 77 | real plev_proftwp(nlev_twpi),w_proftwp(nlev_twpi) |
|---|
| 78 | real t_proftwp(nlev_twpi),q_proftwp(nlev_twpi) |
|---|
| 79 | real u_proftwp(nlev_twpi),v_proftwp(nlev_twpi) |
|---|
| 80 | real ht_proftwp(nlev_twpi),vt_proftwp(nlev_twpi) |
|---|
| 81 | real hq_proftwp(nlev_twpi),vq_proftwp(nlev_twpi) |
|---|
| 82 | |
|---|
| 83 | |
|---|
| 84 | |
|---|
| 85 | !Declarations specifiques au cas FIRE |
|---|
| 86 | character*80 :: fich_fire |
|---|
| 87 | integer nlev_fire, nt_fire |
|---|
| 88 | parameter (nlev_fire=120, nt_fire=1) |
|---|
| 89 | integer year_ini_fire, day_ini_fire, mth_ini_fire |
|---|
| 90 | real heure_ini_fire |
|---|
| 91 | parameter (year_ini_fire=1987) |
|---|
| 92 | parameter (mth_ini_fire=7) |
|---|
| 93 | parameter (day_ini_fire=14) ! 14 = 14Juil1987 |
|---|
| 94 | parameter (heure_ini_fire=0.) !0h en secondes |
|---|
| 95 | |
|---|
| 96 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| [2126] | 97 | !Declarations specifiques au cas DICE (MPL 02072013) |
|---|
| 98 | character*80 :: fich_dice |
|---|
| 99 | integer nlev_dice, nt_dice |
|---|
| 100 | parameter (nlev_dice=70, nt_dice=145) |
|---|
| 101 | integer year_ini_dice, day_ini_dice, mth_ini_dice |
|---|
| 102 | real heure_ini_dice |
|---|
| 103 | real day_ju_ini_dice ! Julian day of dice first day |
|---|
| 104 | parameter (year_ini_dice=1999) |
|---|
| 105 | parameter (mth_ini_dice=10) |
|---|
| 106 | parameter (day_ini_dice=23) ! 23 = 23 october 1999 |
|---|
| 107 | parameter (heure_ini_dice=68400.) !19UTC en secondes |
|---|
| 108 | real dt_dice |
|---|
| 109 | parameter (dt_dice=0.5*3600.) ! 1 forcage ttes les demi-heures |
|---|
| 110 | |
|---|
| 111 | !profils initiaux: |
|---|
| 112 | real plev_dice(nlev_dice) |
|---|
| 113 | |
|---|
| 114 | real zz_dice(nlev_dice) |
|---|
| 115 | real th_dice(nlev_dice),qv_dice(nlev_dice) |
|---|
| 116 | real u_dice(nlev_dice), v_dice(nlev_dice),o3_dice(nlev_dice) |
|---|
| 117 | real ht_dice(nlev_dice,nt_dice) |
|---|
| 118 | real hq_dice(nlev_dice,nt_dice), hu_dice(nlev_dice,nt_dice) |
|---|
| 119 | real hv_dice(nlev_dice,nt_dice) |
|---|
| 120 | real w_dice(nlev_dice,nt_dice),omega_dice(nlev_dice,nt_dice) |
|---|
| 121 | real o3_mod(llm),hu_mod(llm),hv_mod(llm) |
|---|
| 122 | real th_dicei(nlev_dice),qv_dicei(nlev_dice) |
|---|
| 123 | real u_dicei(nlev_dice), v_dicei(nlev_dice),o3_dicei(nlev_dice) |
|---|
| 124 | real ht_dicei(nlev_dice) |
|---|
| 125 | real hq_dicei(nlev_dice), hu_dicei(nlev_dice) |
|---|
| 126 | real hv_dicei(nlev_dice) |
|---|
| 127 | real w_dicei(nlev_dice),omega_dicei(nlev_dice) |
|---|
| 128 | |
|---|
| 129 | |
|---|
| 130 | !forcings |
|---|
| 131 | real shf_dice(nt_dice),lhf_dice(nt_dice) |
|---|
| 132 | real lwup_dice(nt_dice),swup_dice(nt_dice) |
|---|
| 133 | real tg_dice(nt_dice),ustar_dice(nt_dice),psurf_dice(nt_dice) |
|---|
| 134 | real ug_dice(nt_dice),vg_dice(nt_dice) |
|---|
| 135 | |
|---|
| 136 | real shf_prof,lhf_prof,lwup_prof,swup_prof,tg_prof |
|---|
| 137 | real ustar_prof,psurf_prof,cdrag |
|---|
| 138 | real ht_profd(nlev_dice),hq_profd(nlev_dice),hu_profd(nlev_dice) |
|---|
| 139 | real hv_profd(nlev_dice),w_profd(nlev_dice) |
|---|
| 140 | real omega_profd(nlev_dice),ug_profd,vg_profd |
|---|
| 141 | |
|---|
| 142 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| [2017] | 143 | ! Declarations specifiques au cas GCSSold |
|---|
| 144 | character*80 :: fich_gcssold_ctl |
|---|
| 145 | character*80 :: fich_gcssold_dat |
|---|
| 146 | real ht_gcssold(llm),hq_gcssold(llm),hw_gcssold(llm) |
|---|
| 147 | real hu_gcssold(llm) |
|---|
| 148 | real hv_gcssold(llm) |
|---|
| 149 | real hthturb_gcssold(llm) |
|---|
| 150 | real hqturb_gcssold(llm) |
|---|
| 151 | real Ts_gcssold |
|---|
| 152 | real dtime_frcg |
|---|
| 153 | logical :: Turb_fcg_gcssold |
|---|
| 154 | |
|---|
| [2019] | 155 | common /turb_forcing/ & |
|---|
| 156 | & dtime_frcg,hthturb_gcssold, hqturb_gcssold,Turb_fcg_gcssold |
|---|
| [2017] | 157 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 158 | ! Declarations specifiques au cas Arm_cu |
|---|
| 159 | character*80 :: fich_armcu |
|---|
| 160 | |
|---|
| 161 | |
|---|
| 162 | integer nlev_armcu, nt_armcu |
|---|
| 163 | parameter (nlev_armcu=40, nt_armcu=31) |
|---|
| 164 | integer year_ini_armcu, day_ini_armcu, mth_ini_armcu |
|---|
| 165 | real heure_ini_armcu |
|---|
| 166 | real day_ju_ini_armcu ! Julian day of armcu case first day |
|---|
| 167 | parameter (year_ini_armcu=1997) |
|---|
| 168 | parameter (mth_ini_armcu=6) |
|---|
| 169 | parameter (day_ini_armcu=21) ! 172 = 21 juin 1997 |
|---|
| 170 | parameter (heure_ini_armcu=41400) ! 11:30 en secondes |
|---|
| 171 | real dt_armcu |
|---|
| 172 | parameter (dt_armcu=1.*1800.) ! forcages donnes ttes les demi-heures par ifa_armcu.txt |
|---|
| 173 | real sens_armcu(nt_armcu),flat_armcu(nt_armcu) |
|---|
| 174 | real adv_theta_armcu(nt_armcu),rad_theta_armcu(nt_armcu) |
|---|
| 175 | real adv_qt_armcu(nt_armcu) |
|---|
| 176 | real theta_mod(llm),rv_mod(llm),play_mod(llm) |
|---|
| 177 | ! profc comme "profil armcu" |
|---|
| 178 | |
|---|
| 179 | ! forcages interpoles dans le temps |
|---|
| 180 | real adv_theta_prof,rad_theta_prof,adv_qt_prof |
|---|
| 181 | real sens_prof,flat_prof,fact |
|---|
| 182 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 183 | ! declarations specifiques au cas Sandu |
|---|
| 184 | character*80 :: fich_sandu |
|---|
| 185 | ! integer nlev_prof |
|---|
| 186 | ! parameter (nlev_prof = 41) |
|---|
| 187 | integer nlev_sandu, nt_sandu |
|---|
| 188 | parameter (nlev_sandu=87, nt_sandu=13) |
|---|
| 189 | integer year_ini_sandu, day_ini_sandu, mth_ini_sandu |
|---|
| 190 | real day_ju_ini_sandu ! Julian day of sandu case first day |
|---|
| 191 | parameter (year_ini_sandu=2006) |
|---|
| 192 | parameter (mth_ini_sandu=7) |
|---|
| 193 | parameter (day_ini_sandu=15) ! 196 = 15 juillet 2006 |
|---|
| 194 | real dt_sandu, tau_sandu |
|---|
| 195 | logical :: trouve_700=.true. |
|---|
| 196 | parameter (dt_sandu=6.*3600.) ! forcages donnes ttes les 6 heures par ifa_sandu.txt |
|---|
| 197 | parameter (tau_sandu=3600.) ! temps de relaxation u,v,thetal,qt vers profil init et au dessus 700hPa |
|---|
| 198 | !! |
|---|
| 199 | real ts_sandu(nt_sandu) |
|---|
| 200 | ! profs comme "profil sandu" |
|---|
| 201 | real plev_profs(nlev_sandu) |
|---|
| 202 | real t_profs(nlev_sandu),thl_profs(nlev_sandu) |
|---|
| 203 | real q_profs(nlev_sandu) |
|---|
| 204 | real u_profs(nlev_sandu),v_profs(nlev_sandu),w_profs(nlev_sandu) |
|---|
| 205 | real omega_profs(nlev_sandu),o3mmr_profs(nlev_sandu) |
|---|
| 206 | |
|---|
| 207 | real, dimension(llm) :: relax_u,relax_v,relax_thl |
|---|
| 208 | real, dimension(llm,2) :: relax_q |
|---|
| 209 | |
|---|
| 210 | real thl_mod(llm),omega_mod(llm),o3mmr_mod(llm),tke_mod(llm) |
|---|
| 211 | !vertical advection computation |
|---|
| 212 | real d_t_z(llm), d_q_z(llm) |
|---|
| 213 | real d_t_dyn_z(llm), d_q_dyn_z(llm) |
|---|
| [2126] | 214 | real d_u_z(llm),d_v_z(llm) |
|---|
| 215 | real d_u_dyn(llm),d_v_dyn(llm) |
|---|
| 216 | real d_u_dyn_z(llm),d_v_dyn_z(llm) |
|---|
| 217 | real d_u_adv(llm),d_v_adv(llm) |
|---|
| [2017] | 218 | real zz(llm) |
|---|
| 219 | real zfact |
|---|
| 220 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 221 | ! Declarations specifiques au cas Astex |
|---|
| 222 | character*80 :: fich_astex |
|---|
| 223 | integer nlev_astex, nt_astex |
|---|
| 224 | parameter (nlev_astex=34, nt_astex=49) |
|---|
| 225 | integer year_ini_astex, day_ini_astex, mth_ini_astex |
|---|
| 226 | real day_ju_ini_astex ! Julian day of astex case first day |
|---|
| 227 | parameter (year_ini_astex=1992) |
|---|
| 228 | parameter (mth_ini_astex=6) |
|---|
| 229 | parameter (day_ini_astex=13) ! 165 = 13 juin 1992 |
|---|
| 230 | real dt_astex |
|---|
| 231 | parameter (dt_astex=3600.) ! forcages donnes ttes les heures par ifa_astex.txt |
|---|
| 232 | real ts_astex(nt_astex),div_astex(nt_astex),ug_astex(nt_astex) |
|---|
| 233 | real vg_astex(nt_astex),ufa_astex(nt_astex),vfa_astex(nt_astex) |
|---|
| 234 | real div_prof,ug_prof,vg_prof,ufa_prof,vfa_prof |
|---|
| 235 | ! profa comme "profil astex" |
|---|
| 236 | real plev_profa(nlev_astex) |
|---|
| 237 | real t_profa(nlev_astex),thl_profa(nlev_astex) |
|---|
| 238 | real qv_profa(nlev_astex),ql_profa(nlev_astex) |
|---|
| 239 | real qt_profa(nlev_astex),o3mmr_profa(nlev_astex) |
|---|
| 240 | real u_profa(nlev_astex),v_profa(nlev_astex),w_profa(nlev_astex) |
|---|
| 241 | real tke_profa(nlev_astex) |
|---|
| [2191] | 242 | |
|---|
| 243 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 244 | !Declarations specifiques au cas standard |
|---|
| 245 | |
|---|
| 246 | real w_mod_cas(llm), t_mod_cas(llm),q_mod_cas(llm) |
|---|
| 247 | real ug_mod_cas(llm),vg_mod_cas(llm) |
|---|
| 248 | real u_mod_cas(llm),v_mod_cas(llm) |
|---|
| 249 | real ht_mod_cas(llm),vt_mod_cas(llm),dt_mod_cas(llm),dtrad_mod_cas(llm) |
|---|
| 250 | real hq_mod_cas(llm),vq_mod_cas(llm),dq_mod_cas(llm) |
|---|
| 251 | real hu_mod_cas(llm),vu_mod_cas(llm),du_mod_cas(llm) |
|---|
| 252 | real hv_mod_cas(llm),vv_mod_cas(llm),dv_mod_cas(llm) |
|---|
| [2017] | 253 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 254 | |
|---|
