Changes from branches/FLEXPART_9.1.3/src/readpaths.f90 at r13 to trunk/src/readpaths.f90 at r4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/readpaths.f90
- Property svn:executable set to *
r13 r4 20 20 !********************************************************************** 21 21 22 subroutine readpaths (pathfile)22 subroutine readpaths 23 23 24 24 !***************************************************************************** … … 30 30 ! * 31 31 ! 1 February 1994 * 32 ! last modified *33 ! HS, 7.9.2012 *34 ! option to give pathnames file as command line option *35 32 ! * 36 33 !***************************************************************************** … … 50 47 implicit none 51 48 52 integer :: i 53 character(256) :: pathfile 49 integer :: i 54 50 55 51 ! Read the pathname information stored in unitpath 56 52 !************************************************* 57 53 58 open(unitpath,file=trim(pathfile),status='old',err=999) 54 55 open(unitpath,file='pathnames',status='old',err=999) 59 56 60 57 do i=1,numpath … … 73 70 length(numpath+2*(i-1)+2)=index(path(numpath+2*(i-1)+2),' ')-1 74 71 end do 75 print*,length(5),length(6)76 72 77 73
Note: See TracChangeset
for help on using the changeset viewer.