Changeset 635 for trunk/LMDZ.MARS/libf/phymars/physiq.F

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/physiq.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/physiq.F

@@ -131 +131 @@
 #include "chimiedata.h"
 #include "param.h"
-#include "param_v3.h"
+#include "param_v4.h"
 #include "conc.h"