Changes from branches/FLEXPART_9.1.3/src/FLEXPART.f90 at r13 to trunk/src/FLEXPART.f90 at r4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/FLEXPART.f90
r13 r4 49 49 integer :: i,j,ix,jy,inest 50 50 integer :: idummy = -320 51 character(len=256) :: pathfile52 51 53 52 ! Generate a large number of random numbers … … 61 60 ! Print the GPL License statement 62 61 !******************************************************* 63 ! print*,'Welcome to FLEXPART Version 9.1 (Build 20121029)' 64 print*,'Welcome to FLEXPART Version 9.1.3 (Build 2013158)' 62 print*,'Welcome to FLEXPART Version 9.0' 65 63 print*,'FLEXPART is free software released under the GNU Genera'// & 66 64 'l Public License.' … … 69 67 !******************************************************* 70 68 71 select case (iargc()) 72 case (1) 73 call getarg(1,pathfile) 74 if (trim(pathfile).eq.'-v') then 75 !write(*,*) 'FLEXPART Version 9.1.3 (Build 2013158)' 76 stop 77 endif 78 case (0) 79 write(pathfile,'(a11)') './pathnames' 80 end select 81 82 call readpaths(pathfile) 83 print*,length(4) 69 call readpaths 84 70 85 71 ! Read the user specifications for the current model run
Note: See TracChangeset
for help on using the changeset viewer.