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