Changeset 4369 for LMDZ6/branches/Ocean_skin/libf/misc

Timestamp:

Dec 6, 2022, 1:01:47 PM (2 years ago)

Author:

lguez

Message:

Sync latest trunk changes to branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

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

LMDZ6/branches/Ocean_skin/libf/misc/readTracFiles_mod.f90

@@ -1306 +1306 @@
     RETURN
   END IF
-  iky = 0; IF(ALLOCATED(ky%key)) iky = strIdx(ky%key,key)
+  iky = strIdx(ky%key,key)
   IF(iky == 0) THEN
-    nky = 0; IF(ALLOCATED(ky%key)) nky = SIZE(ky%key)
+    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