MITgcm_contrib/cg2d_bench/ini_parms.F

      SUBROUTINE INI_PARMS
C     /==========================================================\
C     | SUBROUTINE INI_PARMS                                     |
C     | o Routine to set model "parameters"                      |
C     |==========================================================|
C     | Notes:                                                   |
C     | ======                                                   |
C     | The present version of this routine is a place-holder.   |
C     | A production version needs to handle parameters from an  |
C     | external file and possibly reading in some initial field |
C     | values.                                                  |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "CG2D.h"

C     === Routine arguments ===

C     === Local variables ===

      cg2dMaxIters   = 100
      cg2dChkResFreq = 1
      nIter0         = 0
      nTimeSteps     = 10
C

      RETURN
      END

1	ce107	1.1	SUBROUTINE INI_PARMS
2			C /==========================================================\
3			C \| SUBROUTINE INI_PARMS \|
4			C \| o Routine to set model "parameters" \|
5			C \|==========================================================\|
6			C \| Notes: \|
7			C \| ====== \|
8			C \| The present version of this routine is a place-holder. \|
9			C \| A production version needs to handle parameters from an \|
10			C \| external file and possibly reading in some initial field \|
11			C \| values. \|
12			C \==========================================================/
13			IMPLICIT NONE
14
15			C === Global variables ===
16			#include "SIZE.h"
17			#include "EEPARAMS.h"
18			#include "PARAMS.h"
19			#include "CG2D.h"
20
21			C === Routine arguments ===
22
23			C === Local variables ===
24
25			cg2dMaxIters = 100
26			cg2dChkResFreq = 1
27			nIter0 = 0
28			nTimeSteps = 10
29			C
30
31			RETURN
32			END
33