Subversion Repositories lagranto.ecmwf

Rev

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

Rev 3 Rev 13
Line 79... Line 79...
79
79
80 
C     Get the data array and the levels
 80 
C     Get the data array and the levels
81
81
82 
      nx=vardim(1)
 82 
      nx=vardim(1)
83 
      ny=vardim(2)
 83 
      ny=vardim(2)
- 
 
 84 
      nz=vardim(3)
84 
      call gettimes(cdfid,time,ntimes,ierr)
 85 
      call gettimes(cdfid,time,ntimes,ierr)
85 
 
 86 
 
86 
      call getgrid(cstid,dx,dy,ierr)
 87 
      call getgrid(cstid,dx,dy,ierr)
87 
      call getlevs(cstid,nz,aklev,bklev,aklay,bklay,ierr)
 88 
      call getlevs(cstid,nz,aklev,bklev,aklay,bklay,ierr)
88 
      call getpole(cstid,pollon,pollat,ierr)
 89 
      call getpole(cstid,pollon,pollat,ierr)