Changeset 1660 for trunk/LMDZ.MARS/libf/phymars/initracer.F

Timestamp:

Feb 8, 2017, 4:36:25 PM (8 years ago)

Author:

emillour

Message:

Mars GCM:

• Added possibility to run with an Helium "he" tracer (to be initialized at constant value of 3.6e-7 kg/kg_air, i.e. the 4ppm of Krasnopolsky 1996 EUVE satellite, using newstart).
• corrected case for CH4 in aeronomars/photochemistry.F (was using undefined indexes when there is no CH4).
• updated aki/cpi coefficients for Argon used to compute mean atmospheric Cp and thermal conductivity in aeronomars/concentrations.F

JYC+EM

File:

• trunk/LMDZ.MARS/libf/phymars/initracer.F (modified) (2 diffs)

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

@@ -88 +88 @@
       igcm_no2=0
       igcm_n2d=0
+      igcm_he=0
       igcm_co2plus=0
       igcm_oplus=0
@@ -238 +239 @@
           count=count+1
         endif
+        if (noms(iq).eq."he") then
+          igcm_he=iq
+          mmol(igcm_he)=4.
+          count=count+1
+        endif
         if (noms(iq).eq."co2plus") then
           igcm_co2plus=iq