Subversion Repositories lagranto.wrf

Rev

Rev 23 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23 Rev 25
Line 610... Line 610...
610 
c     Read wind fields and vertical grid from first file
 610 
c     Read wind fields and vertical grid from first file
611 
      filename = prefix//dat(1)
 611 
      filename = prefix//dat(1)
612 
 
 612 
 
613 
      call frac2hhmm(tstart,tload)
 613 
      call frac2hhmm(tstart,tload)
614 
 
 614 
 
615 
      write(*,'(a16,a20,f7.2)') '  (file,time) : ',
 615 
      write(*,'(a16,a20,2f7.2)') '  (file,time) : ',
616 
     >                       trim(filename),tload
 616 
     >                       trim(filename),tload
617 
 
 617 
 
618 
      call input_open (fid,filename)
 618 
      call input_open (fid,filename)
619 
 
 619 
 
620 
      varname='U'					! U
 620 
      varname='U'					! U
Line 672... Line 672...
672 
 
 672 
 
673 
c       Read wind fields and surface pressure at next time
 673 
c       Read wind fields and surface pressure at next time
674 
        filename = prefix//dat(itm+1)
 674 
        filename = prefix//dat(itm+1)
675 
 
 675 
 
676 
        call frac2hhmm(time1,tload)
 676 
        call frac2hhmm(time1,tload)
677 
        write(*,'(a16,a20,f7.2)') '  (file,time) : ',
 677 
        write(*,'(a16,a20,2f7.2)') '  (file,time) : ',
678 
     >                          trim(filename),tload
 678 
     >                          trim(filename),tload
679 
 
 679 
 
680 
        call input_open (fid,filename)
 680 
        call input_open (fid,filename)
681 
 
 681 
 
682 
  	    varname='U'					! U
 682 
  	    varname='U'					! U