/[MITgcm]/MITgcm_contrib/cg2d_bench/ini_parms.F
ViewVC logotype

Contents of /MITgcm_contrib/cg2d_bench/ini_parms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.3 - (show annotations) (download)
Wed May 31 16:27:25 2006 UTC (17 years, 10 months ago) by ce107
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +6 -5 lines
Provide initial value for target residual and cleanup repeated comm calls.

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

  ViewVC Help
Powered by ViewVC 1.1.22