/[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.10 - (hide annotations) (download)
Wed Aug 7 16:55:52 2002 UTC (21 years, 9 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint46f_post, checkpoint46b_post, checkpoint46l_pre, checkpoint48b_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, checkpoint46d_pre, checkpoint48d_post, checkpoint46j_pre, checkpoint47g_post, checkpoint46j_post, checkpoint46k_post, checkpoint48a_post, checkpoint47j_post, branch-exfmods-tag, checkpoint46e_pre, checkpoint48c_post, checkpoint46c_pre, checkpoint47b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46g_post, checkpoint47f_post, checkpoint46i_post, checkpoint46c_post, checkpoint46e_post, checkpoint47, checkpoint48, checkpoint46h_post, checkpoint47h_post, checkpoint46d_post
Branch point for: branch-exfmods-curt
Changes since 1.9: +8 -2 lines 
o Added new equation of state -> JMD95Z and JMD95P
  - EOS of Jackett and McDougall, 1995, JPO
  - moved all EOS parameters into EOS.h
  - new routines ini_eos.F, store_pressure.F
o Added UNESCO EOS, but not recommended because it requires
  in-situ temperature (see JMD95)
o Modified formatting for knudsen2.f in utils/knudsen2 and added
  unesco.f to be used with POLY3
1 mlosch 1.10 C $Header: /u/gcmpack/MITgcm/model/src/initialise_fixed.F,v 1.9 2002/01/31 14:52:28 jmc Exp $
2     C $Name: $
3 adcroft 1.1
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.8 CBOP
7     C !ROUTINE: INITIALISE_FIXED
8     C !INTERFACE:
9 adcroft 1.1 SUBROUTINE INITIALISE_FIXED(myThid)
10 cnh 1.8
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | SUBROUTINE INITIALISE_FIXED
14     C | o Routine for setting fixed model arrays such as
15     C | topography, grid, solver matrices, etc.
16     C *==========================================================*
17     C | INITIALISE_FIXED is invoked at the start of the model to
18     C | set fixed model arrays. It reads data from an input file
19     C | and from various binary files.
20     C | Each thread invokes an instance of this routine as does
21     C | each process in a multi-process parallel environment like
22     C | MPI.
23     C *==========================================================*
24     C \ev
25    
26     C !CALLING SEQUENCE:
27     C INITIALISE_FIXED
28     C |
29     C |-- INI_PARMS
30     C |
31     C |-- MON_INIT
32     C |
33     C |-- INI_GRID
34     C |
35 mlosch 1.10 C |-- INI_EOS
36     C |
37 cnh 1.8 C |-- INI_DEPTHS
38     C |
39     C |-- INI_MASKS_ETC
40     C |
41     C |-- INI_LINEAR_PHSURF
42     C |
43     C |-- INI_CORI
44     C |
45     C |-- PACKAGES_BOOT
46     C |
47     C |-- PACKAGES_READPARMS
48     C |
49     C |-- PACKAGES_CHECK
50     C |
51     C |-- PACKAGES_INIT_FIXED
52     C |
53     C |-- ZONAL_FILT_INIT
54     C |
55     C |-- INI_CG2D
56     C |
57     C |-- INI_CG3D
58     C |
59 jmc 1.9 C |-- CONFIG_CHECK
60     C |
61 cnh 1.8 C |-- CONFIG_SUMMARY
62    
63     C !USES:
64 adcroft 1.1 IMPLICIT NONE
65     C == Global variables ==
66     #include "SIZE.h"
67     #include "EEPARAMS.h"
68     #include "PARAMS.h"
69    
70 cnh 1.8 C !INPUT/OUTPUT PARAMETERS:
71 adcroft 1.1 C == Routine arguments ==
72     INTEGER myThid
73 cnh 1.8 CEOP
74 adcroft 1.1
75     C-- Set model parameters.
76     C Parameters are set to defaults and then updates are read from
77     C an input file called data.
78 adcroft 1.2 CALL INI_PARMS( myThid )
79 adcroft 1.1 _BARRIER
80 cnh 1.6
81     #ifndef EXCLUDE_MONITOR
82     C-- Initialise MONITOR I/O streams so we can report config. info
83     CALL MON_INIT( myThid )
84     _BARRIER
85     #endif
86    
87 adcroft 1.1
88     C-- Set model grid.
89     C Variables defining model grid spacing are defined.
90     CALL INI_GRID( myThid )
91 mlosch 1.10 _BARRIER
92    
93     C-- Set equation of state parameters.
94     CALL INI_EOS( myThid )
95 adcroft 1.1 _BARRIER
96    
97     C-- Initialise map of depths
98     CALL INI_DEPTHS( myThid )
99     _BARRIER
100    
101     C-- Derive masks, lopping factors and recipricols of quantities.
102     C Volumes and areas are set according to grid and depth map.
103     CALL INI_MASKS_ETC( myThid )
104     _BARRIER
105 jmc 1.7
106     C-- Set Bo_surf => define the Linear Relation: Phi_surf(eta)
107     CALL INI_LINEAR_PHISURF( myThid )
108 adcroft 1.1
109 heimbach 1.3 C-- Set coriolis operators
110     CALL INI_CORI( myThid )
111    
112 adcroft 1.4 C-- Configure packages
113     CALL PACKAGES_BOOT( myThid )
114    
115     C-- Read configuration parameters for packages
116     CALL PACKAGES_READPARMS( myThid )
117    
118     C-- Check dependances between packages
119     CALL PACKAGES_CHECK( myThid )
120    
121     C-- Call fixed data initialization phase of packages
122     CALL PACKAGES_INIT_FIXED( myThid )
123    
124     #ifdef ALLOW_ZONAL_FILT
125 adcroft 1.1 C-- Latitude circle filter initialisation
126 adcroft 1.4 CALL ZONAL_FILT_INIT(myThid)
127 adcroft 1.1 _BARRIER
128     #endif
129    
130     C-- Set laplace operators for use in 2D conjugate gradient solver.
131     CALL INI_CG2D( myThid )
132    
133     #ifdef ALLOW_NONHYDROSTATIC
134     C-- Set laplace operators for use in 3D conjugate gradient solver.
135     CALL INI_CG3D( myThid )
136     #endif
137 jmc 1.9
138     C-- Check parameters and model cofiguration
139     CALL CONFIG_CHECK( myThid )
140 heimbach 1.3
141 adcroft 1.1 C-- Finally summarise the model cofiguration
142     CALL CONFIG_SUMMARY( myThid )
143    
144     END
  ViewVC Help
Powered by ViewVC 1.1.22