diff --git a/src/readpaths.f90 b/src/readpaths.f90 index 8ed7ac718a51129839a2b0434b35c055c4913cf5..850238d127fa97147ad3eb4ec1c55d7d2cdc5cc9 100755 --- a/src/readpaths.f90 +++ b/src/readpaths.f90 @@ -62,20 +62,32 @@ subroutine readpaths !(pathfile) read(unitpath,'(a)',err=998) path(i) length(i)=index(path(i),' ')-1 + + if (verbosity.gt.0) then + print*, 'path read', i, '=', path(i) + end if + end do + + + do i=1,numpath + string_test = path(i) character_test = string_test(length(i):length(i)) !print*, 'character_test, string_test ', character_test, string_test if ((character_test .NE. '/') .AND. (i .LT. 4)) then - print*, 'WARNING: path not ending in /' + print*, 'readpaths> WARNING: path not ending in /' print*, path(i) path(i) = string_test(1:length(i)) // '/' length(i)=length(i)+1 print*, 'fix: padded with /' print*, path(i) - print*, 'length(i) increased 1' + print*, 'length(i) increased 1', length(i) endif - end do + + end do + + ! Check whether any nested subdomains are to be used !*************************************************** @@ -94,9 +106,18 @@ subroutine readpaths !(pathfile) 30 numbnests=i-1 + if (verbosity.gt.0) then + do i=1,numpath + print*, 'path tested', i, '=', path(i) + end do + end if + close(unitpath) return + + + 998 write(*,*) ' #### TRAJECTORY MODEL ERROR! ERROR WHILE #### ' write(*,*) ' #### READING FILE PATHNAMES. #### ' stop