--- MITgcm/model/src/packages_init_fixed.F	2003/06/12 18:21:34	1.7
+++ MITgcm/model/src/packages_init_fixed.F	2004/03/19 03:28:36	1.21
@@ -1,6 +1,7 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/packages_init_fixed.F,v 1.7 2003/06/12 18:21:34 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/packages_init_fixed.F,v 1.21 2004/03/19 03:28:36 edhill Exp $
 C $Name:  $
 
+#include "PACKAGES_CONFIG.h"
 #include "CPP_OPTIONS.h"
 
 CBOP
@@ -18,6 +19,8 @@
 C     !CALLING SEQUENCE:
 C     PACKAGES_INIT_FIXED
 C       |
+C       |-- MNC_INIT
+C       |
 C       |-- GAD_INIT
 C       |
 C       |-- OBCS_INIT_FIXED
@@ -43,6 +46,15 @@
       INTEGER myThid
 CEOP
 
+C--   Initialize MNC look-up tables
+#ifdef ALLOW_MNC
+CEH3 NEED RUN-TIME SWITCH:  IF (useMNC) THEN
+      CALL MNC_INIT(myThid)
+      CALL MNC_CW_INIT(sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr, myThid)
+      CALL INI_MNC_IO(myThid)
+CEH3 NEED RUN-TIME SWITCH:  ENDIF
+#endif
+
 C--   Initialize fixed params for GAD
       CALL GAD_INIT( myThid )
 
@@ -72,10 +84,51 @@
       IF (useAIM) CALL AIM_INITIALISE( myThid )
 #endif
 
+C AMM
+#ifdef ALLOW_GRIDALT
+C--   Initialise GRIDALT parameters - the alternative grid
+      IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )
+#endif
+
+#ifdef ALLOW_FIZHI
+C--   Initialise & Read FIZHI physical parameters
+      IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
+#endif
+C AMM
+
 #ifdef ALLOW_LAND
 C--   Initialise & Read Land package parameters
       IF (useLand) CALL LAND_INITIALISE( myThid )
 #endif
 
+#if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
+C--   Initialise ecco-specific cost function.
+C--   This needs to preceed the call ctrl_init
+C--   in order to provide the weight files
+      IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
+#endif
+
+#ifdef ALLOW_AUTODIFF
+C--   Initialise the control variables
+      CALL CTRL_INIT( myThid )
+      _BARRIER
+#endif
+
+#ifdef ALLOW_PTRACERS
+#ifdef ALLOW_GCHEM
+      IF (usePTRACERS) then
+       call GCHEM_INIT_FIXED(mythid)
+      ENDIF
+#endif
+#endif
+
+CAMM
+#ifdef ALLOW_DIAGNOSTICS
+      IF (usediagnostics) then
+       call diagnostics_initialise(mythid)
+      ENDIF
+#endif
+CAMM
+
       RETURN
       END