Changeset 4046 for LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

Timestamp:

Dec 15, 2021, 11:18:49 PM (2 years ago)

Author:

dcugnet

Message:

First commit for new tracers.

• parser routines readTracFiles, strings_mod and tracer_types added in misc using revision 4 of ​https://svn.lmd.jussieu.fr/tracers-parser
• tested in sequential and parallel mode using ioipsl.
• for now, only two fields of "tracers(:)" derived type vector are used: "name" and "longName".

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -713 +713 @@
 !!      enddo
       DO iq = 1,nqtot
-        nmq(iq) = trim(tname(iq))
+        nmq(iq) = trim(tracers(iq)%name)
       ENDDO
       print*,'in dyn1deta0 ',fichnom,klon,klev,nqtot
@@ -864 +864 @@
 !!      nmq(4)="tra2"
       DO iq = 1,nqtot
-        nmq(iq) = trim(tname(iq))
+        nmq(iq) = trim(tracers(iq)%name)
       ENDDO