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

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

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

Revision 1.10 - (hide annotations) (download)
Thu Jan 17 16:55:25 2002 UTC (22 years, 5 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint44e_post, chkpt44d_post, checkpoint44e_pre, chkpt44a_post, chkpt44c_pre, release1_final_v1, checkpoint44b_post, chkpt44a_pre, checkpoint44b_pre, checkpoint44, chkpt44c_post, checkpoint44f_pre
Branch point for: release1_final
Changes since 1.9: +2 -2 lines 
* Updated adjoint/makefile
  o removed "_ecco" from names
  o added/modified forward mode options
  o added dependent vector option
  o tried SVD matrix computation (doesn't work;
    too much memory use by TAF)
* Updated flow directives related to FTL
* removed global_sum__g.F (not necessary)
* initialise forward mode anomalies in ctrl_unpack.F
  (so far "crude" initialization only).
* Added flag ALLOW_TANGENTLINEAR_RUN complememting
  ALLOW_ADJOINT_RUN
* driver routine the_model_main.F needs separate call
  to FTL routine G_THE_MAIN_LOOP with parameter list
  identical to THE_MAIN_LOOP (TAF doesn't remove arguments).
* added template file tangentlinear_model.F
  for forward mode.
1 heimbach 1.10 C $Header: /u/gcmpack/MITgcm/model/src/packages_init_variables.F,v 1.9 2002/01/11 19:24:24 heimbach Exp $
2 cnh 1.8 C $Name: $
3 adcroft 1.2
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.8 CBOP
7     C !ROUTINE: PACKAGES_INIT_VARIABLES
8     C !INTERFACE:
9 adcroft 1.2 SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
10 cnh 1.8
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
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 adcroft 1.2 IMPLICIT NONE
40     C === Global variables ===
41     #include "SIZE.h"
42     #include "EEPARAMS.h"
43     #include "PARAMS.h"
44    
45 cnh 1.8 C !INPUT/OUTPUT PARAMETERS:
46 adcroft 1.2 C === Routine arguments ===
47     C myThid - Number of this instances
48     INTEGER myThid
49 cnh 1.8 CEOP
50 adcroft 1.2
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 jmc 1.4 #endif
70    
71     #ifdef ALLOW_AIM
72     IF ( useAIM ) CALL AIM_INIT( mythid )
73 adcroft 1.2 #endif
74    
75 heimbach 1.10 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
76 heimbach 1.5 c-- Map the control variables onto the model state.
77     call ctrl_map_ini( mythid )
78     _BARRIER
79     c-- Initialise the cost function.
80     call cost_init( mythid )
81     _BARRIER
82     #endif
83    
84 heimbach 1.9 #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
85     CALL EXF_INIT( mythid )
86     #else
87     CALL INI_FORCING( mythid )
88     #endif
89    
90 adcroft 1.2 #ifdef INCLUDE_ECCO_PACKAGE
91     IF (useECCO) THEN
92     CALL ECCO_INIT( myThid )
93     ENDIF
94     #endif
95    
96     RETURN
97     END
  ViewVC Help
Powered by ViewVC 1.1.22