Subversion Repositories lagranto.ecmwf

Rev

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

Rev 23 Rev 39
Line 104... Line 104...
104 
C     Get infos about data domain - in particular: dimensions
 104 
C     Get infos about data domain - in particular: dimensions
105 
      nx       = 1
 105 
      nx       = 1
106 
      ny       = 1
 106 
      ny       = 1
107 
      nz       = 1
 107 
      nz       = 1
108 
      call input_grid (-cdfid,varnam,xmin,xmax,ymin,ymax,dx,dy,nx,ny,
 108 
      call input_grid (-cdfid,varnam,xmin,xmax,ymin,ymax,dx,dy,nx,ny,
109 
     >               0.,pollon,pollat,rd,rd,nz,rd,rd,rd,stagz,timecheck)
 109 
     >               0.,pollon,pollat,rd,rd,nz,rd,rd,stagz,timecheck)
110 
 
 110 
 
111 
C     Get memory for dynamic arrays
 111 
C     Get memory for dynamic arrays
112 
      allocate(sp(nx,ny),stat=stat)
 112 
      allocate(sp(nx,ny),stat=stat)
113 
      if (stat.ne.0) print*,'*** error allocating array sp ***'
 113 
      if (stat.ne.0) print*,'*** error allocating array sp ***'
114 
      allocate(varf(nx,ny),stat=stat)
 114 
      allocate(varf(nx,ny),stat=stat)