Changeset 5353 for LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

Timestamp:

Nov 29, 2024, 3:15:38 PM (2 weeks ago)

Author:

yann meurdesoif

Message:

Nvidia compiler has some difficulties to compile correctly some complex array constructor.
This commit decompose it the several phases in order to achieve the compilation.
Please Lionel and David, have a look to this in order to validate.
Probably, in future, when compiler heuristic will be improved, this commit can be reversed.
YM

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -990 +990 @@
   CHARACTER(LEN=maxlen), ALLOCATABLE :: n0(:)
   CHARACTER(LEN=maxlen) :: nm
+  CHARACTER(LEN=maxlen) :: tmp2(nq)
+
   lerr = .FALSE.
   IF(nam(1) == 'iq') THEN
-    tmp = int2str([(iq, iq=1, nq)])
+    tmp2 = int2str([(iq, iq=1, nq)])
+    tmp = tmp2
   ELSE
     lerr = getKey(nam, tmp, dBase(idb)%trac(:)%keys, lDisp=lMandatory)