Changeset 635 for trunk/LMDZ.MARS/libf/phymars/tracer.h

Timestamp:

Apr 26, 2012, 3:22:19 PM (13 years ago)

Author:

emillour

Message:

Mars GCM: Update of the chemistry package, including:

• 93 reactions are accounted for (instead of 22); tracking 28 species (instead of 11)
• computation of photoabsorption using raytracing
• improved time stepping in the photochemistry
• updated parameters (cross-sections); with this new version input files

are in 'EUV/param_v5' of "datafile" directory.

• transition between lower and upper atmosphere chemistry set to 0.1 Pa (calchim.F90)
• Lots of code clean-up: removed obsolete files column.F, param_v3.h, flujo.F, phdisrate.F, ch.F, interpfast.F, paramfoto.F, getch.F Converted chemtermos.F -> chemthermos.F90 and euvheat.F -> euvheat.F90. Added paramfoto_compact.F , param_v4.h and iono.h
• Upadted surfacearea.F
• Cleaned initracer.F and callkeys.h (removed use of obsolete "nqchem" and "oldnames" case when initializing tracers).
• Minor correction in "callsedim": compute "rdust" and/or "rice" only when it makes sense.

FGG+FL+EM

File:

• trunk/LMDZ.MARS/libf/phymars/tracer.h (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/tracer.h

@@ -66 +66 @@
       integer :: igcm_n2plus 
       integer :: igcm_hplus
+      integer :: igcm_hco2plus
       integer :: igcm_elec
       ! other tracers
@@ -85 +86 @@
      & igcm_co2plus,igcm_oplus,igcm_o2plus,igcm_coplus,igcm_cplus,      &
      & igcm_nplus,igcm_noplus,igcm_n2plus,igcm_hplus,igcm_elec,         &
-     & igcm_ar_n2!,nbqchem,niqchem
+     & igcm_hco2plus,igcm_ar_n2!,nbqchem,niqchem
       COMMON/tracer3/noms
 !-----------------------------------------------------------------------