correct missing trailing slash (/) in readpaths.f90. issue a warning.

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