c GEOMETRY COMMON BLOCK.
c Used as part of the random walk model.
c BMM 17/5/93.	

	REAL	goN, goE, gaS, gaC
	INTEGER	numX, numY, numZ
	REAL	dimXY, dimZ
	INTEGER	resXY, resZ

	COMMON /GEOM/ bathym, goN, goE, gaS, gaC, numX, numY, numZ, 
     *			dimXY, dimZ, resXY, resZ