Changeset 1843 for trunk/LMDZ.TITAN/libf/phytitan/dyn1d

Timestamp:

Dec 6, 2017, 4:13:14 PM (7 years ago)

Author:

jvatant

Message:

Enable tracers management in 1D
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

@@ -6 +6 @@
       use mod_grid_phy_lmdz, only : regular_lonlat
       use infotrac, only: nqtot, tname
+      use tracer_h, only: initracer2
       use surfdat_h, only: albedodat, phisfi,
      &                     zmea, zstd, zsig, zgam, zthe,
@@ -727 +728 @@
 ! -------------------------------
       tankCH4=2. ! default value for tankCH4
+      
+! Initialize tracers
+! ------------------
+      if(tracer) then
+        call initracer2(nq,tname) ! We need tracers infos in physdem1
+      endif
 
 c  Write a "startfi" file