pkg/diagnostics/DIAGNOSTICS_CALC.h

C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/DIAGSTATS_REGIONS.h,v 1.3 2010/12/19 23:50:57 jmc Exp $
C $Name:  $

CBOP
C     !ROUTINE: DIAGNOSTICS_CALC.h
C     !INTERFACE:
C     include "DIAGNOSTICS_CALC.h"
C     !DESCRIPTION:
C     \bv
C     *==========================================================*
C     | DIAGNOSTICS_CALC.h
C     | o Hold parameters and variables used in post-processing
C     |   diagnostics
C     *==========================================================*
C     *==========================================================*
C     \ev
CEOP

C     DIAGNOSTICS_CALC common block:
C-- used in Stream-Function calculation:
C     iPsi0,jPsi0 :: indices of grid-point location where Psi == 0
C     xPsi0,yPsi0 :: grid-point coordinate where Psi == 0

      INTEGER iPsi0(nSx,nSy)
      INTEGER jPsi0(nSx,nSy)
      _RS     xPsi0, yPsi0
      COMMON / DIAGNOSTICS_CALC_I /
     &     iPsi0, jPsi0
      COMMON / DIAGNOSTICS_CALC_RS /
     &     xPsi0, yPsi0

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1	C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/DIAGSTATS_REGIONS.h,v 1.3 2010/12/19 23:50:57 jmc Exp $
2	C $Name: $
3
4	CBOP
5	C !ROUTINE: DIAGNOSTICS_CALC.h
6	C !INTERFACE:
7	C include "DIAGNOSTICS_CALC.h"
8	C !DESCRIPTION:
9	C \bv
10	C ==========================================================
11	C \| DIAGNOSTICS_CALC.h
12	C \| o Hold parameters and variables used in post-processing
13	C \| diagnostics
14	C ==========================================================
15	C ==========================================================
16	C \ev
17	CEOP
18
19	C DIAGNOSTICS_CALC common block:
20	C-- used in Stream-Function calculation:
21	C iPsi0,jPsi0 :: indices of grid-point location where Psi == 0
22	C xPsi0,yPsi0 :: grid-point coordinate where Psi == 0
23
24	INTEGER iPsi0(nSx,nSy)
25	INTEGER jPsi0(nSx,nSy)
26	_RS xPsi0, yPsi0
27	COMMON / DIAGNOSTICS_CALC_I /
28	& iPsi0, jPsi0
29	COMMON / DIAGNOSTICS_CALC_RS /
30	& xPsi0, yPsi0
31
32	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|