Subversion Repositories lagranto.wrf

Rev

Rev 2 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 11
Line 609... Line 609...
609 
            elseif ( (isstr.eq.1).and.(ch.eq.' ') ) then
 609 
            elseif ( (isstr.eq.1).and.(ch.eq.' ') ) then
610 
               isstr=0
 610 
               isstr=0
611 
               ncol=ncol+1
 611 
               ncol=ncol+1
612 
            endif
 612 
            endif
613 
         enddo
 613 
         enddo
614 
 
 - 
 
- 
 
 614 
c           backspace(fid)
615 
c        Get the first data block
 615 
c        Get the first data block
616 
         nline0  = 5
 616 
         nline0  = 5
617 
         nline1  = 5
 617 
         nline1  = 5
618 
         read(fid,*)
 618 
         read(fid,*)
619 
 100     read(fid,'(a500)',end=110) str
 619 
 100     read(fid,'(a500)',end=110) str
620 
         if (str.ne.'') then
 620 
         if (str.ne.'') then
621 
            nline1 = nline1 + 1
 621 
            nline1 = nline1 + 1
622 
            goto 100
 622 
            goto 100
623 
         endif
 623 
         endif
624 
 110     continue
 624 
 110     continue
- 
 
 625 
           backspace(fid)
625
626
626 
c        Get the total numbers of lines in the data block
 627 
c        Get the total numbers of lines in the data block
627 
         nline2 = nline1
 628 
         nline2 = nline1
628 
 120     read(fid,*,end=130)
 629 
 120     read(fid,*,end=130)
629 
         nline2 = nline2 + 1
 630 
         nline2 = nline2 + 1