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

Timestamp:

Dec 8, 2011, 10:04:00 AM (13 years ago)

Author:

emillour

Message:

Mars GCM: Include changes and updates for photochemistry by FL:

• aeronomars/calchim.F : change in units of surface density.
• aeronomars/surfacearea.F : new routine to compute ice and dust surface area

(m2/m3) available for heterogeneous reactions.

• phymars/initracer.F : bug correction: initialize igcm_ch4 and change loop

bounds (when guessing tracer names/properties with
old input files).

• phymars/watercloud.F : cleanup.
• phymars/physiq.F : add call to surfacearea; photochemistry is now called

after sedimentation to take into acount updated rdust
and rice.

EM

File:

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

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

@@ -139 +139 @@
             nqchem_start=dustbin+1
           end if
-          do iq=nqchem_start,nqchem_start+ncomp-1
+          do iq=nqchem_start,nqchem_start+ncomp-2
             noms(iq)=nomchem(iq-nqchem_start+1)
             mmol(iq)=mmolchem(iq-nqchem_start+1)
@@ -229 +229 @@
       igcm_ho2=0
       igcm_h2o2=0
+      igcm_ch4=0
       igcm_n2=0
       igcm_ar=0