/[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.13 - (show annotations) (download)
Wed Oct 9 00:57:57 2002 UTC (21 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint46l_post, checkpoint46l_pre, checkpoint46k_post, checkpoint46m_post
Changes since 1.12: +0 -6 lines 
* S/R aim_initialise.F replace S/R aim_init from file aim_do_inphys.F:
 - read AIM physics parameters from a file (data.aimphys)
 - set defaults values = F.Molteni paper (Clim.Dyn., 2002)
 - phiHyd removed from arg. list of S/R aim_do_atmos_physics
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 |-- OBCS_INIT_VARIABLES
25 C |
26 C |-- CTRL_MAP_INI
27 C |
28 C |-- COST_INIT
29 C |
30 C |-- ECCO_INIT
31 C |
32 C |-- INI_FORCING
33
34 C !USES:
35 IMPLICIT NONE
36 C === Global variables ===
37 #include "SIZE.h"
38 #include "EEPARAMS.h"
39 #include "PARAMS.h"
40
41 C !INPUT/OUTPUT PARAMETERS:
42 C === Routine arguments ===
43 C myThid - Number of this instances
44 INTEGER myThid
45 CEOP
46
47 #ifdef ALLOW_GMREDI
48 C-- Initialize GM/Redi parameterization
49 IF (useGMRedi) CALL GMREDI_INIT( myThid )
50 #endif
51
52 #ifdef ALLOW_KPP
53 C-- Initialize KPP vertical mixing scheme.
54 IF (useKPP) THEN
55 CALL KPP_INIT( myThid )
56 CALL KPP_OPEN_DIAGS( myThid )
57 ENDIF
58 #endif
59
60 #ifdef ALLOW_OBCS
61 C-- Open boundaries data
62 IF (useOBCS) THEN
63 CALL OBCS_INIT_VARIABLES( myThid )
64 ENDIF
65 #endif
66
67 #ifdef ALLOW_PTRACERS
68 IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
69 #endif
70
71 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
72 c-- Map the control variables onto the model state.
73 call ctrl_map_ini( mythid )
74 _BARRIER
75 #endif
76
77 #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
78 CALL EXF_INIT( mythid )
79 #else
80 CALL INI_FORCING( mythid )
81 #endif
82
83 #ifdef INCLUDE_ECCO_PACKAGE
84 IF (useECCO) THEN
85 CALL ECCO_INIT( myThid )
86 ENDIF
87 #else
88 # ifdef ALLOW_COST
89 c-- Initialise the cost function.
90 call cost_init( mythid )
91 _BARRIER
92 # endif
93 #endif
94
95 RETURN
96 END
  ViewVC Help
Powered by ViewVC 1.1.22