Subversion Repositories lagranto.ecmwf

Rev

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

Rev 21 Rev 46
Line 263... Line 263...
263 
            call getlevs(cstid,vardim(3),tmp,tmp,tmp,tmp,ierr)
 263 
            call getlevs(cstid,vardim(3),tmp,tmp,tmp,tmp,ierr)
264 
            if (ierr.ne.0) goto 903
 264 
            if (ierr.ne.0) goto 903
265 
            call clscdf(cstid,ierr)
 265 
            call clscdf(cstid,ierr)
266 
            if (ierr.ne.0) goto 903
 266 
            if (ierr.ne.0) goto 903
267 
 
 267 
 
268 
         else
 268 
         else
269 
            varname=fieldname
 269 
            varname=fieldname
270 
            call getdef(fid,varname,ndim,mdv,vardim,
 270 
            call getdef(fid,varname,ndim,mdv,vardim,
271 
     >                  varmin,varmax,stag,ierr)
 271 
     >                  varmin,varmax,stag,ierr)
272 
            if (ierr.ne.0) goto 900
 272 
            if (ierr.ne.0) goto 900
273 
            if (vardim(3).eq.1) is2d = 1
 273 
            if (vardim(3).eq.1) is2d = 1