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