Changeset 4327 for LMDZ6/trunk/libf

Timestamp:

Nov 7, 2022, 10:51:11 AM (2 years ago)

Author:

dcugnet

Message:

Missing modifications in the previous commit.

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -924 +924 @@
   !--- BEWARE ! Can't use the "getKeyByName" functions yet.
   !             Names must first include the phases for tracers defined on multiple lines.
-  hadv = str2int(fgetKey('hadv',  tm(:)%keys, '10'))
-  vadv = str2int(fgetKey('vadv',  tm(:)%keys, '10'))
-  prnt =         fgetKey('parent',tm(:)%keys,  '' )
-  IF(getKey('phases', phas, ky=tm(:)%keys)) phas = fGetKey('phase', tm(:)%keys, 'g')
+  hadv = str2int(fgetKeys('hadv',  tm(:)%keys, '10'))
+  vadv = str2int(fgetKeys('vadv',  tm(:)%keys, '10'))
+  prnt =         fgetKeys('parent',tm(:)%keys,  '' )
+  IF(getKey('phases', phas, ky=tm(:)%keys)) phas = fGetKeys('phase', tm(:)%keys, 'g')
   CALL msg(TRIM(message)//':', modname)
   IF(ALL(prnt == 'air')) THEN