!-----------------------------------------------------------------------
! workspace module


      module workspace

#include "paramesh_preprocessor.fh"

      use paramesh_dimensions

      private


! workspace arrays
      public :: work, recvw, sendw, tempw
      real, save :: work(ilw:iuw,jlw:juw,klw:kuw,maxblocks,             &
     &                   nvar_work)
      real, save :: recvw(ilw:iuw,jlw:juw,klw:kuw)
      real, save :: sendw(ilw:iuw,jlw:juw,klw:kuw)
      real, save :: tempw(ilw:iuw,jlw:juw,klw:kuw)


! common block storing the solution for cell-centered quantities.
      public :: work1, recvw1, tempw1, tempw2
      real, save :: work1(ilw1:iuw1,jlw1:juw1,klw1:kuw1,npblks)
      real, save :: recvw1(ilw1:iuw1,jlw1:juw1,klw1:kuw1,npblks)
      real, save :: tempw1(ilw1:iuw1,jlw1:juw1,klw1:kuw1)


#ifdef CURVILINEAR
! arrays used to store geometry information for the working block
      public :: cell_vol_w
      real :: cell_vol_w(ilw1:iuw1,jlw1:juw1,klw1:kuw1)
#endif /* CURVILINEAR */


      end module workspace