Changeset 19 for readTracFiles_mod.f90

Timestamp:

Jun 21, 2022, 1:41:08 PM (2 years ago)

Author:

dcugnet

Message:

Sections names separator is no longer a coma (","), but a pipe ("|") because ioipsl "getin" is removing the comas.

File:

• readTracFiles_mod.f90 (modified) (7 diffs)

readTracFiles_mod.f90

@@ -107 +107 @@
 
   !--- Required sections + corresponding files names (new style single section case)
-  IF(test(strParse(type_trac, ',', sections), lerr)) RETURN          !--- Parse "type_trac" list
+  IF(test(strParse(type_trac, '|', sections), lerr)) RETURN          !--- Parse "type_trac" list
 
   nsec = SIZE(sections, DIM=1)
@@ -193 +193 @@
 !==============================================================================================================================
 LOGICAL FUNCTION feedDBase(fnames, snames, modname) RESULT(lerr)
-! Purpose: Read the sections "snames(is)" (coma-separated list) from each "fnames(is)"
+! Purpose: Read the sections "snames(is)" (pipe-separated list) from each "fnames(is)"
 !   file and create the corresponding tracers set descriptors in the database "dBase":
 ! * dBase(id)%name                : section name
@@ -201 +201 @@
 !------------------------------------------------------------------------------------------------------------------------------
   CHARACTER(LEN=*), INTENT(IN)  :: fnames(:)                         !--- Files names
-  CHARACTER(LEN=*), INTENT(IN)  :: snames(:)                         !--- Coma-deparated list of sections (one list each file)
+  CHARACTER(LEN=*), INTENT(IN)  :: snames(:)                         !--- Pipe-deparated list of sections (one list each file)
   CHARACTER(LEN=*), INTENT(IN)  :: modname                           !--- Calling routine name
   INTEGER,  ALLOCATABLE :: ndb(:)                                    !--- Number of sections for each file
@@ -211 +211 @@
 !------------------------------------------------------------------------------------------------------------------------------
   !=== READ THE REQUIRED SECTIONS
-  ll = strCount(snames, ',', ndb)                                    !--- Number of sections for each file
+  ll = strCount(snames, '|', ndb)                                    !--- Number of sections for each file
   ALLOCATE(ixf(SUM(ndb)))
   DO i=1, SIZE(fnames)                                               !--- Set %name, %keys
@@ -239 +239 @@
 !------------------------------------------------------------------------------------------------------------------------------
   CHARACTER(LEN=*),           INTENT(IN) :: fnam                     !--- File name
-  CHARACTER(LEN=*),           INTENT(IN) :: snam                     !--- Coma-separated sections list
+  CHARACTER(LEN=*),           INTENT(IN) :: snam                     !--- Pipe-separated sections list
   CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: defName                  !--- Special section (default values) name
 !------------------------------------------------------------------------------------------------------------------------------
@@ -254 +254 @@
     DO idb=n0,ndb; CALL addDefault(dBase(idb)%trac, defName); END DO !--- and remove the virtual tracer "defName"
   END IF
-  ll = strParse(snam, ',', keys = sec)                               !--- Requested sections names
+  ll = strParse(snam, '|', keys = sec)                               !--- Requested sections names
   ix = strIdx(dBase(:)%name, sec(:))                                 !--- Indexes of requested sections in database
   IF(test(checkList(sec, ix == 0, 'In file "'//TRIM(fnam)//'"','section(s)', 'missing'), lerr)) RETURN
@@ -893 +893 @@
   !--- READ THE FILE SECTIONS, ONE EACH PARENT TRACER
   nb0 = SIZE(dBase, DIM=1)+1                                         !--- Next database element index
-  IF(test(readSections(fnam,strStack(isot(:)%parent,',')),lerr)) RETURN !--- Read sections, one each parent tracer
+  IF(test(readSections(fnam,strStack(isot(:)%parent,'|')),lerr)) RETURN !--- Read sections, one each parent tracer
   ndb = SIZE(dBase, DIM=1)                                           !--- Current database size
   DO idb = nb0, ndb