subroutine grid_which (record)
implicit double precision (a-h,o-z)
include "common/cgeom"
include "common/cgrid"
Return in record the handle of the currently active grid.
If no grid is open, then a search is made for an existing grid,
which is then opened.