Changeset 324 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 21, 2011, 11:31:28 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE : Preparatory commit for the ultimate option mars=42 which

would allow mesoscale modeling with photochemistry.

[see r76 method to add 'mars' options]
Modified module_lmd_driver.F and Registry.EM and runmeso
Modified readmeteo.F90 and introduced an option -DPHOTOCHEM
...
Transparent to the casual user
Option mars=42 not yet finished though -- so do not use!

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• initracer.F (modified) (4 diffs)
• tracer.h (modified) (2 diffs)

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

@@ -342 +342 @@
           count=count+1
         endif
+        if (noms(iq).eq."ch4") then
+          igcm_ch4=iq
+          mmol(igcm_ch4)=16.
+          count=count+1
+        endif
         if (noms(iq).eq."ar") then
           igcm_ar=iq
@@ -347 +352 @@
           count=count+1
         endif
-        if (noms(iq).eq."n") then
+        if (noms(iq).eq."n") then
           igcm_n=iq
           mmol(igcm_n)=14.
@@ -402 +407 @@
           count=count+1
         endif
-        if (noms(iq).eq."n2plus") then
+        if (noms(iq).eq."n2plus") then
           igcm_n2plus=iq
           mmol(igcm_n2plus)=28.
@@ -433 +438 @@
           count=count+1
         endif
-        
+
 
       enddo ! of do iq=1,nqmx

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

@@ -50 +50 @@
       integer :: igcm_no2
       integer :: igcm_n2d
+      integer :: igcm_ch4
       ! Ions
       integer :: igcm_co2plus
@@ -74 +75 @@
      & igcm_o2,igcm_o3,igcm_h,igcm_h2,igcm_oh,igcm_ho2,igcm_h2o2,       &
      & igcm_n2,igcm_ar,igcm_n,igcm_no,igcm_no2,igcm_n2d,                &
+     & igcm_ch4,                                                        &
      & igcm_co2plus,igcm_oplus,igcm_o2plus,igcm_coplus,igcm_cplus,      &
      & igcm_nplus,igcm_noplus,igcm_n2plus,igcm_hplus,igcm_elec,         &