MITgcm_contrib/cg2d_bench/PARAMS.h


C     /==========================================================\
C     | PARAMS.h                                                 |
C     | o Header file defining model "parameters".               |
C     |==========================================================|
C     | The values from the model's standard input file are      |
C     | stored into the variables held here. Notes describing    |
C     | the parameters can also be found here.                   |
C     \==========================================================/

C--   COMMON /PARM_I/ Integer valued parameters used by the model.
C     cg2dMaxIters        - Maximum number of iterations in the
C                           two-dimensional con. grad solver.
C     cg2dChkResFreq      - Frequency with which to check residual
C                           in con. grad solver.
C     nIter               - Time step number of full model.
C     nIter0              - Start time-step number of for this run
C     nTimeSteps          - Number of timesteps to execute
      COMMON /PARM_I/
     &        cg2dMaxIters,
     &        cg2dChkResFreq,
     &        nIter, nIter0, nTimeSteps
      INTEGER cg2dMaxIters
      INTEGER cg2dChkResFreq
      INTEGER nIter
      INTEGER nIter0
      INTEGER nTimeSteps

C--   COMMON /PARM_R/ "Real" valued parameters used by the model.
C     cg2dTargetResidual
C               - Target residual for cg2d solver.
C
      COMMON /PARM_R/ cg2dTargetResidual
      REAL cg2dTargetResidual

1	ce107	1.1
2			C /==========================================================\
3			C \| PARAMS.h \|
4			C \| o Header file defining model "parameters". \|
5			C \|==========================================================\|
6			C \| The values from the model's standard input file are \|
7			C \| stored into the variables held here. Notes describing \|
8			C \| the parameters can also be found here. \|
9			C \==========================================================/
10
11			C-- COMMON /PARM_I/ Integer valued parameters used by the model.
12			C cg2dMaxIters - Maximum number of iterations in the
13			C two-dimensional con. grad solver.
14			C cg2dChkResFreq - Frequency with which to check residual
15			C in con. grad solver.
16			C nIter - Time step number of full model.
17			C nIter0 - Start time-step number of for this run
18			C nTimeSteps - Number of timesteps to execute
19			COMMON /PARM_I/
20			& cg2dMaxIters,
21			& cg2dChkResFreq,
22			& nIter, nIter0, nTimeSteps
23			INTEGER cg2dMaxIters
24			INTEGER cg2dChkResFreq
25			INTEGER nIter
26			INTEGER nIter0
27			INTEGER nTimeSteps
28
29			C-- COMMON /PARM_R/ "Real" valued parameters used by the model.
30			C cg2dTargetResidual
31			C - Target residual for cg2d solver.
32			C
33			COMMON /PARM_R/ cg2dTargetResidual
34			REAL cg2dTargetResidual
35