MITgcm_contrib/cg2d_bench/ini_parms.F

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