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

File:

• branches/FLEXPART_9.1.3/src/readpaths.f90 (modified) (4 diffs, 1 prop)

branches/FLEXPART_9.1.3/src/readpaths.f90

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