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

File:

• trunk/src/FLEXPART.f90 (modified) (3 diffs)

trunk/src/FLEXPART.f90

@@ -49 +49 @@
   integer :: i,j,ix,jy,inest
   integer :: idummy = -320
-  character(len=256) :: pathfile
 
   ! Generate a large number of random numbers
@@ -61 +60 @@
   ! Print the GPL License statement
   !*******************************************************
-  ! print*,'Welcome to FLEXPART Version 9.1 (Build 20121029)'
-  print*,'Welcome to FLEXPART Version 9.1.3 (Build 2013158)'
+  print*,'Welcome to FLEXPART Version 9.0'
   print*,'FLEXPART is free software released under the GNU Genera'// &
        'l Public License.'
@@ -69 +67 @@
   !*******************************************************
 
-  select case (iargc())
-  case (1)
-    call getarg(1,pathfile)
-    if (trim(pathfile).eq.'-v') then
-        !write(*,*) 'FLEXPART Version 9.1.3 (Build 2013158)'
-        stop
-    endif  
-  case (0)
-    write(pathfile,'(a11)') './pathnames'
-  end select
-
-  call readpaths(pathfile)
-  print*,length(4)
+  call readpaths
 
   ! Read the user specifications for the current model run