Changes from branches/FLEXPART_9.1.3/src/readavailable.f90 at r13 to trunk/src/readavailable.f90 at r4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/readavailable.f90
- Property svn:executable set to *
r13 r4 123 123 124 124 do k=1,numbnests 125 print*,length(numpath+2*(k-1)+1),length(numpath+2*(k-1)+2),length(4),length(3)126 print*,path(numpath+2*(k-1)+2)(1:length(numpath+2*(k-1)+2))127 125 open(unitavailab,file=path(numpath+2*(k-1)+2) & 128 126 (1:length(numpath+2*(k-1)+2)),status='old',err=998) … … 277 275 return 278 276 279 998 write(*,*) ' #### FLEXPART MODEL ERROR! AVAILABLEFILE #### '277 998 write(*,*) ' #### FLEXPART MODEL ERROR! FILE #### ' 280 278 write(*,'(a)') ' '//path(numpath+2*(k-1)+2) & 281 279 (1:length(numpath+2*(k-1)+2)) … … 283 281 stop 284 282 285 999 write(*,*) ' #### FLEXPART MODEL ERROR! AVAILABLE IILE #### '283 999 write(*,*) ' #### FLEXPART MODEL ERROR! FILE #### ' 286 284 write(*,'(a)') ' '//path(4)(1:length(4)) 287 285 write(*,*) ' #### CANNOT BE OPENED #### '
Note: See TracChangeset
for help on using the changeset viewer.