| 1 | c**************************************************************************** |
|---|
| 2 | c |
|---|
| 3 | c Merging of different common blocks used in the new NLTE 15um param |
|---|
| 4 | c |
|---|
| 5 | c jan 2012 fgg+malv |
|---|
| 6 | c**************************************************************************** |
|---|
| 7 | c *** Old datitos.cmn *** |
|---|
| 8 | c |
|---|
| 9 | common /spectralv11/ elow, deltanu |
|---|
| 10 | real elow(nisot,nb), deltanu(nisot,nb) |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | common/nu_levs_bands_v11/ nu11, nu12, nu121, |
|---|
| 14 | @ nu21, nu31, nu41 |
|---|
| 15 | real*8 nu11, nu12, nu121 |
|---|
| 16 | real*8 nu21 |
|---|
| 17 | real*8 nu31 |
|---|
| 18 | real*8 nu41 |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | common /aeinstein1v11/ a1_010_000, a1_020_010 |
|---|
| 22 | common /aeinstein2v11/ a2_010_000 |
|---|
| 23 | common /aeinstein3v11/ a3_010_000 |
|---|
| 24 | common /aeinstein4v11/ a4_010_000 |
|---|
| 25 | |
|---|
| 26 | real*8 a1_010_000, a1_020_010 |
|---|
| 27 | real*8 a2_010_000 |
|---|
| 28 | real*8 a3_010_000 |
|---|
| 29 | real*8 a4_010_000 |
|---|
| 30 | |
|---|
| 31 | |
|---|
| 32 | c *** Old tabulation.cmn *** |
|---|
| 33 | |
|---|
| 34 | common/input_tab_v11/ lnpnbtab, |
|---|
| 35 | @ tstar11tab, tstar21tab, tstar31tab, tstar41tab, |
|---|
| 36 | @ vc210tab, vc310tab, vc410tab |
|---|
| 37 | |
|---|
| 38 | real*8 lnpnbtab(nztabul) |
|---|
| 39 | real*8 vc210tab(nztabul), vc310tab(nztabul), vc410tab(nztabul) |
|---|
| 40 | real*8 tstar11tab(nztabul), tstar21tab(nztabul), |
|---|
| 41 | @ tstar31tab(nztabul), tstar41tab(nztabul) |
|---|
| 42 | |
|---|
| 43 | |
|---|
| 44 | c *** Old nlte_results.cmn *** |
|---|
| 45 | |
|---|
| 46 | common/input_avilable_from/ input_cza |
|---|
| 47 | integer input_cza |
|---|
| 48 | |
|---|
| 49 | c temperatura vibracional de entrada: |
|---|
| 50 | common/temp626/ v626t1 |
|---|
| 51 | common/temp628/ v628t1 |
|---|
| 52 | common/temp636/ v636t1 |
|---|
| 53 | common/temp627/ v627t1 |
|---|
| 54 | real*8 v626t1(nl) |
|---|
| 55 | real*8 v628t1(nl) |
|---|
| 56 | real*8 v636t1(nl) |
|---|
| 57 | real*8 v627t1(nl) |
|---|
| 58 | |
|---|
| 59 | c output de cza.for |
|---|
| 60 | common /tv15um/ vt11, vt12, vt21, vt31, vt41 |
|---|
| 61 | real*8 vt11(nl), vt12(nl), vt21(nl), vt31(nl), vt41(nl) |
|---|
| 62 | |
|---|
| 63 | common /hr15um/ hr110,hr210,hr310,hr410,hr121 |
|---|
| 64 | real*8 hr110(nl),hr121(nl), |
|---|
| 65 | @ hr210(nl),hr310(nl),hr410(nl) |
|---|
| 66 | |
|---|
| 67 | common/sf15um/ el11,el12, el21, el31, el41 |
|---|
| 68 | real*8 el11(nl), el12(nl) |
|---|
| 69 | real*8 el21(nl) |
|---|
| 70 | real*8 el31(nl) |
|---|
| 71 | real*8 el41(nl) |
|---|
| 72 | |
|---|
| 73 | common/sl15um/ sl110,sl121, sl210,sl310,sl410 |
|---|
| 74 | real*8 sl110(nl), sl121(nl) |
|---|
| 75 | real*8 sl210(nl) |
|---|
| 76 | real*8 sl310(nl) |
|---|
| 77 | real*8 sl410(nl) |
|---|
| 78 | |
|---|
| 79 | |
|---|
| 80 | c *** Old matrices.cmn *** |
|---|
| 81 | |
|---|
| 82 | |
|---|
| 83 | c curtis matrix de cza: |
|---|
| 84 | common/curtis_matrixes_15um/ c110,c121, c210, |
|---|
| 85 | @ c310,c410, |
|---|
| 86 | @ vc110,vc121,vc210,vc310,vc410 |
|---|
| 87 | real*8 c110(nl,nl), c121(nl,nl) |
|---|
| 88 | real*8 c210(nl,nl) |
|---|
| 89 | real*8 c310(nl,nl) |
|---|
| 90 | real*8 c410(nl,nl) |
|---|
| 91 | real*8 vc110(nl), vc121(nl) |
|---|
| 92 | real*8 vc210(nl), vc310(nl), vc410(nl) |
|---|
| 93 | |
|---|
| 94 | ! for the cool-to-space formulation: |
|---|
| 95 | ! |
|---|
| 96 | common/taustar_15um/ taustar11, taustar21, taustar31, |
|---|
| 97 | @ taustar41, taustar12, taustar11_cts |
|---|
| 98 | real*8 taustar11(nl), taustar21(nl), taustar31(nl) |
|---|
| 99 | real*8 taustar41(nl), taustar12(nl) |
|---|
| 100 | real*8 taustar11_cts(nl_cts) |
|---|
| 101 | |
|---|
| 102 | |
|---|
| 103 | c *** Old atmref.cmn *** |
|---|
| 104 | |
|---|
| 105 | |
|---|
| 106 | c NLTE Subgrid |
|---|
| 107 | c |
|---|
| 108 | common /atm_nl/ zl, t, pl, nt, co2, n2, co, o3p, |
|---|
| 109 | @ co2vmr, n2vmr, covmr, o3pvmr, |
|---|
| 110 | @ hrkday_factor |
|---|
| 111 | |
|---|
| 112 | real zl(nl), t(nl), pl(nl), nt(nl), |
|---|
| 113 | @ co2(nl), n2(nl), co(nl), o3p(nl), |
|---|
| 114 | @ co2vmr(nl), n2vmr(nl), covmr(nl), o3pvmr(nl), |
|---|
| 115 | @ hrkday_factor(nl) |
|---|
| 116 | |
|---|
| 117 | |
|---|
| 118 | c Subgrid Transmittances |
|---|
| 119 | c |
|---|
| 120 | common /atm_ny/ zy, ty, py, nty, co2y |
|---|
| 121 | real zy(nzy), ty(nzy), py(nzy), nty(nzy), co2y(nzy) |
|---|
| 122 | |
|---|
| 123 | c Grids and indexes |
|---|
| 124 | common/deltazetas/ deltaz, deltazy, deltaz_cts, deltazy_cts, |
|---|
| 125 | @ jlowerboundary, jtopboundary, jtopCTS |
|---|
| 126 | real deltaz, deltazy, deltaz_cts, deltazy_cts |
|---|
| 127 | integer jlowerboundary, jtopboundary, jtopCTS |
|---|
| 128 | |
|---|
| 129 | |
|---|
| 130 | c NLTE-CTS Subgrid |
|---|
| 131 | c |
|---|
| 132 | common /atm_nl_cts/ zl_cts, t_cts, pl_cts, nt_cts, |
|---|
| 133 | @ co2_cts, n2_cts, co_cts, o3p_cts, |
|---|
| 134 | @ co2vmr_cts, n2vmr_cts, covmr_cts, o3pvmr_cts, |
|---|
| 135 | @ hrkday_factor_cts,mmean_cts,cpnew_cts |
|---|
| 136 | |
|---|
| 137 | real zl_cts(nl_cts), t_cts(nl_cts), pl_cts(nl_cts), |
|---|
| 138 | @ nt_cts(nl_cts), co2_cts(nl_cts), |
|---|
| 139 | @ n2_cts(nl_cts), co_cts(nl_cts), |
|---|
| 140 | @ o3p_cts(nl_cts), co2vmr_cts(nl_cts), n2vmr_cts(nl_cts), |
|---|
| 141 | @ covmr_cts(nl_cts), o3pvmr_cts(nl_cts), |
|---|
| 142 | @ hrkday_factor_cts(nl_cts),mmean_cts(nl_cts), |
|---|
| 143 | @ cpnew_cts(nl_cts) |
|---|
| 144 | |
|---|
| 145 | |
|---|
| 146 | c CTS Subgrid Transmittances |
|---|
| 147 | c |
|---|
| 148 | common /atm_ny_cts/ zy_cts, ty_cts, py_cts, nty_cts, co2y_cts |
|---|
| 149 | real zy_cts(nzy_cts), ty_cts(nzy_cts), py_cts(nzy_cts), |
|---|
| 150 | @ nty_cts(nzy_cts), co2y_cts(nzy_cts) |
|---|
| 151 | |
|---|
| 152 | |
|---|
| 153 | c *** Old rates.cmn *** |
|---|
| 154 | |
|---|
| 155 | common/rates_vt/ |
|---|
| 156 | @ k19ba(4),k19bb(4),k19bc(4), k19bap(4),k19bbp(4),k19bcp(4), |
|---|
| 157 | @ k19ca(4),k19cb(4),k19cc(4), k19cap(4),k19cbp(4),k19ccp(4), |
|---|
| 158 | @ k20b(4),k20c(4), k20bp(4),k20cp(4) |
|---|
| 159 | |
|---|
| 160 | real*8 k19ba,k19bb,k19bc, k19bap,k19bbp,k19bcp |
|---|
| 161 | real*8 k19ca,k19cb,k19cc, k19cap,k19cbp,k19ccp |
|---|
| 162 | real*8 k20b,k20c, k20bp,k20cp |
|---|
| 163 | |
|---|
| 164 | common/rates_vv/ |
|---|
| 165 | @ k21b(4),k21c(4), k21bp(4),k21cp(4), |
|---|
| 166 | @ k33c, k33cp(2:4) |
|---|
| 167 | |
|---|
| 168 | real*8 k21b,k21c, k21bp,k21cp |
|---|
| 169 | real*8 k33c, k33cp |
|---|
| 170 | |
|---|
| 171 | common/rates_last/ k23k21c, k24k21c, k34k21c, |
|---|
| 172 | @ k23k21cp, k24k21cp, k34k21cp |
|---|
| 173 | |
|---|
| 174 | real*8 k23k21c,k24k21c,k34k21c, k23k21cp,k24k21cp,k34k21cp |
|---|
| 175 | |
|---|
| 176 | |
|---|
| 177 | |
|---|
| 178 | c *** Old curtis.cmn *** |
|---|
| 179 | |
|---|
| 180 | common /ini_file/ ibcode1 |
|---|
| 181 | character ibcode1*1 |
|---|
| 182 | |
|---|
| 183 | common/block1/ alsa,alda,ka,kr |
|---|
| 184 | real*8 ka(nbox_max),alsa(nbox_max),alda(nbox_max) |
|---|
| 185 | integer kr |
|---|
| 186 | |
|---|
| 187 | common/block2/ hisfile |
|---|
| 188 | character hisfile*75 |
|---|
| 189 | |
|---|
| 190 | common/block3/ pp,ta,w |
|---|
| 191 | real*8 pp,ta(nbox_max),w |
|---|
| 192 | |
|---|
| 193 | common/block4/ no,sk1,xls1,xld1,thist,nbox |
|---|
| 194 | real*8 sk1(nhist,nbox_max) |
|---|
| 195 | real*8 xls1(nhist,nbox_max) |
|---|
| 196 | real*8 xld1(nhist,nbox_max) |
|---|
| 197 | real*8 thist(nhist) |
|---|
| 198 | real*8 no(nbox_max) |
|---|
| 199 | integer nbox |
|---|
| 200 | |
|---|
| 201 | common/block5/eqw, aa, cc, dd, ddbox, ccbox, mr, mr_cts |
|---|
| 202 | real*8 eqw, aa, cc, dd |
|---|
| 203 | real*8 ddbox(nbox_max), ccbox(nbox_max) |
|---|
| 204 | real*8 mr(nzy), mr_cts(nzy_cts) |
|---|
| 205 | |
|---|
| 206 | common/blockstore/no_stored, sk1_stored, xls1_stored, |
|---|
| 207 | & xld1_stored, thist_stored, nbox_stored, |
|---|
| 208 | & mm_stored |
|---|
| 209 | real*8 sk1_stored(nb,nhist,nbox_max) |
|---|
| 210 | real*8 xls1_stored(nb,nhist,nbox_max) |
|---|
| 211 | real*8 xld1_stored(nb,nhist,nbox_max) |
|---|
| 212 | real*8 thist_stored(nb,nhist) |
|---|
| 213 | real*8 no_stored(nb,nbox_max) |
|---|
| 214 | integer nbox_stored(nb), mm_stored(nb) |
|---|
| 215 | |
|---|
| 216 | c***************************************************** |
|---|
| 217 | |
|---|
| 218 | |
|---|
| 219 | c************************************************************* |
|---|
| 220 | |
|---|
| 221 | |
|---|
| 222 | |
|---|
| 223 | |
|---|
| 224 | c**************************************************************************** |
|---|
| 225 | |
|---|
| 226 | |
|---|
| 227 | |
|---|
