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 10... Line 10...
10
10
11 
      integer   ndims,nvars,ngatts,recdim,ierr
 11 
      integer   ndims,nvars,ngatts,recdim,ierr
12 
      integer   vartyp,ndim,nvatts,vardim(4)
 12 
      integer   vartyp,ndim,nvatts,vardim(4)
13 
      integer   cdfid,i
 13 
      integer   cdfid,i
14 
      character*80 cdfname
 14 
      character*80 cdfname
15 
      character*20 vnam(100)
 15 
      character*80 vnam(100)
16
16
17 
      integer   iargc
 17 
      integer   iargc
18 
      character*(80) arg
 18 
      character*(80) arg
19 
 
 19 
 
20 
c     check for sufficient requested arguments
 20 
c     check for sufficient requested arguments