| [57] | 1 | c********************************************************************** |
|---|
| 2 | |
|---|
| 3 | c param.cmn |
|---|
| 4 | |
|---|
| 5 | c fgg mar 02 first version |
|---|
| 6 | c********************************************************************** |
|---|
| 7 | |
|---|
| 8 | common/uv/ anchint,crscabsi2,freccen,c123,c1,c2,c12,c23,ch2o2 |
|---|
| 9 | $ ,jabsifotsint,jfotsout,co2crsc195,co2crsc295,fluxtop,t0 |
|---|
| 10 | |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | |
|---|
| 14 | real anchint(ninter) !widht of each interval |
|---|
| 15 | real crscabsi2(nabs,ninter) !cross section |
|---|
| 16 | real freccen(ninter) !representative wavelenght |
|---|
| 17 | real c123(ninter2,nz2) !column densities (cm^-2) |
|---|
| 18 | !(CO2+O2+O3P) |
|---|
| 19 | real c1(nz2) !idem (CO2) (cm^-2) |
|---|
| 20 | real c2(nz2) !idem (O2) (cm^-2) |
|---|
| 21 | real c12(nz2) !idem (CO2+O2) (cm^-2) |
|---|
| 22 | real c23(nz2) !idem (O2+O3P) (cm^-2) |
|---|
| 23 | real ch2o2(nz2) !idem (H2O2) (cm^-2) |
|---|
| 24 | real jabsifotsint(ninter,nabs,nzmax) !photoabsorption |
|---|
| 25 | !coefficients (fot/s) |
|---|
| 26 | real jfotsout(ninter,nabs,nzmax) |
|---|
| 27 | real co2crsc195(9) |
|---|
| 28 | real co2crsc295(9) |
|---|
| 29 | real fluxtop(ninter) |
|---|
| 30 | real t0(nzmax) |
|---|
| 31 | |
|---|
| 32 | |
|---|
| 33 | |
|---|
| 34 | common/fotoquimica/ ch2, ch3, ch4, ch5, ch7,ch9,ch10,ch11, |
|---|
| 35 | $ ch13,ch14,ch15,ch18,ch19,ch20,ch21 |
|---|
| 36 | $ ,jdistot,jdistot_b |
|---|
| 37 | |
|---|
| 38 | real*8 ch2, ch3, ch4, ch5, ch7,ch9,ch10,ch11,ch13,ch14,ch15,ch18 |
|---|
| 39 | real*8 ch19,ch20,ch21 |
|---|
| 40 | !reaction rates |
|---|
| 41 | real jdistot(nabs,nzmax) !photodissociation rates |
|---|
| 42 | real jdistot_b(2,nzmax) |
|---|
| 43 | |
|---|
| 44 | |
|---|
| 45 | |
|---|
| 46 | common/prod/ Pco2,Po2,Po3p,Pco,Ph,Poh,Pho2,Ph2,Ph2o,Po1d,Ph2o2, |
|---|
| 47 | $ Pco2tot,Po2tot,Po3ptot,Pcotot,Phtot,Pohtot, |
|---|
| 48 | $ Pho2tot,Ph2tot,Ph2otot,Po1dtot,Ph2o2tot |
|---|
| 49 | |
|---|
| 50 | real*8 Pco2(nzmax,nreact),Po2(nzmax,nreact),Po3p(nzmax,nreact) |
|---|
| 51 | real*8 Pco(nzmax,nreact),Ph(nzmax,nreact),Poh(nzmax,nreact) |
|---|
| 52 | real*8 Pho2(nzmax,nreact),Ph2(nzmax,nreact),Ph2o(nzmax,nreact) |
|---|
| 53 | real*8 Po1d(nzmax,nreact),Ph2o2(nzmax,nreact) |
|---|
| 54 | real*8 Pco2tot(nzmax),Po2tot(nzmax),Po3ptot(nzmax),Pcotot(nzmax) |
|---|
| 55 | real*8 Phtot(nzmax) |
|---|
| 56 | real*8 Pohtot(nzmax),Pho2tot(nzmax),Ph2tot(nzmax),Ph2otot(nzmax) |
|---|
| 57 | real*8 Po1dtot(nzmax),Ph2o2tot(nzmax) |
|---|
| 58 | |
|---|
| 59 | |
|---|
| 60 | common/loss/ Lco2,Lo2,Lo3p,Lco,Lh,Loh,Lho2,Lh2,Lh2o,Lo1d,Lh2o2, |
|---|
| 61 | $ Lco2tot,Lo2tot,Lo3ptot,Lcotot,Lhtot,Lohtot, |
|---|
| 62 | $ Lho2tot,Lh2tot,Lh2otot,Lo1dtot,Lh2o2tot |
|---|
| 63 | |
|---|
| 64 | real*8 Lco2(nzmax,nreact),Lo2(nzmax,nreact),Lo3p(nzmax,nreact) |
|---|
| 65 | real*8 Lco(nzmax,nreact),Lh(nzmax,nreact),Loh(nzmax,nreact) |
|---|
| 66 | real*8 Lho2(nzmax,nreact),Lh2(nzmax,nreact),Lh2o(nzmax,nreact) |
|---|
| 67 | real*8 Lo1d(nzmax,nreact),Lh2o2(nzmax,nreact) |
|---|
| 68 | real*8 Lco2tot(nzmax),Lo2tot(nzmax),Lo3ptot(nzmax),Lcotot(nzmax) |
|---|
| 69 | real*8 Lhtot(nzmax),Lohtot(nzmax),Lho2tot(nzmax),Lh2tot(nzmax) |
|---|
| 70 | real*8 Lh2otot(nzmax),Lo1dtot(nzmax),Lh2o2tot(nzmax) |
|---|
| 71 | |
|---|
| 72 | |
|---|
| 73 | common/vida/ tminco2,tmino2,tmino3p,tminco,tminh,tminoh,tminho2 |
|---|
| 74 | $ ,tminh2,tminh2o,tmino1d,tminh2o2 |
|---|
| 75 | |
|---|
| 76 | real*8 tminco2(nzmax),tmino2(nzmax),tmino3p(nzmax),tminco(nzmax) |
|---|
| 77 | real*8 tminh(nzmax),tminoh(nzmax),tminho2(nzmax),tminh2(nzmax) |
|---|
| 78 | real*8 tminh2o(nzmax),tmino1d(nzmax),tminh2o2(nzmax) |
|---|
| 79 | |
|---|
| 80 | |
|---|
| 81 | common/flujoctes/ fluxtophr,ct1,p1,ct2,p2 |
|---|
| 82 | |
|---|
| 83 | real fluxtophr(ninter) |
|---|
| 84 | real ct1(ninter),p1(ninter),ct2(ninter),p2(ninter) |
|---|
| 85 | |
|---|
| 86 | common/phdisef/ efdisco2, efdiso2, efdish2, efdish2o, efdish2o2 |
|---|
| 87 | |
|---|
| 88 | real efdisco2(ninter), efdiso2(ninter), efdish2o(ninter) |
|---|
| 89 | real efdish2o2(ninter), efdish2(ninter) |
|---|
| 90 | |
|---|
| 91 | |
|---|
| 92 | |
|---|
| 93 | |
|---|
| 94 | |
|---|
| 95 | |
|---|
