C $Header: /u/gcmpack/MITgcm/pkg/matrix/MATRIX.h,v 1.4 2011/08/26 19:46:59 jmc Exp $
C $Name: $
#ifdef ALLOW_MATRIX
INTEGER expMatrixCounter(nSx,nSy), impMatrixCounter(nSx,nSy)
INTEGER expMatrixWriteCount, impMatrixWriteCount
_RL expMatrixWriteTime, impMatrixWriteTime
COMMON /MATRIX_PARAMS_I/
& expMatrixCounter, impMatrixCounter,
& expMatrixWriteCount, impMatrixWriteCount
COMMON /MATRIX_PARAMS_R/
& expMatrixWriteTime, impMatrixWriteTime
_RL MATRIX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
& PTRACERS_num,2)
_RL PTRACERS_initial(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
& PTRACERS_num)
COMMON /MATRIX_FIELDS/ MATRIX, PTRACERS_initial
#endif /* ALLOW_MATRIX */