Changeset 2021 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Oct 19, 2018, 6:16:41 PM (7 years ago)

Author:

mlefevre

Message:

Photochemistry architecture for Venus mesoscale and LES model

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F

@@ -70 +70 @@
 SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE)
 
-  !use infotrac
-  
+  use infotrac, only: nqtot,tname
+  use logic_mod, only: iflag_trac
   implicit none
   INTEGER, INTENT(IN) :: nq,MARS_MODE
 
-  ALLOCATE(traceurs(nq))
-  traceurs(:)='zolbxs' 
-  !call infotrac_init ! Need traceur.def
-
+  IF (.not.ALLOCATED(tname)) ALLOCATE(tname(nq))
+  nqtot=nq
+
+  IF (MARS_MODE .EQ. 34) THEN
+    tname(1)="co2"
+    tname(2)="co"
+    tname(3)="h2"
+    tname(4)="h2o"
+    tname(5)="o1d"
+    tname(6)="o"
+    tname(7)="o2"
+    tname(8)="o2dg"
+    tname(9)="o3"
+    tname(10)="h"
+    tname(11)="oh"
+    tname(12)="ho2"
+    tname(13)="h2o2"
+    tname(14)="cl"
+    tname(15)="clo"
+    tname(16)="cl2"
+    tname(17)="hcl"
+    tname(18)="hocl"
+    tname(19)="clco"
+    tname(20)="clco3"
+    tname(21)="cocl2"
+    tname(22)="s"
+    tname(23)="so"
+    tname(24)="so2"
+    tname(25)="so3"
+    tname(26)="s2o2"
+    tname(27)="ocs"
+    tname(28)="hso3"
+    tname(29)="h2so4"
+    tname(30)="s2"
+    tname(31)="clso2"
+    tname(32)="oscl"
+    tname(33)="h2oliq"
+    tname(34)="h2so4liq"
+    iflag_trac=1
+  ELSE
+    tname(:)='zolbxs'
+  ENDIF
 
 END SUBROUTINE update_inputs_physiq_tracers