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

Timestamp:

Nov 9, 2022, 7:36:05 PM (2 years ago)

Author:

dcugnet

Message:

Fix the traceur.def backward compatibility issue.

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -1311 +1311 @@
   IF(iky == 0) THEN
     nky = SIZE(ky%key)
-    ALLOCATE(k(nky+1)); k(1:nky) = ky%key; k(nky+1) = key; ky%key = k
-    ALLOCATE(v(nky+1)); v(1:nky) = ky%val; v(nky+1) = val; ky%val = v
+    ALLOCATE(k(nky+1)); IF(ALLOCATED(ky%key)) k(1:nky) = ky%key; k(nky+1) = key; ky%key = k
+    ALLOCATE(v(nky+1)); IF(ALLOCATED(ky%val)) v(1:nky) = ky%val; v(nky+1) = val; ky%val = v
   ELSE IF(lo) THEN
     ky%key(iky) = key; ky%val(iky) = val