Changes from branches/FLEXPART_9.1.3/src/readpaths.f90 at r13 to trunk/src/readpaths.f90 at r4

File:

• trunk/src/readpaths.f90 (modified) (4 diffs, 1 prop)

trunk/src/readpaths.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine readpaths(pathfile)
+subroutine readpaths
 
   !*****************************************************************************
@@ -30 +30 @@
   !                                                                            *
   !     1 February 1994                                                        *
-  !     last modified                                                          *
-  !     HS, 7.9.2012                                                           *
-  !     option to give pathnames file as command line option                   *
   !                                                                            *
   !*****************************************************************************
@@ -50 +47 @@
   implicit none
 
-  integer   :: i
-  character(256) :: pathfile
+  integer :: i
 
   ! Read the pathname information stored in unitpath
   !*************************************************
 
-  open(unitpath,file=trim(pathfile),status='old',err=999)
+
+  open(unitpath,file='pathnames',status='old',err=999)
 
   do i=1,numpath
@@ -73 +70 @@
     length(numpath+2*(i-1)+2)=index(path(numpath+2*(i-1)+2),' ')-1
   end do
-  print*,length(5),length(6)