source: trunk/LMDZ.MARS/libf/aeronomars/iono.h @ 1119

Last change on this file since 1119 was 658, checked in by emillour, 13 years ago

Mars GCM:

  • updated high atmosphere photochemistry (jthermcalc.F, param_v4.h, iono.h, paramfoto_compact.F, param_read.F , thermosphere.F).
  • minor change in calchim.F90 (to not use maxloc(zycol, dim = 2) function which seems to be a problem for g95) .
  • minor bug fix in perosat.F; set tendency on pdqscloud for h2o2 to zero if none is computed.
  • in "moldiff.F", changed "tridag" to "tridag_sp", "LUBKSB" to "LUBKSB_SP" and "LUDCMP" to "LUDCMP_SP" to avoid possible conflicts with same routines defined in "moldiff_red.F". Added use of automatic-sized array in "tridag" and "tridag_sp" local array "gam" (to avoid using an a priori oversized local array).

FGG+JYC+EM
File size: 2.0 KB
Line 
1      common/eqF/ o1d_eq,ho2_eq,oh_eq,h_eq,n2d_eq,no2_eq,
2     $ o3_eq,no_eq,
3     $ cplus_eq,coplus_eq,oplus_eq,n2plus_eq,hplus_eq,co2plus_eq,
4     $ o2plus_eq,noplus_eq,nplus_eq,hco2plus_eq
5
6        character*1 o1d_eq(nlayermx),ho2_eq(nlayermx),oh_eq(nlayermx)
7      character*1 h_eq(nlayermx),n2d_eq(nlayermx),no2_eq(nlayermx)
8      character*1 o3_eq(nlayermx),no_eq(nlayermx),cplus_eq(nlayermx)
9      character*1 coplus_eq(nlayermx),oplus_eq(nlayermx)
10      character*1 n2plus_eq(nlayermx)
11      character*1 hplus_eq(nlayermx),co2plus_eq(nlayermx)
12      character*1 o2plus_eq(nlayermx)
13      character*1 noplus_eq(nlayermx), nplus_eq(nlayermx) 
14      character*1 hco2plus_eq(nlayermx)     
15
16      common/taus/ tauco2,tauo2,tauo3p,tauco,tauh,tauoh,tauho2,tauh2,
17     $ tauh2o,tauo1d,tauh2o2,tauo3,taun,tauno,taun2,taun2d,tauno2,
18     $ tauco2plus,tauoplus,tauo2plus,taucoplus,taucplus,taunplus,
19     $ taunoplus,taun2plus,tauhplus,tauhco2plus
20
21      real*8    tauco2(nreact,nlayermx)
22      real*8    tauo2(nreact,nlayermx)
23      real*8    tauo3p(nreact,nlayermx)
24      real*8    tauco(nreact,nlayermx)
25      real*8    tauh(nreact,nlayermx)
26      real*8    tauoh(nreact,nlayermx)
27      real*8    tauho2(nreact,nlayermx)
28      real*8    tauh2(nreact,nlayermx)
29      real*8    tauh2o(nreact,nlayermx)
30      real*8    tauo1d(nreact,nlayermx)
31      real*8    tauh2o2(nreact,nlayermx)
32      real*8    tauo3(nreact,nlayermx)
33      real*8    taun(nreact,nlayermx)
34      real*8    tauno(nreact,nlayermx)
35      real*8    taun2(nreact,nlayermx)
36      real*8    taun2d(nreact,nlayermx)
37      real*8    tauno2(nreact,nlayermx)
38      real*8    tauco2plus(nreact,nlayermx)
39      real*8    tauoplus(nreact,nlayermx)
40      real*8    tauo2plus(nreact,nlayermx)
41      real*8    taucoplus(nreact,nlayermx)
42      real*8    taucplus(nreact,nlayermx)
43      real*8    taunplus(nreact,nlayermx) 
44      real*8    taunoplus(nreact,nlayermx)
45      real*8    taun2plus(nreact,nlayermx)
46      real*8    tauhplus(nreact,nlayermx)
47      real*8    tauhco2plus(nreact,nlayermx)
Note: See TracBrowser for help on using the repository browser.