Changeset 5002 for LMDZ6/trunk/libf

Timestamp:

Jul 1, 2024, 1:32:40 PM (10 days ago)

Author:

dcugnet

Message:

Small fix: "Different CHARACTER lengths in array constructor "detected by gfortran but not by ifort.

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -967 +967 @@
   nq = SIZE(dBase(idb)%trac)
   p = ''
-  CALL append(['iq'],             .TRUE. ); IF(lerr) RETURN
-  CALL append(['name'],           .TRUE. ); IF(lerr) RETURN
-  CALL append(['phases','phase'], .FALSE., 'pha'); IF(lerr) RETURN
-  CALL append(['hadv'],           .TRUE. ); IF(lerr) RETURN
-  CALL append(['vadv'],           .TRUE. ); IF(lerr) RETURN
-  CALL append(['parent'],         .FALSE.); IF(lerr) RETURN
-  CALL append(['iGen'],           .FALSE.); IF(lerr) RETURN
+  CALL append(['iq'],     .TRUE. ); IF(lerr) RETURN
+  CALL append(['name'],   .TRUE. ); IF(lerr) RETURN
+  CALL append(['phases','phase '], .FALSE., 'pha'); IF(lerr) RETURN
+  CALL append(['hadv'],   .TRUE. ); IF(lerr) RETURN
+  CALL append(['vadv'],   .TRUE. ); IF(lerr) RETURN
+  CALL append(['parent'], .FALSE.); IF(lerr) RETURN
+  CALL append(['iGen'],   .FALSE.); IF(lerr) RETURN
   CALL msg(TRIM(message)//':', modname)
   lerr = dispTable(p, n, s, nColMax=maxTableWidth, nHead=2, sub=modname); IF(lerr) RETURN