Ignore:
Timestamp:
Dec 23, 2013, 6:23:38 PM (9 years ago)
Author:
igpis
Message:

move version 9.1.8 form branches to trunk. Contributions from HSO, saeck, pesei, NIK, RT, XKF, IP and others

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/readavailable.f90

    r4 r20  
    123123
    124124  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))
    125127    open(unitavailab,file=path(numpath+2*(k-1)+2) &
    126128         (1:length(numpath+2*(k-1)+2)),status='old',err=998)
     
    275277  return
    276278
    277 998   write(*,*) ' #### FLEXPART MODEL ERROR! FILE   #### '
     279998   write(*,*) ' #### FLEXPART MODEL ERROR! AVAILABLE FILE   #### '
    278280  write(*,'(a)') '     '//path(numpath+2*(k-1)+2) &
    279281       (1:length(numpath+2*(k-1)+2))
     
    281283  stop
    282284
    283 999   write(*,*) ' #### FLEXPART MODEL ERROR! FILE #### '
     285999   write(*,*) ' #### FLEXPART MODEL ERROR! AVAILABLE IILE #### '
    284286  write(*,'(a)') '     '//path(4)(1:length(4))
    285287  write(*,*) ' #### CANNOT BE OPENED           #### '
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG