c --- GRIBCAL.CM1 ------
c     Common blocks in general use

      character*120 title,infile,outfile,outfile2,logfile
      character*120 cdeflt,fctl
      character*12 cset3d,cset2d,codever,codelevel
      character*120 inbase,outbase !,flnames(mxfiles)
      character*4 cgid(mxfiles)
      character cmap*3,cgrid*12
      character*20 fkey1(nawips),fkey2(nawips),creplace

      character*16 dataname,dataver,datalevel
      character*64 datamod
      character*132 comment	

      dimension xy(2,mxnx,mxny)
      dimension id3d(n3d),id2d(n2d)
      dimension pres(mxnz),pres1(mxnz),pres2(mxnz)
      dimension x3d(mxnx,mxny,mxnz,n3d),x2d(mxnx,mxny,n2d)
      dimension ter(mxnx,mxny)
      dimension ichk3d(mxnz,n3d),ichk2d(n2d)
      dimension nfiles(3,nfst)
      dimension iawips(nawips),idtile(mxtil)
      dimension imask(mxnx,mxny)

      common /geo/xy,nxp,nyp,nzp,nxl,itoff,jtoff,flats1,flats2
     &       ,flonc,flatc,conf,xorg,yorg,dxy
      common /gridconf/nvar,idpick,rlatmin,rlatmax
     &        ,rlonmin,rlonmax,nx1,nx2,ny1,ny2,nz1,nz2
     &        ,nxsub,nysub,nzsub,iter1,jter1,iter2,jter2
     &        ,rlatsw,rlonsw,rlatswsub,rlonswsub
     &        ,xorgsub,yorgsub,ic,jc,iscan
      common /header/title,infile,outfile,outfile2,logfile
     &        ,cset3d,cset2d,codever,codelevel,cmap,cgrid
     &        ,dataname,dataver,datalevel,datamod,comment
     &        ,creplace,cdeflt
      common /inpfile/cgid,inbase,outbase,fkey1,fkey2  !,flnames
      common /extra/id3d,id2d,nfiles,nfile,ntile,idtile

      common /ioutput/ioutw,ioutq,ioutc,iouti,ioutg,iosrf
     &        ,inhyd,imphys,icupa,ibltyp,ifrad,isoil
     &        ,ifddaan,ifddaob,igrdt,ipbl,ishf,ilhf,iustr,iswdn
     &        ,ilwdn,it2,iq2,iu10,iv10,isst
      common /datestamp/idate,idateout,ihrfst,istart,icheck
     &        ,idatebeg,idateend,ihrstep,ihrrun,nhours,nfhr
     &        ,iyearbeg,imonthbeg,idaybeg,ihourbeg,julbeg
     &        ,iyearend,imonthend,idayend,ihourend,julend
     &        ,nti,ilp,idaten,idatec,ipdate,ireplace
      common /press/pres,pres1,pres2
      common /xdata/x3d,x2d,ter,ichk3d,ichk2d,imask,id_mask
      common /awips/iawips,idawp,ndawp,nzprf
     &        ,idweb,idrun,idfrmt,itl

C XY: AWIPS grid config. 
C        Order(2 vars): 1,2: Lon (E), Lat(N);
C Nfiles: Number of AWIP Grib files, starting and ending indices
C         for each forecast

