MITgcm_contrib/cg2d_bench/ini_parms.F

C       $Id: ini_parms.F,v 1.2 2006/05/12 22:34:55 ce107 Exp $  
      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
      cg2dTargetResidual = 1e-16
C

      RETURN
      END

1	C $Id: ini_parms.F,v 1.2 2006/05/12 22:34:55 ce107 Exp $
2	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	cg2dTargetResidual = 1e-16
31	C
32
33	RETURN
34	END
35