Changeset 4046 for LMDZ6/trunk/libf/dyn3d_common/inithist.F

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/dyn3d_common/inithist.F (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/inithist.F

@@ -7 +7 @@
        USE IOIPSL
 #endif
-       USE infotrac, ONLY : nqtot, ttext
+       USE infotrac, ONLY : nqtot
        use com_io_dyn_mod, only : histid,histvid,histuid,               &
      &                        dynhist_file,dynhistv_file,dynhistu_file
@@ -157 +157 @@
 !
 !        DO iq=1,nqtot
-!          call histdef(histid, ttext(iq),  ttext(iq), '-',
+!          call histdef(histid, tracers(iq)%name, 
+!                               tracers(iq)%longName, '-',
 !     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
 !     .             32, 'inst(X)', t_ops, t_wrt)