Changeset 4063 for LMDZ6/trunk/libf/dyn3d/dynetat0.f90

Timestamp:

Jan 25, 2022, 1:01:52 AM (2 years ago)

Author:

dcugnet

Message:

Except if the bench fails, last commit before switching to the new parser.

• parser routines taken from version 6 of ​https://svn.lmd.jussieu.fr/tracers-parser
• significant changes in "infotrac", now close to its target version. Modified old code is active (hard-coded flag: lOldCode=.TRUE.). New code will be activated in the next commit, then old code will be suppressed.
• probably problems with the isotopic version, to be fixed after tgcc maintenance...

File:

• LMDZ6/trunk/libf/dyn3d/dynetat0.f90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/dynetat0.f90

@@ -7 +7 @@
 !-------------------------------------------------------------------------------
   USE infotrac,    ONLY: nqtot, tracers, iqiso, iso_indnum, tnat, alpha_ideal, &
-                         ok_isotopes, maxlen
+                         ok_isotopes
+  USE strings_mod, ONLY: maxlen
   USE netcdf,      ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_INQ_VARID, NF90_NoErr, &
                          NF90_CLOSE, NF90_GET_VAR