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	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