* uwmcdf.h - last change: 6/23/92 (ams) * * Include file for netCDF UWM/COADS I/O programs. * * Arrays to hold lat/lon and packed grid * -------------------------------------- parameter ( npmax = 42164 ) integer npoint integer*2 lat(npmax), lon(npmax), var(npmax) * Info. about files previously open * --------------------------------- parameter ( nmax = 10 ) integer icount, idfile(nmax), idclm(nmax), idanm(nmax) real offclm(nmax), sclclm(nmax) real offanm(nmax), sclanm(nmax) character*80 uwmver, files(nmax) common / uwcdf1 / npoint, lat, lon, var common / uwcdf2 / icount, idfile, idclm, idanm common / uwcdf3 / offclm, sclclm, offanm, sclanm common / uwcdf4 / uwmver, files common / uwcdf5 / iaccum