Subversion Repositories lagranto.ecmwf

Rev

Rev 5 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 12
Line 933... Line 933...
933 
      character*(*) varnam
 933 
      character*(*) varnam
934 
      character*(20) chars,dimnam
 934 
      character*(20) chars,dimnam
935 
      integer cdfid
 935 
      integer cdfid
936 
 
 936 
 
937 
      real        dat(*)
 937 
      real        dat(*)
938 
      real        misdat,varmin(4),varmax(4),stag(4)
 938 
      real        misdat,varmin(3),varmax(3),stag(3)
939 
      real        time, timeval
 939 
      real        time, timeval
940 
 
 940 
 
941 
      integer     corner(4),edgeln(4),didtim,vardim(4),ndims
 941 
      integer     corner(4),edgeln(4),didtim,vardim(4),ndims
942 
      integer     error, ierr
 942 
      integer     error, ierr
943 
      integer     level,ntime
 943 
      integer     level,ntime
Line 1099... Line 1099...
1099 
      character*(20) chars
 1099 
      character*(20) chars
1100 
      integer cdfid
 1100 
      integer cdfid
1101 
 
 1101 
 
1102 
 
 1102 
 
1103 
      real 	dat(*)
 1103 
      real 	dat(*)
1104 
      real	misdat,varmin(4),varmax(4),stag(4)
 1104 
      real	misdat,varmin(3),varmax(3),stag(3)
1105 
      real	time, timeval
 1105 
      real	time, timeval
1106 
      data	stag/0.,0.,0.,0./
 1106 
      data	stag/0.,0.,0./
1107 
 
 1107 
 
1108 
      integer	corner(4),edgeln(4),did(4),vardim(4),ndims
 1108 
      integer	corner(4),edgeln(4),did(4),vardim(4),ndims
1109 
      integer	error, ierr
 1109 
      integer	error, ierr
1110 
      integer	level,ntime
 1110 
      integer	level,ntime
1111 
      integer	idtime,idvar,iflag
 1111 
      integer	idtime,idvar,iflag
1112 
      integer	i
 1112 
      integer	i
1113 
 
 1113 
 
1114 
      call ncpopt(NCVERBOS)
 1114 
      call ncpopt(NCVERBOS)
- 
 
 1115 
 
1115 
c     get definitions of data
 1116 
c     get definitions of data
1116 
      call getdef (cdfid, trim(varnam), ndims, misdat,
1117 
      call getdef (cdfid, trim(varnam), ndims, misdat,
1117 
     &                           vardim, varmin, varmax, stag, ierr)
 1118 
     &                           vardim, varmin, varmax, stag, ierr)
1118 
      if (ierr.ne.0)  print *,'*ERROR* in getdef in putdat'
 1119 
      if (ierr.ne.0)  print *,'*ERROR* in getdef in putdat'
1119 
 
 1120