| 1 | 
C       $Id$     | 
| 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 | 
 |