Changeset 1722 for trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F

Timestamp:

Jul 18, 2017, 4:15:23 PM (7 years ago)

Author:

jvatant

Message:

Adapt various modifs of LMDZ.GENERIC to LMDZ.TITAN from r1690-1694-1699-1709-1715
--JVO

File:

• trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F

@@ -214 +214 @@
       Lmodif=0
 
+! Initialize tracer names, indexes and properties
+      CALL initracer(ngridmx,nqtot,tname)
 
       CALL phyetat0(.true.,ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,