Changeset 1799 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Oct 19, 2017, 11:25:21 PM (7 years ago)

Author:

bclmd

Message:

Adding photochemistry to LMDZ Generic

File:

• trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90

@@ -50 +50 @@
       integer :: igcm_n2
       integer :: igcm_ar
+      integer,save :: igcm_n
+      integer,save :: igcm_no
+      integer,save :: igcm_no2
+      integer,save :: igcm_n2d
+      integer,save :: igcm_ch4
+
+      integer :: igcm_ch3
+      integer :: igcm_ch
+      integer :: igcm_3ch2
+      integer :: igcm_1ch2
+      integer :: igcm_cho
+      integer :: igcm_ch2o
+      integer :: igcm_ch3o
+      integer :: igcm_c
+      integer :: igcm_c2
+      integer :: igcm_c2h
+      integer :: igcm_c2h2
+      integer :: igcm_c2h3
+      integer :: igcm_c2h4
+      integer :: igcm_c2h6
+      integer :: igcm_ch2co
+      integer :: igcm_ch3co
+      integer :: igcm_hcaer
+
+
+
       ! other tracers
       integer :: igcm_ar_n2 ! for simulations using co2 +neutral gaz
@@ -55 +81 @@
 !$OMP THREADPRIVATE(igcm_dustbin,igcm_dust_mass,igcm_dust_number,igcm_h2o_vap,igcm_h2o_ice, &
         !$OMP igcm_co2,igcm_co,igcm_o,igcm_o1d,igcm_o2,igcm_o3,igcm_h,igcm_h2,igcm_oh,      &
-        !$OMP igcm_ho2,igcm_h2o2,igcm_n2,igcm_ar,igcm_ar_n2,igcm_co2_ice)
+        !$OMP igcm_ho2,igcm_h2o2,igcm_n2,igcm_ar,igcm_ar_n2,igcm_co2_ice,                   &
+        !$OMP igcm_n,igcm_no,igcm_no2,igcm_n2d,igcm_ch4,igcm_ch3,igcm_ch,igcm_3ch2,         &
+        !$OMP igcm_1ch2,igcm_cho,igcm_ch2o,igcm_ch3o,igcm_c,igcm_c2,igcm_c2h,igcm_c2h2,     &
+        !$OMP igcm_c2h3,igcm_c2h4,igcm_c2h6,igcm_ch2co,igcm_ch3co,igcm_hcaer)
 
        end module tracer_h