Subversion Repositories lagranto.ecmwf

Rev

Rev 13 | Rev 19 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 15
Line 471... Line 471...
471 
 
 471 
 
472 
c     Read pressure from first data file (pfile0) on U-grid; we have to set
 472 
c     Read pressure from first data file (pfile0) on U-grid; we have to set
473 
c     mdv explicitely, because it's not read from netCDF
 473 
c     mdv explicitely, because it's not read from netCDF
474 
      call input_open (fid,pfile0)
 474 
      call input_open (fid,pfile0)
475 
      varname='U'
 475 
      varname='U'
- 
 
 476 
      stagz  = -0.5
476 
      call input_grid
477 
      call input_grid
477 
     >     (fid,varname,xmin,xmax,ymin,ymax,dx,dy,nx,ny,
 478 
     >     (fid,varname,xmin,xmax,ymin,ymax,dx,dy,nx,ny,
478 
     >      tstart,pollon,pollat,fld0,sfc0,nz,ak,bk,stagz,timecheck)
 479 
     >      tstart,pollon,pollat,fld0,sfc0,nz,ak,bk,stagz,timecheck)
479 
      mdv = -999.99
480 
      mdv = -999.99
480 
      call input_close(fid)
 481 
      call input_close(fid)
Line 557... Line 558...
557 
             enddo
 558 
             enddo
558 
          enddo
 559 
          enddo
559
560
560 
       endif
 561 
       endif
561 
 
 562 
 
562 
 
 - 
 
563 
c     ------ Potential vorticity -----------------------------------------
 563 
c     ------ Potential vorticity -----------------------------------------
564 
 
 564 
 
565 
       if ( (umode.eq.'PVU') ) then
 565 
       if ( (umode.eq.'PVU') ) then
566 
 
 566 
 
567 
c         Read potential vorticity from first data file <sfile0>
 567 
c         Read potential vorticity from first data file <sfile0>