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

File:

• trunk/src/readavailable.f90 (modified) (3 diffs, 1 prop)

trunk/src/readavailable.f90

@@ -123 +123 @@
 
   do k=1,numbnests
-  print*,length(numpath+2*(k-1)+1),length(numpath+2*(k-1)+2),length(4),length(3)
-  print*,path(numpath+2*(k-1)+2)(1:length(numpath+2*(k-1)+2))
     open(unitavailab,file=path(numpath+2*(k-1)+2) &
          (1:length(numpath+2*(k-1)+2)),status='old',err=998)
@@ -277 +275 @@
   return
 
-998   write(*,*) ' #### FLEXPART MODEL ERROR! AVAILABLE FILE   #### '
+998   write(*,*) ' #### FLEXPART MODEL ERROR! FILE   #### '
   write(*,'(a)') '     '//path(numpath+2*(k-1)+2) &
        (1:length(numpath+2*(k-1)+2))
@@ -283 +281 @@
   stop
 
-999   write(*,*) ' #### FLEXPART MODEL ERROR! AVAILABLE IILE #### '
+999   write(*,*) ' #### FLEXPART MODEL ERROR! FILE #### '
   write(*,'(a)') '     '//path(4)(1:length(4))
   write(*,*) ' #### CANNOT BE OPENED           #### '