Changeset 4367 for LMDZ6/trunk/libf/misc

Timestamp:

Dec 5, 2022, 9:44:54 PM (3 years ago)

Author:

dcugnet

Message:

• adding missing SAVE attribute for that in check_isotopes
• move phyetat0_get/_srf from phylmd[iso]/phyetat0_mod to new module phyetat0_get_mod -> break circular dependency
• remove unused variables from physiq_mod
• update phylmdiso/physiq_mod with respect to phylmd/physiq_mod (few updates were not included)

File:

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

LMDZ6/trunk/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