/[MITgcm]/MITgcm_contrib/AITCZ/code/packages_init_variables.F
ViewVC logotype

Annotation of /MITgcm_contrib/AITCZ/code/packages_init_variables.F

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


Revision 1.1 - (hide annotations) (download)
Wed Aug 20 15:24:59 2003 UTC (21 years, 11 months ago) by czaja
Branch: MAIN
CVS Tags: HEAD
Initial creation of Arnaud's simple coupled simulation.

1 czaja 1.1 C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_variables.F,v 1.8 2001/09/26 18:09:16 cnh Exp $
2     C $Name: release1_beta1 $
3    
4     #include "CPP_OPTIONS.h"
5    
6     CBOP
7     C !ROUTINE: PACKAGES_INIT_VARIABLES
8     C !INTERFACE:
9     SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
10    
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | SUBROUTINE PACKAGES_INIT_VARIABLES
14     C | o Does initialisation of package-related variable data
15     C *==========================================================*
16     C \ev
17    
18     C !CALLING SEQUENCE:
19     C PACKAGES_INIT_VARIABLES
20     C |
21     C |-- GMREDI_INIT
22     C |
23     C |-- KPP_INIT
24     C |-- KPP_OPEN_DIAGS
25     C |
26     C |-- OBCS_INIT_VARIABLES
27     C |
28     C |-- AIM_INIT OR MITPHYS_INIT
29     C |
30     C |-- CTRL_MAP_INI
31     C |
32     C |-- COST_INIT
33     C |
34     C |-- ECCO_INIT
35     C |
36     C |-- INI_FORCING
37    
38     C !USES:
39     IMPLICIT NONE
40     C === Global variables ===
41     #include "SIZE.h"
42     #include "EEPARAMS.h"
43     #include "PARAMS.h"
44    
45     C !INPUT/OUTPUT PARAMETERS:
46     C === Routine arguments ===
47     C myThid - Number of this instances
48     INTEGER myThid
49     CEOP
50    
51     #ifdef ALLOW_GMREDI
52     C-- Initialize GM/Redi parameterization
53     IF (useGMRedi) CALL GMREDI_INIT( myThid )
54     #endif
55    
56     #ifdef ALLOW_KPP
57     C-- Initialize KPP vertical mixing scheme.
58     IF (useKPP) THEN
59     CALL KPP_INIT( myThid )
60     CALL KPP_OPEN_DIAGS( myThid )
61     ENDIF
62     #endif
63    
64     #ifdef ALLOW_OBCS
65     C-- Open boundaries data
66     IF (useOBCS) THEN
67     CALL OBCS_INIT_VARIABLES( myThid )
68     ENDIF
69     #endif
70    
71     #ifdef ALLOW_AIM
72     IF ( useAIM ) CALL AIM_INIT( mythid )
73     #endif
74    
75     #ifdef ALLOW_MITPHYS
76     IF ( useMITPHYS ) CALL MITPHYS_INIT( mythid )
77     #endif
78    
79     #ifdef ALLOW_ADJOINT_RUN
80     c-- Map the control variables onto the model state.
81     call ctrl_map_ini( mythid )
82     _BARRIER
83     c-- Initialise the cost function.
84     call cost_init( mythid )
85     _BARRIER
86     #endif
87    
88     #ifdef INCLUDE_ECCO_PACKAGE
89     IF (useECCO) THEN
90     CALL ECCO_INIT( myThid )
91     ENDIF
92     #else
93     CALL INI_FORCING( myThid )
94     #endif
95    
96     RETURN
97     END

  ViewVC Help
Powered by ViewVC 1.1.22