Changeset 4126

Timestamp:

Apr 20, 2022, 10:34:56 AM (3 years ago)

Author:

Laurent Fairhead

Message:

Modification for nvfortran compiler
DC

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -413 +413 @@
         ttr(i)%name   = TRIM(ta(itr))
         ttr(i)%parent = TRIM(pa(ipr))
-        ttr(i)%keys   = keys_type(ta(itr), tr(it)%keys%key, tr(it)%keys%val)
+        ttr(i)%keys%name = ta(itr)
+        ttr(i)%keys%key  = tr(it)%keys%key
+        ttr(i)%keys%val  = tr(it)%keys%val
+!        ttr(i)%keys   = keys_type(ta(itr), tr(it)%keys%key, tr(it)%keys%val)
       END DO
     END DO