Changeset 4431

Timestamp:

Feb 10, 2023, 2:37:57 PM (15 months ago)

Author:

dcugnet

Message:

Addition to the last commit

Location:

LMDZ6/trunk/libf

Files:

• dyn3d_common/infotrac.F90 (modified) (1 diff)
• phylmd/infotrac_phy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -245 +245 @@
       DO iq = 1, nqtrue
          t1 => tracers(iq)
-         CALL addKey_1('name',      t1%name,      t1%keys)
-         CALL addKey_1('component', t1%component, t1%keys)
-         CALL addKey_1('parent',    t1%parent,    t1%keys)
-         CALL addKey_1('phase',     t1%phase,     t1%keys)
+         CALL addKey('name',      t1%name,      t1%keys)
+         CALL addKey('component', t1%component, t1%keys)
+         CALL addKey('parent',    t1%parent,    t1%keys)
+         CALL addKey('phase',     t1%phase,     t1%keys)
       END DO
       IF(setGeneration(tracers)) CALL abort_gcm(modname,'See above',1) !- SET FIELDS %iGeneration, %gen0Name

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -273 +273 @@
       DO iq = 1, nqtrue
          t1 => tracers(iq)
-         CALL addKey_1('name',      t1%name,      t1%keys)
-         CALL addKey_1('component', t1%component, t1%keys)
-         CALL addKey_1('parent',    t1%parent,    t1%keys)
-         CALL addKey_1('phase',     t1%phase,     t1%keys)
+         CALL addKey('name',      t1%name,      t1%keys)
+         CALL addKey('component', t1%component, t1%keys)
+         CALL addKey('parent',    t1%parent,    t1%keys)
+         CALL addKey('phase',     t1%phase,     t1%keys)
       END DO
       IF(setGeneration(tracers)) CALL abort_gcm(modname,'See below',1) !- SET FIELDS %iGeneration, %gen0Name