/[MITgcm]/MITgcm/model/src/initialise_fixed.F
ViewVC logotype

Annotation of /MITgcm/model/src/initialise_fixed.F

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

Revision 1.13 - (hide annotations) (download)
Thu Oct 9 04:19:18 2003 UTC (20 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint51o_pre, checkpoint51l_post, checkpoint51n_post, checkpoint51n_pre, checkpoint51l_pre, checkpoint51q_post, checkpoint51r_post, checkpoint51i_post, checkpoint51o_post, checkpoint51m_post, checkpoint51p_post
Branch point for: branch-nonh, tg2-branch, checkpoint51n_branch
Changes since 1.12: +3 -1 lines 
 o first check-in for the "branch-genmake2" merge
 o verification suite as run on shelley (gcc 3.2.2):

Wed Oct  8 23:42:29 EDT 2003
                T           S           U           V
G D M    c        m  s        m  s        m  s        m  s
E p a R  g  m  m  e  .  m  m  e  .  m  m  e  .  m  m  e  .
N n k u  2  i  a  a  d  i  a  a  d  i  a  a  d  i  a  a  d
2 d e n  d  n  x  n  .  n  x  n  .  n  x  n  .  n  x  n  .

OPTFILE=NONE

Y Y Y Y 13 16 16 16  0 16 16 16 16 16 16 16 16 13 12  0  0 pass  adjustment.128x64x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16  0  0 16 16  0  0 pass  adjustment.cs-32x32x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16 22  0 16 16 22  0 pass  adjust_nlfs.cs-32x32x1
Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O   advect_cs
Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O   advect_xy
Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O   advect_xz
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  aim.5l_cs
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass  aim.5l_Equatorial_Channel
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass  aim.5l_LatLon
Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass  exp0
Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass  exp1
Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass  exp2
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  exp4
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass  exp5
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  front_relax
Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass  global_ocean.90x40x15
Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL  global_ocean.cs32x15
Y Y Y Y  6 11 12 13 13 12 13 16 13  9  9  9  9 10  9  9 11 FAIL  global_ocean_pressure
Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass  global_with_exf
Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16  9 16 pass  hs94.128x64x5
Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass  hs94.1x64x5
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass  hs94.cs-32x32x5
Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL  ideal_2D_oce
Y Y Y Y  8 16 16 16 16 16 16 16 16 13 13  8 16 16 16 16 16 FAIL  internal_wave
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass  inverted_barometer
Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL  lab_sea
Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL  natl_box
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  plume_on_slope
Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass  solid-body.cs-32x32x1
1 edhill 1.13 C $Header: /u/u3/gcmpack/MITgcm/model/src/initialise_fixed.F,v 1.12.2.1 2003/10/02 18:10:45 edhill Exp $
2 jmc 1.11 C $Name: $
3 adcroft 1.1
4 edhill 1.13 #include "PACKAGES_CONFIG.h"
5 adcroft 1.1 #include "CPP_OPTIONS.h"
6    
7 cnh 1.8 CBOP
8     C !ROUTINE: INITIALISE_FIXED
9     C !INTERFACE:
10 adcroft 1.1 SUBROUTINE INITIALISE_FIXED(myThid)
11 cnh 1.8
12     C !DESCRIPTION: \bv
13     C *==========================================================*
14     C | SUBROUTINE INITIALISE_FIXED
15     C | o Routine for setting fixed model arrays such as
16     C | topography, grid, solver matrices, etc.
17     C *==========================================================*
18     C | INITIALISE_FIXED is invoked at the start of the model to
19     C | set fixed model arrays. It reads data from an input file
20     C | and from various binary files.
21     C | Each thread invokes an instance of this routine as does
22     C | each process in a multi-process parallel environment like
23     C | MPI.
24     C *==========================================================*
25     C \ev
26    
27     C !CALLING SEQUENCE:
28     C INITIALISE_FIXED
29     C |
30     C |-- INI_PARMS
31     C |
32     C |-- MON_INIT
33     C |
34     C |-- INI_GRID
35     C |
36 mlosch 1.10 C |-- INI_EOS
37     C |
38 cnh 1.8 C |-- INI_DEPTHS
39     C |
40     C |-- INI_MASKS_ETC
41     C |
42     C |-- PACKAGES_BOOT
43     C |
44     C |-- PACKAGES_READPARMS
45     C |
46     C |-- PACKAGES_CHECK
47     C |
48     C |-- PACKAGES_INIT_FIXED
49     C |
50 jmc 1.12 C |-- INI_LINEAR_PHSURF
51     C |
52     C |-- INI_CORI
53 cnh 1.8 C |
54     C |-- INI_CG2D
55     C |
56     C |-- INI_CG3D
57     C |
58 jmc 1.9 C |-- CONFIG_CHECK
59     C |
60 cnh 1.8 C |-- CONFIG_SUMMARY
61    
62     C !USES:
63 adcroft 1.1 IMPLICIT NONE
64     C == Global variables ==
65     #include "SIZE.h"
66     #include "EEPARAMS.h"
67     #include "PARAMS.h"
68    
69 cnh 1.8 C !INPUT/OUTPUT PARAMETERS:
70 adcroft 1.1 C == Routine arguments ==
71     INTEGER myThid
72 cnh 1.8 CEOP
73 adcroft 1.1
74     C-- Set model parameters.
75     C Parameters are set to defaults and then updates are read from
76     C an input file called data.
77 adcroft 1.2 CALL INI_PARMS( myThid )
78 adcroft 1.1 _BARRIER
79 cnh 1.6
80     #ifndef EXCLUDE_MONITOR
81     C-- Initialise MONITOR I/O streams so we can report config. info
82     CALL MON_INIT( myThid )
83     _BARRIER
84     #endif
85    
86 adcroft 1.1
87     C-- Set model grid.
88     C Variables defining model grid spacing are defined.
89     CALL INI_GRID( myThid )
90 mlosch 1.10 _BARRIER
91    
92     C-- Set equation of state parameters.
93     CALL INI_EOS( myThid )
94 adcroft 1.1 _BARRIER
95    
96     C-- Initialise map of depths
97     CALL INI_DEPTHS( myThid )
98     _BARRIER
99    
100     C-- Derive masks, lopping factors and recipricols of quantities.
101     C Volumes and areas are set according to grid and depth map.
102     CALL INI_MASKS_ETC( myThid )
103     _BARRIER
104 jmc 1.7
105 adcroft 1.4 C-- Configure packages
106     CALL PACKAGES_BOOT( myThid )
107    
108     C-- Read configuration parameters for packages
109     CALL PACKAGES_READPARMS( myThid )
110    
111     C-- Check dependances between packages
112     CALL PACKAGES_CHECK( myThid )
113    
114     C-- Call fixed data initialization phase of packages
115     CALL PACKAGES_INIT_FIXED( myThid )
116 adcroft 1.1
117 jmc 1.12 C-- Set Bo_surf => define the Linear Relation: Phi_surf(eta)
118     CALL INI_LINEAR_PHISURF( myThid )
119    
120     C-- Set coriolis operators
121     CALL INI_CORI( myThid )
122    
123 adcroft 1.1 C-- Set laplace operators for use in 2D conjugate gradient solver.
124     CALL INI_CG2D( myThid )
125    
126     #ifdef ALLOW_NONHYDROSTATIC
127     C-- Set laplace operators for use in 3D conjugate gradient solver.
128 edhill 1.13 ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
129 adcroft 1.1 CALL INI_CG3D( myThid )
130     #endif
131 jmc 1.9
132     C-- Check parameters and model cofiguration
133     CALL CONFIG_CHECK( myThid )
134 heimbach 1.3
135 adcroft 1.1 C-- Finally summarise the model cofiguration
136     CALL CONFIG_SUMMARY( myThid )
137    
138 jmc 1.12 RETURN
139 adcroft 1.1 END
  ViewVC Help
Powered by ViewVC 1.1.22