Changeset 1814 for trunk/LMDZ.TITAN/libf/muphytitan/cfgparse.F90

Timestamp:

Oct 30, 2017, 11:04:45 AM (7 years ago)

Author:

jvatant

Message:

Correct string management within muphy for ifort
JVO

File:

• trunk/LMDZ.TITAN/libf/muphytitan/cfgparse.F90 (modified) (5 diffs)

trunk/LMDZ.TITAN/libf/muphytitan/cfgparse.F90

@@ -803 +803 @@
     IF (LEN_TRIM(zsname) == 0 ) zsname = "__default__"
     fname = zsname//"/"//str_to_lower(TRIM(pname))
-    !print*,"DEBUG6: ",fname
     IF (.NOT.cfg_check_name(fname)) THEN
        err = error("Invalid option (no name)",-9)
@@ -872 +871 @@
       ! no options yet -> allocate
       ALLOCATE(this%options(1))
-      !this%options(1) = sca
-      !this%options(1)%name = pname
-      !this%options(1)%section = zsname
-      !this%options(1)%values = values
     ELSE
       ! parser has options: increase this%options size (ugly copy).
@@ -890 +885 @@
       ENDDO
       DEALLOCATE(tmp)
-      !this%options(no+1) = sca
-      !this%options(no+1)%name = pname
-      !this%options(no+1)%section = zsname
-      !this%options(no+1)%values = values
     ENDIF
     ! always add the option at the end.
-    !print*, words_length(this%options(no+1)%values)
     this%options(no+1) = sca
     CALL op_clear(sca)
@@ -1839 +1829 @@
              EXIT
            ENDIF
-           !print*,"DEBUG0: New section ",TRIM(name), " <- ",isec
            isec = TRIM(name)
          CASE(cfg_OPTION)
@@ -1849 +1838 @@
            ! 4. update curval
            IF (op_valid(curopt)) THEN 
-              !print*,"DEBUG3: new opt: ",TRIM(isec)//"/"//TRIM(name)," <- ",op_full_name(curopt)
               IF (LEN(curval) > 0) &
               CALL words_extend(curopt%values,TRIM(ADJUSTL(curval)),space,.true.,.true.)