Changeset 4046 for LMDZ6/trunk/libf/dyn3dmem/writehist_loc.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/dyn3dmem/writehist_loc.F (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/writehist_loc.F

@@ -11 +11 @@
       USE parallel_lmdz
       USE misc_mod
-      USE infotrac, ONLY : nqtot, ttext
+      USE infotrac, ONLY : nqtot
       use com_io_dyn_mod, only : histid,histvid,histuid
       USE comconst_mod, ONLY: cpp
@@ -177 +177 @@
 !!$OMP MASTER      
 !        DO iq=1,nqtot
-!          call histwrite(histid, ttext(iq), itau_w, q(ijb:ije,:,iq), 
-!     .                   iip1*jjn*llm, ndexu)
+!          call histwrite(histid, tracers(iq)%longName, itau_w, 
+!     .                   q(ijb:ije,:,iq), iip1*jjn*llm, ndexu)
 !        enddo
 !!$OMP END MASTER