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

Contents of /MITgcm/model/src/packages_init_variables.F

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

Revision 1.15 - (show annotations) (download)
Fri Nov 15 03:01:21 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint47
Changes since 1.14: +0 -6 lines 
differentiable version of checkpoint46n_post
o external_fields_load now part of differentiation list
o pressure needs multiple storing;
  would be nice to have store_pressure at beginning or
  end of forward_step, e.g. by having phiHyd global (5-dim.)
  (NB: pressure is needed for certain cases in find_rho,
  which is also invoked through convective_adjustment).
o recomputations in find_rho for cases
 'JMD95'/'UNESCO' or 'MDJWF' are OK.
o #define ATMOSPHERIC_LOADING should be differentiable
o ini_forcing shifted to begining of initialise_varia
1
2 #include "CPP_OPTIONS.h"
3
4 CBOP
5 C !ROUTINE: PACKAGES_INIT_VARIABLES
6 C !INTERFACE:
7 SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
8
9 C !DESCRIPTION: \bv
10 C *==========================================================*
11 C | SUBROUTINE PACKAGES_INIT_VARIABLES
12 C | o Does initialisation of package-related variable data
13 C *==========================================================*
14 C \ev
15
16 C !CALLING SEQUENCE:
17 C PACKAGES_INIT_VARIABLES
18 C |
19 C |-- GMREDI_INIT
20 C |
21 C |-- KPP_INIT
22 C |-- KPP_OPEN_DIAGS
23 C |
24 C |-- SEAICE_INIT
25 C |
26 C |-- OBCS_INIT_VARIABLES
27 C |
28 C |-- CTRL_MAP_INI
29 C |
30 C |-- COST_INIT
31 C |
32 C |-- ECCO_INIT
33 C |
34 C |-- INI_FORCING
35
36 C !USES:
37 IMPLICIT NONE
38 C === Global variables ===
39 #include "SIZE.h"
40 #include "EEPARAMS.h"
41 #include "PARAMS.h"
42
43 C !INPUT/OUTPUT PARAMETERS:
44 C === Routine arguments ===
45 C myThid - Number of this instances
46 INTEGER myThid
47 CEOP
48
49 #ifdef ALLOW_GMREDI
50 C-- Initialize GM/Redi parameterization
51 IF (useGMRedi) CALL GMREDI_INIT( myThid )
52 #endif
53
54 #ifdef ALLOW_KPP
55 C-- Initialize KPP vertical mixing scheme.
56 IF (useKPP) THEN
57 CALL KPP_INIT( myThid )
58 CALL KPP_OPEN_DIAGS( myThid )
59 ENDIF
60 #endif
61
62 #ifdef ALLOW_SEAICE
63 C-- Initialize SEAICE model.
64 IF (useSEAICE) CALL SEAICE_INIT( myThid )
65 #endif
66
67 #ifdef ALLOW_OBCS
68 C-- Open boundaries data
69 IF (useOBCS) THEN
70 CALL OBCS_INIT_VARIABLES( myThid )
71 ENDIF
72 #endif
73
74 #ifdef ALLOW_PTRACERS
75 IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
76 #endif
77
78 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
79 c-- Map the control variables onto the model state.
80 call ctrl_map_ini( mythid )
81 _BARRIER
82 #endif
83
84 #ifdef INCLUDE_ECCO_PACKAGE
85 IF (useECCO) THEN
86 CALL ECCO_INIT( myThid )
87 ENDIF
88 #else
89 # ifdef ALLOW_COST
90 c-- Initialise the cost function.
91 call cost_init( mythid )
92 _BARRIER
93 # endif
94 #endif
95
96 RETURN
97 END
  ViewVC Help
Powered by ViewVC 1.1.22