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

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/dyn3d/dynetat0.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3d/dynetat0.f90

@@ -10 +10 @@
                          NF90_CLOSE, NF90_GET_VAR
   USE control_mod, ONLY: planet_type
+  USE strings_mod, ONLY: maxlen
   USE assert_eq_m, ONLY: assert_eq
   USE comvert_mod, ONLY: pa,preff
@@ -36 +37 @@
 !===============================================================================
 ! Local variables:
-  CHARACTER(LEN=256) :: msg, var, modname
+  CHARACTER(LEN=maxlen) :: msg, var, modname
   INTEGER, PARAMETER :: length=100
   INTEGER :: iq, fID, vID, idecal!, iml, jml, lml, nqt
@@ -126 +127 @@
 !--- Tracers
   DO iq=1,nqtot
-    var=tname(iq)
+    var=TRIM(tracers(iq)%name)
     IF(NF90_INQ_VARID(fID,var,vID)==NF90_NoErr) THEN
       CALL err(NF90_GET_VAR(fID,vID,q(:,:,:,iq)),"get",var); CYCLE
@@ -153 +154 @@
   INTEGER,          INTENT(IN) :: n1, n2
   CHARACTER(LEN=*), INTENT(IN) :: str1, str2
-  CHARACTER(LEN=100) :: s1, s2
+  CHARACTER(LEN=maxlen) :: s1, s2
   IF(n1/=n2) THEN
     s1='value of '//TRIM(str1)//' ='