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

Timestamp:

Jun 22, 2011, 7:51:16 AM (14 years ago)

Author:

emillour

Message:

Mars GCM:

• added modifications (from JYC & FGG) to tracer.h & initracer.F for ions
• minor improvement to newstart.F (q=x option, check that tracer index provided by user is valid).

EM

File:

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

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

@@ -46 +46 @@
       integer :: igcm_n2
       integer :: igcm_ar
-      
+      integer :: igcm_n
+      integer :: igcm_no
+      integer :: igcm_no2
+      integer :: igcm_n2d
+      ! Ions
+      integer :: igcm_co2plus
+      integer :: igcm_oplus
+      integer :: igcm_o2plus
+      integer :: igcm_coplus
+      integer :: igcm_cplus
+      integer :: igcm_nplus
+      integer :: igcm_noplus
+      integer :: igcm_n2plus 
+      integer :: igcm_hplus
+      integer :: igcm_elec
       ! other tracers
       integer :: igcm_ar_n2 ! for simulations using co2 +neutral gas
@@ -59 +73 @@
      & igcm_h2o_vap,igcm_h2o_ice,igcm_co2,igcm_co,igcm_o,igcm_o1d,      &
      & igcm_o2,igcm_o3,igcm_h,igcm_h2,igcm_oh,igcm_ho2,igcm_h2o2,       &
-     & igcm_n2,igcm_ar,igcm_ar_n2!,nbqchem,niqchem
+     & igcm_n2,igcm_ar,igcm_n,igcm_no,igcm_no2,igcm_n2d,                &
+     & 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
       COMMON/tracer3/noms
 !-----------------------------------------------------------------------