Subversion Repositories lagranto.wrf

Rev

Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 15
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*20 vnam(300)
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