Subversion Repositories lagranto.ecmwf

Rev

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

Rev 21 Rev 38
Line 30... Line 30...
30 
c     Get list and write to standard out
30 
c     Get list and write to standard out
31 
      call input_open    (cdfid,cdfname)
 31 
      call input_open    (cdfid,cdfname)
32 
      call input_getvars (cdfid,vnam,nvars)
 32 
      call input_getvars (cdfid,vnam,nvars)
33 
      call input_close   (cdfid)
 33 
      call input_close   (cdfid)
34 
      do i=1,nvars
 34 
      do i=1,nvars
35 
        write(*,*)  vnam(i)
 35 
        write(*,*)  " ",trim(vnam(i))," "
36 
      enddo
 36 
      enddo
37 
 
 37 
 
38 
      end
38 
      end