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	dimitri	1.2	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	dimitri	1.1	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	dimitri	1.2	C \|-- OBCS_INIT_FIXED
36	dimitri	1.1	C \|
37	dimitri	1.2	C \|-- SHAP_FILT_INIT_FIZED
38	dimitri	1.1	C \|
39	dimitri	1.2	C \|-- ZONAL_FILT_INIT
40	dimitri	1.1	C \|
41	dimitri	1.2	C \|-- EXF_INIT_FIXED
42	dimitri	1.1	C \|
43	dimitri	1.2	C \|-- CHEAPAML_INIT_FIXED
44	dimitri	1.1	C \|
45	dimitri	1.2	C \|-- OPPS_INIT
46	dimitri	1.1	C \|
47			C \|-- PP81_INIT_FIXED
48			C \|
49			C \|-- MY82_INIT_FIXED
50			C \|
51			C \|-- GGL90_INIT_FIXED
52			C \|
53	dimitri	1.2	C \|-- KPP_INIT_FIXED
54	dimitri	1.1	C \|
55	dimitri	1.2	C \|-- GMREDI_INIT_FIXED
56	dimitri	1.1	C \|
57	dimitri	1.2	C \|-- BBL_INIT_FIXED
58	dimitri	1.1	C \|
59	dimitri	1.2	C \|-- DWNSLP_INIT_FIXED
60	dimitri	1.1	C \|
61	dimitri	1.2	C \|-- SEAICE_COST_INIT_FIXED
62	dimitri	1.1	C \|
63	dimitri	1.2	C \|-- SMOOTH_INIT_FIXED
64	dimitri	1.1	C \|
65			C \|-- ECCO_COST_INIT_FIXED
66			C \|
67			C \|-- PROFILES_INIT_FIXED
68			C \|
69			C \|-- CTRL_INIT
70	dimitri	1.2	C \|-- CTRL_ADMTLM
71	dimitri	1.1	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	dimitri	1.2	C \|-- RBCS_INIT_FIXED
81			C \|
82	dimitri	1.1	C \|-- FRAZIL_INIT_FIXED
83			C \|
84	dimitri	1.2	C \|-- SEAICE_INIT_FIXED
85	dimitri	1.1	C \|
86	dimitri	1.2	C \|-- SALT_PLUME_INIT_FIXED
87	dimitri	1.1	C \|
88			C \|-- SHELFICE_INIT_FIXED
89			C \|
90	dimitri	1.2	C \|-- STREAMICE_INIT_FIXED
91			C \|
92	dimitri	1.1	C \|-- ICEFRONT_INIT_FIXED
93			C \|
94	dimitri	1.2	C \|-- THSICE_INIT_FIXED
95			C \|
96			C \|-- LAND_INITIALISE
97	dimitri	1.1	C \|
98			C \|-- ATM2D_INIT_FIXED
99			C \|
100	dimitri	1.2	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	dimitri	1.1	C \|-- REGRID_INIT_FIXED
111			C \|
112			C \|-- LAYERS_INIT_FIXED
113			C \|
114	dimitri	1.2	C \|-- CPL_INIT_FIXED
115			C \|
116			C \|-- OASIS_INIT_FIXED
117			C \|
118			C \|-- EMBED_FILES_INIT
119	dimitri	1.1	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	dimitri	1.2	C-- Initialize fixed arrays for OBCS
203			#ifdef ALLOW_OBCS
204			IF (useOBCS) THEN
205	dimitri	1.1	# ifdef ALLOW_DEBUG
206	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
207	dimitri	1.1	# endif
208	dimitri	1.2	CALL OBCS_INIT_FIXED( myThid )
209	dimitri	1.1	ENDIF
210			#endif
211
212	dimitri	1.2	#ifdef ALLOW_SHAP_FILT
213			C-- Shapiro filter initialisation
214			IF (useSHAP_FILT) THEN
215	dimitri	1.1	# ifdef ALLOW_DEBUG
216	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
217	dimitri	1.1	# endif
218	dimitri	1.2	CALL SHAP_FILT_INIT_FIXED( myThid )
219	dimitri	1.1	ENDIF
220			#endif
221
222	dimitri	1.2	#ifdef ALLOW_ZONAL_FILT
223			C-- Latitude circle filter initialisation
224			IF (useZONAL_FILT) THEN
225	dimitri	1.1	# ifdef ALLOW_DEBUG
226	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
227	dimitri	1.1	# endif
228	dimitri	1.2	CALL ZONAL_FILT_INIT(myThid)
229	dimitri	1.1	ENDIF
230			#endif
231
232	dimitri	1.2	#ifdef ALLOW_EXF
233			C-- Initialize fixed arrays for EXF
234			IF ( useEXF ) THEN
235	dimitri	1.1	# ifdef ALLOW_DEBUG
236	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
237	dimitri	1.1	# endif
238	dimitri	1.2	CALL EXF_INIT_FIXED( myThid )
239	dimitri	1.1	ENDIF
240			#endif
241
242	dimitri	1.2	#ifdef ALLOW_CHEAPAML
243			IF ( useCheapAML ) THEN
244	dimitri	1.1	# ifdef ALLOW_DEBUG
245	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
246	dimitri	1.1	# endif
247	dimitri	1.2	CALL CHEAPAML_INIT_FIXED( myThid )
248	dimitri	1.1	ENDIF
249			#endif
250
251	dimitri	1.2	#ifdef ALLOW_OPPS
252			IF (useOPPS) THEN
253	dimitri	1.1	# ifdef ALLOW_DEBUG
254	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
255	dimitri	1.1	# endif
256	dimitri	1.2	CALL OPPS_INIT( myThid )
257	dimitri	1.1	ENDIF
258	dimitri	1.2	#endif /* ALLOW_OPPS */
259	dimitri	1.1
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	dimitri	1.2	#ifdef ALLOW_KPP
291			C-- Initialize fixed arrays for KPP
292			IF ( useKPP ) THEN
293	dimitri	1.1	# ifdef ALLOW_DEBUG
294	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
295	dimitri	1.1	# endif
296	dimitri	1.2	CALL KPP_INIT_FIXED( myThid )
297	dimitri	1.1	ENDIF
298			#endif
299
300	dimitri	1.2	#ifdef ALLOW_GMREDI
301			C-- Initialize fixed arrays for GM-Redi
302			IF ( useGMRedi ) THEN
303	dimitri	1.1	# ifdef ALLOW_DEBUG
304	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
305	dimitri	1.1	# endif
306	dimitri	1.2	CALL GMREDI_INIT_FIXED( myThid )
307	dimitri	1.1	ENDIF
308			#endif
309
310	dimitri	1.2	#ifdef ALLOW_BBL
311			C-- Initialize fixed arrays for BBL pkg
312			IF ( useBBL ) THEN
313	dimitri	1.1	# ifdef ALLOW_DEBUG
314	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
315	dimitri	1.1	# endif
316	dimitri	1.2	CALL BBL_INIT_FIXED( myThid )
317	dimitri	1.1	ENDIF
318			#endif
319
320	dimitri	1.2	#ifdef ALLOW_DOWN_SLOPE
321			C-- Initialize fixed arrays for Down-Slope pkg
322			IF ( useDOWN_SLOPE ) THEN
323	dimitri	1.1	# ifdef ALLOW_DEBUG
324	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
325	dimitri	1.1	# endif
326	dimitri	1.2	CALL DWNSLP_INIT_FIXED( myThid )
327	dimitri	1.1	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	dimitri	1.2	#ifdef ALLOW_SEAICE
440			IF (useSEAICE) THEN
441	dimitri	1.1	# ifdef ALLOW_DEBUG
442	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
443	dimitri	1.1	# endif
444	dimitri	1.2	CALL SEAICE_INIT_FIXED(myThid)
445	dimitri	1.1	ENDIF
446			#endif
447
448	dimitri	1.2	#ifdef ALLOW_SALT_PLUME
449			IF (useSALT_PLUME) THEN
450	dimitri	1.1	# ifdef ALLOW_DEBUG
451	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
452	dimitri	1.1	# endif
453	dimitri	1.2	CALL SALT_PLUME_INIT_FIXED(myThid)
454	dimitri	1.1	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	dimitri	1.2	#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	dimitri	1.1	#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	dimitri	1.2	#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	dimitri	1.1	# ifdef ALLOW_DEBUG
546	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
547	dimitri	1.1	# endif
548	dimitri	1.2	CALL GRIDALT_INITIALISE( myThid )
549	dimitri	1.1	ENDIF
550	dimitri	1.2	#endif
551	dimitri	1.1
552	dimitri	1.2	#ifdef ALLOW_TIMEAVE
553			C IF (useTIMEAVE) THEN
554			IF ( taveFreq.GT.0. ) THEN
555	dimitri	1.1	# ifdef ALLOW_DEBUG
556	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
557	dimitri	1.1	# endif
558	dimitri	1.2	CALL TIMEAVE_INIT_FIXED( myThid )
559	dimitri	1.1	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	dimitri	1.2	#ifdef ALLOW_OASIS
590			C-- needs to be called after the OASIS_INIT
591			IF (useOASIS) THEN
592	dimitri	1.1	# ifdef ALLOW_DEBUG
593	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
594	dimitri	1.1	# endif
595	dimitri	1.2	CALL OASIS_INIT_FIXED(myThid)
596	dimitri	1.1	ENDIF
597			#endif
598
599	dimitri	1.2	#ifdef ALLOW_EMBED_FILES
600			IF ( useEMBED_FILES ) THEN
601	dimitri	1.1	# ifdef ALLOW_DEBUG
602	dimitri	1.2	IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
603	dimitri	1.1	# endif
604	dimitri	1.2	CALL EMBED_FILES_INIT( myThid )
605	dimitri	1.1	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