INTEGER ncid, flag, status

      INTEGER ndims, nvars, ngatts, unlimited
      INTEGER xid, yid, zid, tstepid
      INTEGER xlen, ylen, tsteplen
      INTEGER SWdownid
      INTEGER Rainfid
      INTEGER Snowfid
      INTEGER LWdownid
      INTEGER PSurfid
      INTEGER Tairid
      INTEGER Qairid
      INTEGER Wind_Nid
      INTEGER Wind_Eid

      REAL SWdownminus(nx,ny)
      REAL LWdownminus(nx,ny)
      REAL PSurfminus(nx,ny)
      REAL Tairminus(nx,ny)
      REAL Qairminus(nx,ny)
      REAL Wind_Nminus(nx,ny)
      REAL Wind_Eminus(nx,ny)

      REAL SWdownnow(nx,ny)
      REAL Rainfnow(nx,ny)
      REAL Snowfnow(nx,ny)
      REAL LWdownnow(nx,ny)
      REAL PSurfnow(nx,ny)
      REAL Tairnow(nx,ny)
      REAL Qairnow(nx,ny)
      REAL Wind_Nnow(nx,ny)
      REAL Wind_Enow(nx,ny)

      REAL SWdownplus(nx,ny)
      REAL Rainfplus(nx,ny)
      REAL Snowfplus(nx,ny)
      REAL LWdownplus(nx,ny)
      REAL PSurfplus(nx,ny)
      REAL Tairplus(nx,ny)
      REAL Qairplus(nx,ny)
      REAL Wind_Nplus(nx,ny)
      REAL Wind_Eplus(nx,ny)

      CHARACTER*20 name
      INTEGER      xtype, dimids(3), natts
      INTEGER      t
      INTEGER      start(3), count(3)
      INTEGER      outdim(3) 
      INTEGER      start2(4), count2(4)
      INTEGER      outdim2(4)