Changeset 4063 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Jan 25, 2022, 1:01:52 AM (3 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...

Location:

LMDZ6/trunk/libf/dyn3d

Files:

• dynetat0.f90 (modified) (1 diff)
• dynredem.F90 (modified) (2 diffs)

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

LMDZ6/trunk/libf/dyn3d/dynredem.F90

@@ -7 +7 @@
   USE IOIPSL
 #endif
-  USE infotrac, ONLY: nqtot, tracers, maxlen
+  USE strings_mod, ONLY: maxlen
+  USE infotrac, ONLY: nqtot, tracers
   USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
                     NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER,   &
@@ -166 +167 @@
 ! Purpose: Write the NetCDF restart file (append).
 !-------------------------------------------------------------------------------
-  USE infotrac, ONLY: nqtot, tracers, type_trac, maxlen
+  USE strings_mod, ONLY: maxlen
+  USE infotrac, ONLY: nqtot, tracers, type_trac
   USE control_mod
   USE netcdf,   ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID,  &