llc_4320/code-async/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm_contrib/llc_hires/llc_4320/code-async/packages_init_fixed.F,v 1.1 2013/09/20 12:38:03 dimitri Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: PACKAGES_INIT_FIXED
C     !INTERFACE:
      SUBROUTINE PACKAGES_INIT_FIXED( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE PACKAGES_INIT_FIXED
C     | o Does initialisation of package-related fixed fields
C     *==========================================================*
C     \ev

C     !CALLING SEQUENCE:
C     PACKAGES_INIT_FIXED
C       |
C       |-- RUNCLOCK_INIT
C       |
C       |-- CAL_INIT_FIXED
C       |
C       |-- DIAGNOSTICS_INIT_EARLY
C       |-- DIAGNOSTICS_MAIN_INIT
C       |
C       |-- GAD_INIT_FIXED
C       |
C       |-- MOM_INIT_FIXED
C       |
C       |-- CD_CODE_INIT_FIXED
C       |
C       |-- OBCS_INIT_FIXED
C       |
C       |-- SHAP_FILT_INIT_FIZED
C       |
C       |-- ZONAL_FILT_INIT
C       |
C       |-- EXF_INIT_FIXED
C       |
C       |-- CHEAPAML_INIT_FIXED
C       |
C       |-- OPPS_INIT
C       |
C       |-- PP81_INIT_FIXED
C       |
C       |-- MY82_INIT_FIXED
C       |
C       |-- GGL90_INIT_FIXED
C       |
C       |-- KPP_INIT_FIXED
C       |
C       |-- GMREDI_INIT_FIXED
C       |
C       |-- BBL_INIT_FIXED
C       |
C       |-- DWNSLP_INIT_FIXED
C       |
C       |-- SEAICE_COST_INIT_FIXED
C       |
C       |-- SMOOTH_INIT_FIXED
C       |
C       |-- ECCO_COST_INIT_FIXED
C       |
C       |-- PROFILES_INIT_FIXED
C       |
C       |-- CTRL_INIT
C       |-- CTRL_ADMTLM
C       |
C       |-- FLT_INIT_FIXED
C       |
C       |-- LONGSTEP_INIT_FIXED
C       |
C       |-- PTRACERS_INIT_FIXED
C       |
C       |-- GCHEM_INIT_FIXED
C       |
C       |-- RBCS_INIT_FIXED
C       |
C       |-- FRAZIL_INIT_FIXED
C       |
C       |-- SEAICE_INIT_FIXED
C       |
C       |-- SALT_PLUME_INIT_FIXED
C       |
C       |-- SHELFICE_INIT_FIXED
C       |
C       |-- STREAMICE_INIT_FIXED
C       |
C       |-- ICEFRONT_INIT_FIXED
C       |
C       |-- THSICE_INIT_FIXED
C       |
C       |-- LAND_INITIALISE
C       |
C       |-- ATM2D_INIT_FIXED
C       |
C       |-- AIM_INITIALISE
C       |
C       |-- ATM_PHYS_INIT_FIXED
C       |
C       |-- FIZHI_INIT_FIXED
C       |
C       |-- GRIDALT_INITIALISE
C       |
C       |-- TIMEAVE_INIT_FIXED
C       |
C       |-- REGRID_INIT_FIXED
C       |
C       |-- LAYERS_INIT_FIXED
C       |
C       |-- CPL_INIT_FIXED
C       |
C       |-- OASIS_INIT_FIXED
C       |
C       |-- EMBED_FILES_INIT
C       |
C       |-- MYPACKAGE_INIT_FIXED
C       |
C       |-- DIAGNOSTICS_INIT_FIXED


C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid :: my Thread Id Number
      INTEGER myThid
CEOP

#ifdef ALLOW_DEBUG
      IF (debugMode) CALL DEBUG_ENTER('PACKAGES_INIT_FIXED',myThid)
#endif

#ifdef ALLOW_RUNCLOCK
      IF ( useRunClock ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('RUNCLOCK_INIT',myThid)
# endif
        CALL RUNCLOCK_INIT( myThid )
      ENDIF
#endif

#ifdef ALLOW_CAL
C--   Initialise the calendar package.
      IF ( useCAL ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('CAL_INIT_FIXED',myThid)
# endif
        CALL CAL_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_CAL */

#ifdef ALLOW_DIAGNOSTICS
      IF ( useDiagnostics ) THEN
C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_EARLY',myThid)
# endif
        CALL DIAGNOSTICS_INIT_EARLY( myThid )
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_MAIN_INIT',myThid)
# endif
        CALL DIAGNOSTICS_MAIN_INIT( myThid )
      ENDIF
#endif

#ifdef ALLOW_GENERIC_ADVDIFF
C--   Initialize fixed params for GAD
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('GAD_INIT_FIXED',myThid)
# endif
      CALL GAD_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_MOM_COMMON
C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
      IF ( momStepping ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('MOM_INIT_FIXED',myThid)
# endif
        CALL MOM_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_CD_CODE
      IF (useCDscheme) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('CD_CODE_INIT_FIXED',myThid)
# endif
        CALL CD_CODE_INIT_FIXED(myThid)
      ENDIF
#endif

C--   Initialize fixed arrays for OBCS
#ifdef ALLOW_OBCS
      IF (useOBCS) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
# endif
        CALL OBCS_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_SHAP_FILT
C--   Shapiro filter initialisation
      IF (useSHAP_FILT) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
# endif
        CALL SHAP_FILT_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_ZONAL_FILT
C--   Latitude circle filter initialisation
      IF (useZONAL_FILT) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
# endif
        CALL ZONAL_FILT_INIT(myThid)
      ENDIF
#endif

#ifdef ALLOW_EXF
C--   Initialize fixed arrays for EXF
      IF ( useEXF ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
# endif
        CALL EXF_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_CHEAPAML
      IF ( useCheapAML ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
# endif
        CALL CHEAPAML_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_OPPS
      IF (useOPPS) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
# endif
        CALL OPPS_INIT( myThid )
      ENDIF
#endif /* ALLOW_OPPS */

#ifdef ALLOW_PP81
C--   Initialize fixed arrays for PP81
      IF ( usePP81 ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('PP81_INIT_FIXED',myThid)
# endif
        CALL PP81_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_MY82
C--   Initialize fixed arrays for MY82
      IF ( useMY82 ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('MY82_INIT_FIXED',myThid)
# endif
        CALL MY82_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_GGL90
C--   Initialize fixed arrays for GGL90
      IF ( useGGL90 ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_FIXED',myThid)
# endif
        CALL GGL90_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_KPP
C--   Initialize fixed arrays for KPP
      IF ( useKPP ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
# endif
        CALL KPP_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_GMREDI
C--   Initialize fixed arrays for GM-Redi
      IF ( useGMRedi ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
# endif
        CALL GMREDI_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_BBL
C--   Initialize fixed arrays for BBL pkg
      IF ( useBBL ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
# endif
        CALL BBL_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_DOWN_SLOPE
C--   Initialize fixed arrays for Down-Slope pkg
      IF ( useDOWN_SLOPE ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
# endif
        CALL DWNSLP_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_SEAICE
C--   Initialise ecco-specific cost function.
C--   This needs to preceed the call ctrl_init
C--   in order to provide the weight files
      IF (useSEAICE) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('SEAICE_COST_INIT_FIXED',myThid)
# endif
        CALL SEAICE_COST_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_SMOOTH
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid)
# endif
      CALL SMOOTH_INIT_FIXED(myThid)
#endif /* ALLOW_SMOOTH */

#ifdef ALLOW_ECCO
C--   Initialise ecco-specific cost function.
C--   This needs to preceed the call ctrl_init
C--   in order to provide the weight files
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('ECCO_COST_INIT_FIXED',myThid)
# endif
      CALL ECCO_COST_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_PROFILES
      IF (usePROFILES) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
# endif
        CALL PROFILES_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_AUTODIFF
C--   Initialise the control variables
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT',myThid)
# endif
      CALL CTRL_INIT( myThid )
#endif

#ifdef ALLOW_ADMTLM
C--   Initialise ADMTLM
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid)
# endif
      CALL CTRL_ADMTLM( myThid )
#endif

#ifdef ALLOW_FLT
C--   Initialise fixed array for Float pkg
      IF ( useFLT ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid)
# endif
        CALL FLT_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_LONGSTEP
      IF (usePTRACERS) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid)
# endif
        CALL LONGSTEP_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_PTRACERS
      IF (usePTRACERS) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid)
# endif
        CALL PTRACERS_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_GCHEM
      IF (useGCHEM) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid)
# endif
        CALL GCHEM_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_RBCS
      IF (useRBCS) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid)
# endif
        CALL RBCS_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_FRAZIL
      IF (useFRAZIL) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
# endif
        CALL FRAZIL_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_SEAICE
      IF (useSEAICE) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
# endif
        CALL SEAICE_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_SALT_PLUME
      IF (useSALT_PLUME) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
# endif
        CALL SALT_PLUME_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_SHELFICE
      IF (useShelfIce) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid)
# endif
        CALL SHELFICE_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_SHELFICE */

#ifdef ALLOW_STREAMICE
      IF (useStreamIce) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
# endif
       CALL STREAMICE_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_STREAMICE */

#ifdef ALLOW_ICEFRONT
      IF (useICEFRONT) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid)
# endif
        CALL ICEFRONT_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_ICEFRONT */

#ifdef ALLOW_THSICE
      IF (useThSIce) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
# endif
        CALL THSICE_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_LAND
C--   Initialise & Read Land package parameters
      IF (useLand) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('LAND_INITIALISE',myThid)
# endif
        CALL LAND_INITIALISE( myThid )
      ENDIF
#endif

#ifdef ALLOW_ATM2D
      IF ( useAtm2d ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
# endif
        CALL ATM2D_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_AIM
C--   Initialise & Read AIM physical parameters
      IF (useAIM) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
# endif
        CALL AIM_INITIALISE( myThid )
      ENDIF
#endif

#ifdef ALLOW_ATM_PHYS
C--   Initialise Atm_Phys pkg
      IF ( useAtm_Phys ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_FIXED',myThid)
# endif
        CALL ATM_PHYS_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_ATM_PHYS */

#ifdef ALLOW_FIZHI
C--   Initialise & Read FIZHI physical parameters
      IF (useFIZHI) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
# endif
        CALL FIZHI_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_GRIDALT
C--   Initialise GRIDALT parameters - the alternative grid
      IF (useGRIDALT) then
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
# endif
        CALL GRIDALT_INITIALISE( myThid )
      ENDIF
#endif

#ifdef ALLOW_TIMEAVE
C     IF (useTIMEAVE) THEN
      IF ( taveFreq.GT.0. ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
# endif
        CALL TIMEAVE_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_REGRID
      IF ( useREGRID ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid)
# endif
        CALL REGRID_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_LAYERS
      IF ( useLayers ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid)
# endif
        CALL LAYERS_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_LAYERS */

#ifdef COMPONENT_MODULE
      IF ( useCoupler ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid)
# endif
        CALL CPL_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_OASIS
C--   needs to be called after the OASIS_INIT
      IF (useOASIS) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
# endif
        CALL OASIS_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_EMBED_FILES
      IF ( useEMBED_FILES ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
# endif
        CALL EMBED_FILES_INIT( myThid )
      ENDIF
#endif

#ifdef ALLOW_MYPACKAGE
      IF (useMYPACKAGE) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid)
# endif
        CALL MYPACKAGE_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_DIAGNOSTICS
C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
      IF ( useDiagnostics ) THEN
# ifdef ALLOW_DEBUG
        IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid)
# endif
        CALL DIAGNOSTICS_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_ASYNCIO
      CALL ASYNCIO_DRIVER_CONFIG( myThid  )
#endif

#ifdef ALLOW_DEBUG
      IF (debugMode) CALL DEBUG_LEAVE('PACKAGES_INIT_FIXED',myThid)
#endif

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm_contrib/llc_hires/llc_4320/code-async/packages_init_fixed.F,v 1.1 2013/09/20 12:38:03 dimitri Exp $
2	C $Name: $
3
4	#include "PACKAGES_CONFIG.h"
5	#include "CPP_OPTIONS.h"
6
7	CBOP
8	C !ROUTINE: PACKAGES_INIT_FIXED
9	C !INTERFACE:
10	SUBROUTINE PACKAGES_INIT_FIXED( myThid )
11
12	C !DESCRIPTION: \bv
13	C ==========================================================
14	C \| SUBROUTINE PACKAGES_INIT_FIXED
15	C \| o Does initialisation of package-related fixed fields
16	C ==========================================================
17	C \ev
18
19	C !CALLING SEQUENCE:
20	C PACKAGES_INIT_FIXED
21	C \|
22	C \|-- RUNCLOCK_INIT
23	C \|
24	C \|-- CAL_INIT_FIXED
25	C \|
26	C \|-- DIAGNOSTICS_INIT_EARLY
27	C \|-- DIAGNOSTICS_MAIN_INIT
28	C \|
29	C \|-- GAD_INIT_FIXED
30	C \|
31	C \|-- MOM_INIT_FIXED
32	C \|
33	C \|-- CD_CODE_INIT_FIXED
34	C \|
35	C \|-- OBCS_INIT_FIXED
36	C \|
37	C \|-- SHAP_FILT_INIT_FIZED
38	C \|
39	C \|-- ZONAL_FILT_INIT
40	C \|
41	C \|-- EXF_INIT_FIXED
42	C \|
43	C \|-- CHEAPAML_INIT_FIXED
44	C \|
45	C \|-- OPPS_INIT
46	C \|
47	C \|-- PP81_INIT_FIXED
48	C \|
49	C \|-- MY82_INIT_FIXED
50	C \|
51	C \|-- GGL90_INIT_FIXED
52	C \|
53	C \|-- KPP_INIT_FIXED
54	C \|
55	C \|-- GMREDI_INIT_FIXED
56	C \|
57	C \|-- BBL_INIT_FIXED
58	C \|
59	C \|-- DWNSLP_INIT_FIXED
60	C \|
61	C \|-- SEAICE_COST_INIT_FIXED
62	C \|
63	C \|-- SMOOTH_INIT_FIXED
64	C \|
65	C \|-- ECCO_COST_INIT_FIXED
66	C \|
67	C \|-- PROFILES_INIT_FIXED
68	C \|
69	C \|-- CTRL_INIT
70	C \|-- CTRL_ADMTLM
71	C \|
72	C \|-- FLT_INIT_FIXED
73	C \|
74	C \|-- LONGSTEP_INIT_FIXED
75	C \|
76	C \|-- PTRACERS_INIT_FIXED
77	C \|
78	C \|-- GCHEM_INIT_FIXED
79	C \|
80	C \|-- RBCS_INIT_FIXED
81	C \|
82	C \|-- FRAZIL_INIT_FIXED
83	C \|
84	C \|-- SEAICE_INIT_FIXED
85	C \|
86	C \|-- SALT_PLUME_INIT_FIXED
87	C \|
88	C \|-- SHELFICE_INIT_FIXED
89	C \|
90	C \|-- STREAMICE_INIT_FIXED
91	C \|
92	C \|-- ICEFRONT_INIT_FIXED
93	C \|
94	C \|-- THSICE_INIT_FIXED
95	C \|
96	C \|-- LAND_INITIALISE
97	C \|
98	C \|-- ATM2D_INIT_FIXED
99	C \|
100	C \|-- AIM_INITIALISE
101	C \|
102	C \|-- ATM_PHYS_INIT_FIXED
103	C \|
104	C \|-- FIZHI_INIT_FIXED
105	C \|
106	C \|-- GRIDALT_INITIALISE
107	C \|
108	C \|-- TIMEAVE_INIT_FIXED
109	C \|
110	C \|-- REGRID_INIT_FIXED
111	C \|
112	C \|-- LAYERS_INIT_FIXED
113	C \|
114	C \|-- CPL_INIT_FIXED
115	C \|
116	C \|-- OASIS_INIT_FIXED
117	C \|
118	C \|-- EMBED_FILES_INIT
119	C \|
120	C \|-- MYPACKAGE_INIT_FIXED
121	C \|
122	C \|-- DIAGNOSTICS_INIT_FIXED
123
124
125	C !USES:
126	IMPLICIT NONE
127	C === Global variables ===
128	#include "SIZE.h"
129	#include "EEPARAMS.h"
130	#include "PARAMS.h"
131
132	C !INPUT/OUTPUT PARAMETERS:
133	C === Routine arguments ===
134	C myThid :: my Thread Id Number
135	INTEGER myThid
136	CEOP
137
138	#ifdef ALLOW_DEBUG
139	IF (debugMode) CALL DEBUG_ENTER('PACKAGES_INIT_FIXED',myThid)
140	#endif
141
142	#ifdef ALLOW_RUNCLOCK
143	IF ( useRunClock ) THEN
144	# ifdef ALLOW_DEBUG
145	IF (debugMode) CALL DEBUG_CALL('RUNCLOCK_INIT',myThid)
146	# endif
147	CALL RUNCLOCK_INIT( myThid )
148	ENDIF
149	#endif
150
151	#ifdef ALLOW_CAL
152	C-- Initialise the calendar package.
153	IF ( useCAL ) THEN
154	# ifdef ALLOW_DEBUG
155	IF (debugMode) CALL DEBUG_CALL('CAL_INIT_FIXED',myThid)
156	# endif
157	CALL CAL_INIT_FIXED( myThid )
158	ENDIF
159	#endif /* ALLOW_CAL */
160
161	#ifdef ALLOW_DIAGNOSTICS
162	IF ( useDiagnostics ) THEN
163	C- needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
164	# ifdef ALLOW_DEBUG
165	IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_EARLY',myThid)
166	# endif
167	CALL DIAGNOSTICS_INIT_EARLY( myThid )
168	# ifdef ALLOW_DEBUG
169	IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_MAIN_INIT',myThid)
170	# endif
171	CALL DIAGNOSTICS_MAIN_INIT( myThid )
172	ENDIF
173	#endif
174
175	#ifdef ALLOW_GENERIC_ADVDIFF
176	C-- Initialize fixed params for GAD
177	# ifdef ALLOW_DEBUG
178	IF (debugMode) CALL DEBUG_CALL('GAD_INIT_FIXED',myThid)
179	# endif
180	CALL GAD_INIT_FIXED( myThid )
181	#endif
182
183	#ifdef ALLOW_MOM_COMMON
184	C-- Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
185	IF ( momStepping ) THEN
186	# ifdef ALLOW_DEBUG
187	IF (debugMode) CALL DEBUG_CALL('MOM_INIT_FIXED',myThid)
188	# endif
189	CALL MOM_INIT_FIXED( myThid )
190	ENDIF
191	#endif
192
193	#ifdef ALLOW_CD_CODE
194	IF (useCDscheme) THEN
195	# ifdef ALLOW_DEBUG
196	IF (debugMode) CALL DEBUG_CALL('CD_CODE_INIT_FIXED',myThid)
197	# endif
198	CALL CD_CODE_INIT_FIXED(myThid)
199	ENDIF
200	#endif
201
202	C-- Initialize fixed arrays for OBCS
203	#ifdef ALLOW_OBCS
204	IF (useOBCS) THEN
205	# ifdef ALLOW_DEBUG
206	IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
207	# endif
208	CALL OBCS_INIT_FIXED( myThid )
209	ENDIF
210	#endif
211
212	#ifdef ALLOW_SHAP_FILT
213	C-- Shapiro filter initialisation
214	IF (useSHAP_FILT) THEN
215	# ifdef ALLOW_DEBUG
216	IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
217	# endif
218	CALL SHAP_FILT_INIT_FIXED( myThid )
219	ENDIF
220	#endif
221
222	#ifdef ALLOW_ZONAL_FILT
223	C-- Latitude circle filter initialisation
224	IF (useZONAL_FILT) THEN
225	# ifdef ALLOW_DEBUG
226	IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
227	# endif
228	CALL ZONAL_FILT_INIT(myThid)
229	ENDIF
230	#endif
231
232	#ifdef ALLOW_EXF
233	C-- Initialize fixed arrays for EXF
234	IF ( useEXF ) THEN
235	# ifdef ALLOW_DEBUG
236	IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
237	# endif
238	CALL EXF_INIT_FIXED( myThid )
239	ENDIF
240	#endif
241
242	#ifdef ALLOW_CHEAPAML
243	IF ( useCheapAML ) THEN
244	# ifdef ALLOW_DEBUG
245	IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
246	# endif
247	CALL CHEAPAML_INIT_FIXED( myThid )
248	ENDIF
249	#endif
250
251	#ifdef ALLOW_OPPS
252	IF (useOPPS) THEN
253	# ifdef ALLOW_DEBUG
254	IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
255	# endif
256	CALL OPPS_INIT( myThid )
257	ENDIF
258	#endif /* ALLOW_OPPS */
259
260	#ifdef ALLOW_PP81
261	C-- Initialize fixed arrays for PP81
262	IF ( usePP81 ) THEN
263	# ifdef ALLOW_DEBUG
264	IF (debugMode) CALL DEBUG_CALL('PP81_INIT_FIXED',myThid)
265	# endif
266	CALL PP81_INIT_FIXED( myThid )
267	ENDIF
268	#endif
269
270	#ifdef ALLOW_MY82
271	C-- Initialize fixed arrays for MY82
272	IF ( useMY82 ) THEN
273	# ifdef ALLOW_DEBUG
274	IF (debugMode) CALL DEBUG_CALL('MY82_INIT_FIXED',myThid)
275	# endif
276	CALL MY82_INIT_FIXED( myThid )
277	ENDIF
278	#endif
279
280	#ifdef ALLOW_GGL90
281	C-- Initialize fixed arrays for GGL90
282	IF ( useGGL90 ) THEN
283	# ifdef ALLOW_DEBUG
284	IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_FIXED',myThid)
285	# endif
286	CALL GGL90_INIT_FIXED( myThid )
287	ENDIF
288	#endif
289
290	#ifdef ALLOW_KPP
291	C-- Initialize fixed arrays for KPP
292	IF ( useKPP ) THEN
293	# ifdef ALLOW_DEBUG
294	IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
295	# endif
296	CALL KPP_INIT_FIXED( myThid )
297	ENDIF
298	#endif
299
300	#ifdef ALLOW_GMREDI
301	C-- Initialize fixed arrays for GM-Redi
302	IF ( useGMRedi ) THEN
303	# ifdef ALLOW_DEBUG
304	IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
305	# endif
306	CALL GMREDI_INIT_FIXED( myThid )
307	ENDIF
308	#endif
309
310	#ifdef ALLOW_BBL
311	C-- Initialize fixed arrays for BBL pkg
312	IF ( useBBL ) THEN
313	# ifdef ALLOW_DEBUG
314	IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
315	# endif
316	CALL BBL_INIT_FIXED( myThid )
317	ENDIF
318	#endif
319
320	#ifdef ALLOW_DOWN_SLOPE
321	C-- Initialize fixed arrays for Down-Slope pkg
322	IF ( useDOWN_SLOPE ) THEN
323	# ifdef ALLOW_DEBUG
324	IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
325	# endif
326	CALL DWNSLP_INIT_FIXED( myThid )
327	ENDIF
328	#endif
329
330	#ifdef ALLOW_SEAICE
331	C-- Initialise ecco-specific cost function.
332	C-- This needs to preceed the call ctrl_init
333	C-- in order to provide the weight files
334	IF (useSEAICE) THEN
335	# ifdef ALLOW_DEBUG
336	IF (debugMode) CALL DEBUG_CALL('SEAICE_COST_INIT_FIXED',myThid)
337	# endif
338	CALL SEAICE_COST_INIT_FIXED( myThid )
339	ENDIF
340	#endif
341
342	#ifdef ALLOW_SMOOTH
343	# ifdef ALLOW_DEBUG
344	IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid)
345	# endif
346	CALL SMOOTH_INIT_FIXED(myThid)
347	#endif /* ALLOW_SMOOTH */
348
349	#ifdef ALLOW_ECCO
350	C-- Initialise ecco-specific cost function.
351	C-- This needs to preceed the call ctrl_init
352	C-- in order to provide the weight files
353	# ifdef ALLOW_DEBUG
354	IF (debugMode) CALL DEBUG_CALL('ECCO_COST_INIT_FIXED',myThid)
355	# endif
356	CALL ECCO_COST_INIT_FIXED( myThid )
357	#endif
358
359	#ifdef ALLOW_PROFILES
360	IF (usePROFILES) THEN
361	# ifdef ALLOW_DEBUG
362	IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
363	# endif
364	CALL PROFILES_INIT_FIXED( myThid )
365	ENDIF
366	#endif
367
368	#ifdef ALLOW_AUTODIFF
369	C-- Initialise the control variables
370	# ifdef ALLOW_DEBUG
371	IF (debugMode) CALL DEBUG_CALL('CTRL_INIT',myThid)
372	# endif
373	CALL CTRL_INIT( myThid )
374	#endif
375
376	#ifdef ALLOW_ADMTLM
377	C-- Initialise ADMTLM
378	# ifdef ALLOW_DEBUG
379	IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid)
380	# endif
381	CALL CTRL_ADMTLM( myThid )
382	#endif
383
384	#ifdef ALLOW_FLT
385	C-- Initialise fixed array for Float pkg
386	IF ( useFLT ) THEN
387	# ifdef ALLOW_DEBUG
388	IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid)
389	# endif
390	CALL FLT_INIT_FIXED( myThid )
391	ENDIF
392	#endif
393
394	#ifdef ALLOW_LONGSTEP
395	IF (usePTRACERS) THEN
396	# ifdef ALLOW_DEBUG
397	IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid)
398	# endif
399	CALL LONGSTEP_INIT_FIXED(myThid)
400	ENDIF
401	#endif
402
403	#ifdef ALLOW_PTRACERS
404	IF (usePTRACERS) THEN
405	# ifdef ALLOW_DEBUG
406	IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid)
407	# endif
408	CALL PTRACERS_INIT_FIXED(myThid)
409	ENDIF
410	#endif
411
412	#ifdef ALLOW_GCHEM
413	IF (useGCHEM) THEN
414	# ifdef ALLOW_DEBUG
415	IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid)
416	# endif
417	CALL GCHEM_INIT_FIXED(myThid)
418	ENDIF
419	#endif
420
421	#ifdef ALLOW_RBCS
422	IF (useRBCS) THEN
423	# ifdef ALLOW_DEBUG
424	IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid)
425	# endif
426	CALL RBCS_INIT_FIXED(myThid)
427	ENDIF
428	#endif
429
430	#ifdef ALLOW_FRAZIL
431	IF (useFRAZIL) THEN
432	# ifdef ALLOW_DEBUG
433	IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
434	# endif
435	CALL FRAZIL_INIT_FIXED(myThid)
436	ENDIF
437	#endif
438
439	#ifdef ALLOW_SEAICE
440	IF (useSEAICE) THEN
441	# ifdef ALLOW_DEBUG
442	IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
443	# endif
444	CALL SEAICE_INIT_FIXED(myThid)
445	ENDIF
446	#endif
447
448	#ifdef ALLOW_SALT_PLUME
449	IF (useSALT_PLUME) THEN
450	# ifdef ALLOW_DEBUG
451	IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
452	# endif
453	CALL SALT_PLUME_INIT_FIXED(myThid)
454	ENDIF
455	#endif
456
457	#ifdef ALLOW_SHELFICE
458	IF (useShelfIce) THEN
459	# ifdef ALLOW_DEBUG
460	IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid)
461	# endif
462	CALL SHELFICE_INIT_FIXED( myThid )
463	ENDIF
464	#endif /* ALLOW_SHELFICE */
465
466	#ifdef ALLOW_STREAMICE
467	IF (useStreamIce) THEN
468	# ifdef ALLOW_DEBUG
469	IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
470	# endif
471	CALL STREAMICE_INIT_FIXED( myThid )
472	ENDIF
473	#endif /* ALLOW_STREAMICE */
474
475	#ifdef ALLOW_ICEFRONT
476	IF (useICEFRONT) THEN
477	# ifdef ALLOW_DEBUG
478	IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid)
479	# endif
480	CALL ICEFRONT_INIT_FIXED( myThid )
481	ENDIF
482	#endif /* ALLOW_ICEFRONT */
483
484	#ifdef ALLOW_THSICE
485	IF (useThSIce) THEN
486	# ifdef ALLOW_DEBUG
487	IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
488	# endif
489	CALL THSICE_INIT_FIXED(myThid)
490	ENDIF
491	#endif
492
493	#ifdef ALLOW_LAND
494	C-- Initialise & Read Land package parameters
495	IF (useLand) THEN
496	# ifdef ALLOW_DEBUG
497	IF (debugMode) CALL DEBUG_CALL('LAND_INITIALISE',myThid)
498	# endif
499	CALL LAND_INITIALISE( myThid )
500	ENDIF
501	#endif
502
503	#ifdef ALLOW_ATM2D
504	IF ( useAtm2d ) THEN
505	# ifdef ALLOW_DEBUG
506	IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
507	# endif
508	CALL ATM2D_INIT_FIXED( myThid )
509	ENDIF
510	#endif
511
512	#ifdef ALLOW_AIM
513	C-- Initialise & Read AIM physical parameters
514	IF (useAIM) THEN
515	# ifdef ALLOW_DEBUG
516	IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
517	# endif
518	CALL AIM_INITIALISE( myThid )
519	ENDIF
520	#endif
521
522	#ifdef ALLOW_ATM_PHYS
523	C-- Initialise Atm_Phys pkg
524	IF ( useAtm_Phys ) THEN
525	# ifdef ALLOW_DEBUG
526	IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_FIXED',myThid)
527	# endif
528	CALL ATM_PHYS_INIT_FIXED( myThid )
529	ENDIF
530	#endif /* ALLOW_ATM_PHYS */
531
532	#ifdef ALLOW_FIZHI
533	C-- Initialise & Read FIZHI physical parameters
534	IF (useFIZHI) THEN
535	# ifdef ALLOW_DEBUG
536	IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
537	# endif
538	CALL FIZHI_INIT_FIXED( myThid )
539	ENDIF
540	#endif
541
542	#ifdef ALLOW_GRIDALT
543	C-- Initialise GRIDALT parameters - the alternative grid
544	IF (useGRIDALT) then
545	# ifdef ALLOW_DEBUG
546	IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
547	# endif
548	CALL GRIDALT_INITIALISE( myThid )
549	ENDIF
550	#endif
551
552	#ifdef ALLOW_TIMEAVE
553	C IF (useTIMEAVE) THEN
554	IF ( taveFreq.GT.0. ) THEN
555	# ifdef ALLOW_DEBUG
556	IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
557	# endif
558	CALL TIMEAVE_INIT_FIXED( myThid )
559	ENDIF
560	#endif
561
562	#ifdef ALLOW_REGRID
563	IF ( useREGRID ) THEN
564	# ifdef ALLOW_DEBUG
565	IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid)
566	# endif
567	CALL REGRID_INIT_FIXED( myThid )
568	ENDIF
569	#endif
570
571	#ifdef ALLOW_LAYERS
572	IF ( useLayers ) THEN
573	# ifdef ALLOW_DEBUG
574	IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid)
575	# endif
576	CALL LAYERS_INIT_FIXED( myThid )
577	ENDIF
578	#endif /* ALLOW_LAYERS */
579
580	#ifdef COMPONENT_MODULE
581	IF ( useCoupler ) THEN
582	# ifdef ALLOW_DEBUG
583	IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid)
584	# endif
585	CALL CPL_INIT_FIXED( myThid )
586	ENDIF
587	#endif
588
589	#ifdef ALLOW_OASIS
590	C-- needs to be called after the OASIS_INIT
591	IF (useOASIS) THEN
592	# ifdef ALLOW_DEBUG
593	IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
594	# endif
595	CALL OASIS_INIT_FIXED(myThid)
596	ENDIF
597	#endif
598
599	#ifdef ALLOW_EMBED_FILES
600	IF ( useEMBED_FILES ) THEN
601	# ifdef ALLOW_DEBUG
602	IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
603	# endif
604	CALL EMBED_FILES_INIT( myThid )
605	ENDIF
606	#endif
607
608	#ifdef ALLOW_MYPACKAGE
609	IF (useMYPACKAGE) THEN
610	# ifdef ALLOW_DEBUG
611	IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid)
612	# endif
613	CALL MYPACKAGE_INIT_FIXED(myThid)
614	ENDIF
615	#endif
616
617	#ifdef ALLOW_DIAGNOSTICS
618	C- needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
619	IF ( useDiagnostics ) THEN
620	# ifdef ALLOW_DEBUG
621	IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid)
622	# endif
623	CALL DIAGNOSTICS_INIT_FIXED( myThid )
624	ENDIF
625	#endif
626
627	#ifdef ALLOW_ASYNCIO
628	CALL ASYNCIO_DRIVER_CONFIG( myThid )
629	#endif
630
631	#ifdef ALLOW_DEBUG
632	IF (debugMode) CALL DEBUG_LEAVE('PACKAGES_INIT_FIXED',myThid)
633	#endif
634
635	RETURN
636	END