/[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.18 - (show annotations) (download)
Sat Dec 28 10:11:10 2002 UTC (21 years, 6 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint50c_post, checkpoint48e_post, checkpoint50c_pre, checkpoint48i_post, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint48b_post, checkpoint48c_pre, checkpoint48d_pre, checkpoint47i_post, checkpoint48d_post, checkpoint48f_post, checkpoint48h_post, checkpoint47g_post, checkpoint48a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint47j_post, checkpoint48c_post, checkpoint50g_post, checkpoint50e_pre, checkpoint47f_post, checkpoint50e_post, checkpoint50d_pre, checkpoint48, checkpoint49, checkpoint48g_post, checkpoint47h_post, checkpoint50b_post
Changes since 1.17: +17 -3 lines 
checkpoint47f_post
Merging from release1_p10:
o modifications for using pkg/exf with pkg/seaice
  - pkg/seaice CPP options SEAICE_EXTERNAL_FORCING
    and SEAICE_EXTERNAL_FLUXES
  - pkg/exf CPP options EXF_READ_EVAP and
    EXF_NO_BULK_COMPUTATIONS
  - usage examples are Experiments 8 and 9 in
    verification/lab_sea/README
  - verification/lab_sea default experiment now uses
    pkg/gmredi, pkg/kpp, pkg/seaice, and pkg/exf
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 |-- PTRACERS_INIT
29 C |
30 C |-- CTRL_MAP_INI
31 C |
32 C |-- EXF_INIT
33 C |
34 C |-- INI_FORCING
35 C |
36 C |-- ECCO_INIT
37 C |
38 C |-- COST_INIT
39 C |
40 C |-- BULKF_INIT
41 C |
42 C |-- ICE_INIT
43
44 C !USES:
45 IMPLICIT NONE
46 C === Global variables ===
47 #include "SIZE.h"
48 #include "EEPARAMS.h"
49 #include "PARAMS.h"
50
51 C !INPUT/OUTPUT PARAMETERS:
52 C === Routine arguments ===
53 C myThid - Number of this instances
54 INTEGER myThid
55 CEOP
56
57 #ifdef ALLOW_GMREDI
58 C-- Initialize GM/Redi parameterization
59 IF (useGMRedi) CALL GMREDI_INIT( myThid )
60 #endif
61
62 #ifdef ALLOW_KPP
63 C-- Initialize KPP vertical mixing scheme.
64 IF (useKPP) THEN
65 CALL KPP_INIT( myThid )
66 CALL KPP_OPEN_DIAGS( myThid )
67 ENDIF
68 #endif
69
70 #ifdef ALLOW_SEAICE
71 C-- Initialize SEAICE model.
72 IF (useSEAICE) CALL SEAICE_INIT( myThid )
73 #endif
74
75 #ifdef ALLOW_OBCS
76 C-- Open boundaries data
77 IF (useOBCS) THEN
78 CALL OBCS_INIT_VARIABLES( myThid )
79 ENDIF
80 #endif
81
82 #ifdef ALLOW_PTRACERS
83 IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
84 #endif
85
86 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
87 c-- Map the control variables onto the model state.
88 call ctrl_map_ini( mythid )
89 _BARRIER
90 #endif
91
92 #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
93 CALL EXF_INIT( mythid )
94 #else
95 CALL INI_FORCING( mythid )
96 #endif
97
98 #ifdef INCLUDE_ECCO_PACKAGE
99 IF (useECCO) THEN
100 CALL ECCO_INIT( myThid )
101 ENDIF
102 #else
103 # ifdef ALLOW_COST
104 c-- Initialise the cost function.
105 call cost_init( mythid )
106 _BARRIER
107 # endif
108 #endif
109
110 cswdblk -- begin add ---
111 #ifdef ALLOW_BULK_FORCE
112 IF (useBulkForce) call BULKF_INIT( mythid)
113 #endif
114 cswdblk ---end add ---
115
116 cswdice ---begin add ---
117 #ifdef ALLOW_THERM_SEAICE
118 IF (useThermSeaIce) call ICE_INIT( mythid)
119 #endif
120 cswdice ---end add ---
121
122
123 RETURN
124 END
  ViewVC Help
Powered by ViewVC 1.1.22