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