pkg/diagnostics/DIAGNOSTICS_CALC.h

c19aee9e8e Jean*0001 CBOP
                0002 C     !ROUTINE: DIAGNOSTICS_CALC.h
                0003 C     !INTERFACE:
                0004 C     include "DIAGNOSTICS_CALC.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | DIAGNOSTICS_CALC.h
                0009 C     | o Hold parameters and variables used in post-processing
                0010 C     |   diagnostics
                0011 C     *==========================================================*
                0012 C     *==========================================================*
                0013 C     \ev
                0014 CEOP
                0015
                0016 C     DIAGNOSTICS_CALC common block:
4be6b2ab9b Jean*0017 C     prtFirstCall     :: print messages if first call
36965c0b7f Jean*0018 C-- used in Velocity-Potential calculation:
                0019 C     diagCG_maxIters  :: max number of iterations in diag_cg2d solver
                0020 C     diagCG_prtResFrq :: frequency for printing residual in CG iterations
                0021 C     diagCG_resTarget :: residual target for diag_cg2d solver (no units)
a63b8f5615 Jean*0022 C     diagCG_pcOffDFac :: diag_cg2d preconditioner off-diagonal factor
c19aee9e8e Jean*0023 C-- used in Stream-Function calculation:
                0024 C     iPsi0,jPsi0 :: indices of grid-point location where Psi == 0
                0025 C     xPsi0,yPsi0 :: grid-point coordinate where Psi == 0
                0026
4be6b2ab9b Jean*0027       LOGICAL prtFirstCall
36965c0b7f Jean*0028       INTEGER diagCG_maxIters
                0029       INTEGER diagCG_prtResFrq
c19aee9e8e Jean*0030       INTEGER iPsi0(nSx,nSy)
                0031       INTEGER jPsi0(nSx,nSy)
36965c0b7f Jean*0032       _RL     diagCG_resTarget
a63b8f5615 Jean*0033       _RL     diagCG_pcOffDFac
c19aee9e8e Jean*0034       _RS     xPsi0, yPsi0
4be6b2ab9b Jean*0035       COMMON / DIAGNOSTICS_CALC_L /
                0036      &     prtFirstCall
c19aee9e8e Jean*0037       COMMON / DIAGNOSTICS_CALC_I /
36965c0b7f Jean*0038      &     diagCG_maxIters, diagCG_prtResFrq,
c19aee9e8e Jean*0039      &     iPsi0, jPsi0
36965c0b7f Jean*0040       COMMON / DIAGNOSTICS_CALC_RL /
a63b8f5615 Jean*0041      &     diagCG_resTarget, diagCG_pcOffDFac
c19aee9e8e Jean*0042       COMMON / DIAGNOSTICS_CALC_RS /
                0043      &     xPsi0, yPsi0
                0044
                0045 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|