pkg/matrix/MATRIX.h

C $Header: /u/gcmpack/MITgcm/pkg/matrix/MATRIX.h,v 1.2 2007/11/05 18:58:00 jmc Exp $
C $Name:  $

#ifdef ALLOW_MATRIX

      INTEGER expMatrixCounter, impMatrixCounter, expMatrixWriteCount,
     &   impMatrixWriteCount
      _RL expMatrixWriteTime, impMatrixWriteTime
      COMMON /MATRIX_PARAMS/ expMatrixCounter, impMatrixCounter,
     &   expMatrixWriteCount, impMatrixWriteCount,
     &   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 */
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm/pkg/matrix/MATRIX.h,v 1.2 2007/11/05 18:58:00 jmc Exp $
2	jmc	1.2	C $Name: $
3	spk	1.1
4			#ifdef ALLOW_MATRIX
5
6	jmc	1.3	INTEGER expMatrixCounter, impMatrixCounter, expMatrixWriteCount,
7	spk	1.1	& impMatrixWriteCount
8			_RL expMatrixWriteTime, impMatrixWriteTime
9	jmc	1.3	COMMON /MATRIX_PARAMS/ expMatrixCounter, impMatrixCounter,
10	spk	1.1	& expMatrixWriteCount, impMatrixWriteCount,
11			& expMatrixWriteTime, impMatrixWriteTime
12	jmc	1.3
13	spk	1.1	_RL MATRIX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
14	jmc	1.3	& PTRACERS_num,2)
15	spk	1.1	_RL PTRACERS_initial(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
16			& PTRACERS_num)
17			COMMON /MATRIX_FIELDS/ MATRIX, PTRACERS_initial
18	jmc	1.3
19	spk	1.1	#endif /* ALLOW_MATRIX */