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

File:

• branches/FLEXPART_9.1.3/src/FLEXPART.f90 (modified) (3 diffs)

branches/FLEXPART_9.1.3/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
@@ -60 +61 @@
   ! Print the GPL License statement
   !*******************************************************
-  print*,'Welcome to FLEXPART Version 9.0'
+  ! print*,'Welcome to FLEXPART Version 9.1 (Build 20121029)'
+  print*,'Welcome to FLEXPART Version 9.1.3 (Build 2013158)'
   print*,'FLEXPART is free software released under the GNU Genera'// &
        'l Public License.'
@@ -67 +69 @@
   !*******************************************************
 
-  call readpaths
+  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)
 
   ! Read the user specifications for the current model run