Changeset 4046 for LMDZ6/trunk/libf/dyn3d_common/initdynav.F90

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/initdynav.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/initdynav.F90

@@ -6 +6 @@
   USE IOIPSL
 #endif
-  USE infotrac, ONLY : nqtot, ttext
+  USE infotrac, ONLY : nqtot
   use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid, &
        dynhistave_file,dynhistvave_file,dynhistuave_file
@@ -158 +158 @@
 
   !        DO iq=1,nqtot
-  !          call histdef(histaveid, ttext(iq), ttext(iq), '-', &
+  !          call histdef(histaveid, tracers(iq)%name, &
+  !                                  tracers(iq)%longName, '-',  &
   !                  iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
   !                  32, 'ave(X)', t_ops, t_wrt)