Changeset 4046 for LMDZ6/trunk/libf/phylmd/iophy.F90

Timestamp:

Dec 15, 2021, 11:18:49 PM (3 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/iophy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iophy.F90

@@ -811 +811 @@
     IMPLICIT NONE
 
-    CHARACTER(LEN=20)                :: nam_var
-    INTEGER, DIMENSION(nfiles)      :: flag_var
+    CHARACTER(LEN=*), INTENT(INOUT) :: nam_var
+    INTEGER,          INTENT(INOUT) :: flag_var(nfiles)
 
     IF(prt_level>10) WRITE(lunout,*)'Avant getin: nam_var flag_var ',nam_var,flag_var(:)