Changeset 5755

Timestamp:

Jul 2, 2025, 4:47:30 PM (2 days ago)

Author:

dcugnet

Message:

Forgot to comment out addKeysFromDef function, no longer used.

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -1133 +1133 @@
 
     !--- GET FEW GLOBAL KEYS FROM "def" FILES AND ADD THEM TO THE 'params' SECTION
-    CALL addKeysFromDef(dBase(idb)%trac, 'params')
+!    CALL addKeysFromDef(dBase(idb)%trac, 'params')
 
     !--- SUBSTITUTE THE KEYS DEFINED IN THE 'params' VIRTUAL TRACER ; SUBSTITUTE LOCAL KEYS ; REMOVE 'params' VIRTUAL TRACER
@@ -1531 +1531 @@
 !=== OVERWRITE THE KEYS OF THE TRACER NAMED "tr0" WITH THE VALUES FOUND IN THE *.def FILES, IF ANY. ===========================
 !==============================================================================================================================
-SUBROUTINE addKeysFromDef(t, tr0)
-  TYPE(trac_type), ALLOCATABLE, INTENT(INOUT) :: t(:)
-  CHARACTER(LEN=*),             INTENT(IN)    :: tr0
-!------------------------------------------------------------------------------------------------------------------------------
-  CHARACTER(LEN=maxlen) :: val
-  INTEGER               :: ik, jd
-  jd = strIdx(t%name, tr0)
-  IF(jd == 0) RETURN
-  DO ik = 1, SIZE(t(jd)%keys%key)
-    CALL get_in(t(jd)%keys%key(ik), val, '*none*')
-    IF(val /= '*none*') CALL addKey(t(jd)%keys%key(ik), val, t(jd)%keys, .TRUE.)
-  END DO
-END SUBROUTINE addKeysFromDef
+!SUBROUTINE addKeysFromDef(t, tr0)
+!  TYPE(trac_type), ALLOCATABLE, INTENT(INOUT) :: t(:)
+!  CHARACTER(LEN=*),             INTENT(IN)    :: tr0
+!------------------------------------------------------------------------------------------------------------------------------
+!  CHARACTER(LEN=maxlen) :: val
+!  INTEGER               :: ik, jd
+!  jd = strIdx(t%name, tr0)
+!  IF(jd == 0) RETURN
+!  DO ik = 1, SIZE(t(jd)%keys%key)
+!    CALL get_in(t(jd)%keys%key(ik), val, '*none*')
+!    IF(val /= '*none*') CALL addKey(t(jd)%keys%key(ik), val, t(jd)%keys, .TRUE.)
+!  END DO
+!END SUBROUTINE addKeysFromDef
 !==============================================================================================================================