Changeset 4063 for LMDZ6/trunk/libf/dyn3dmem

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/dyn3dmem

Files:

• dynetat0_loc.F90 (modified) (1 diff)
• dynredem_loc.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90

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

LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90

@@ -9 +9 @@
   USE parallel_lmdz
   USE mod_hallo
-  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,   &
@@ -174 +175 @@
   USE parallel_lmdz
   USE mod_hallo
-  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,  &