model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.8 2003/06/19 15:00:45 heimbach Exp $
C $Name:  $

#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       |-- GAD_INIT
C       |
C       |-- OBCS_INIT_FIXED
C       |
C       |-- FLT_INIT
C       |
C       |-- ZONAL_FILT_INIT
C       |
C       |-- AIM_INITIALISE
C       |
C       |-- LAND_INITIALISE

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 -  Number of this instances
      INTEGER myThid
CEOP

C--   Initialize fixed params for GAD
      CALL GAD_INIT( myThid )

C--   Initialize fixed arrays for OBCS
#ifdef ALLOW_OBCS
      IF (useOBCS) THEN
       CALL OBCS_INIT_FIXED( myThid )
      ENDIF
#endif
#ifdef ALLOW_FLT
C--   Initialise Float positions
      IF (useFLT) THEN
       CALL FLT_INIT(nIter0,startTime,myThid )
      _BARRIER
      ENDIF
#endif
#ifdef ALLOW_ZONAL_FILT
C--   Latitude circle filter initialisation
      IF (useZONAL_FILT) THEN
       CALL ZONAL_FILT_INIT(myThid)
      _BARRIER
      ENDIF
#endif

#ifdef ALLOW_AIM
C--   Initialise & Read AIM physical parameters
      IF (useAIM) CALL AIM_INITIALISE( myThid )
#endif

#ifdef ALLOW_LAND
C--   Initialise & Read Land package parameters
      IF (useLand) CALL LAND_INITIALISE( myThid )
#endif

#if (defined (ALLOW_ADJOINT_RUN) || \
     defined (ALLOW_TANGENTLINEAR_RUN) || \
     defined (ALLOW_ECCO_OPTIMIZATION))
C--   Initialise the control variables
      CALL CTRL_INIT( myThid )
      _BARRIER
#endif

#ifdef INCLUDE_ECCO_PACKAGE
# ifdef ALLOW_COST
C--   Initialise ecco-specific cost function.
       IF (useECCO) CALL COST_INIT_FIXED( myThid )
# endif
#endif

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.8 2003/06/19 15:00:45 heimbach Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: PACKAGES_INIT_FIXED
8	C !INTERFACE:
9	SUBROUTINE PACKAGES_INIT_FIXED( myThid )
10
11	C !DESCRIPTION: \bv
12	C ==========================================================
13	C \| SUBROUTINE PACKAGES_INIT_FIXED
14	C \| o Does initialisation of package-related fixed fields
15	C ==========================================================
16	C \ev
17
18	C !CALLING SEQUENCE:
19	C PACKAGES_INIT_FIXED
20	C \|
21	C \|-- GAD_INIT
22	C \|
23	C \|-- OBCS_INIT_FIXED
24	C \|
25	C \|-- FLT_INIT
26	C \|
27	C \|-- ZONAL_FILT_INIT
28	C \|
29	C \|-- AIM_INITIALISE
30	C \|
31	C \|-- LAND_INITIALISE
32
33	C !USES:
34	IMPLICIT NONE
35	C === Global variables ===
36	#include "SIZE.h"
37	#include "EEPARAMS.h"
38	#include "PARAMS.h"
39
40	C !INPUT/OUTPUT PARAMETERS:
41	C === Routine arguments ===
42	C myThid - Number of this instances
43	INTEGER myThid
44	CEOP
45
46	C-- Initialize fixed params for GAD
47	CALL GAD_INIT( myThid )
48
49	C-- Initialize fixed arrays for OBCS
50	#ifdef ALLOW_OBCS
51	IF (useOBCS) THEN
52	CALL OBCS_INIT_FIXED( myThid )
53	ENDIF
54	#endif
55	#ifdef ALLOW_FLT
56	C-- Initialise Float positions
57	IF (useFLT) THEN
58	CALL FLT_INIT(nIter0,startTime,myThid )
59	_BARRIER
60	ENDIF
61	#endif
62	#ifdef ALLOW_ZONAL_FILT
63	C-- Latitude circle filter initialisation
64	IF (useZONAL_FILT) THEN
65	CALL ZONAL_FILT_INIT(myThid)
66	_BARRIER
67	ENDIF
68	#endif
69
70	#ifdef ALLOW_AIM
71	C-- Initialise & Read AIM physical parameters
72	IF (useAIM) CALL AIM_INITIALISE( myThid )
73	#endif
74
75	#ifdef ALLOW_LAND
76	C-- Initialise & Read Land package parameters
77	IF (useLand) CALL LAND_INITIALISE( myThid )
78	#endif
79
80	#if (defined (ALLOW_ADJOINT_RUN) \|\| \
81	defined (ALLOW_TANGENTLINEAR_RUN) \|\| \
82	defined (ALLOW_ECCO_OPTIMIZATION))
83	C-- Initialise the control variables
84	CALL CTRL_INIT( myThid )
85	_BARRIER
86	#endif
87
88	#ifdef INCLUDE_ECCO_PACKAGE
89	# ifdef ALLOW_COST
90	C-- Initialise ecco-specific cost function.
91	IF (useECCO) CALL COST_INIT_FIXED( myThid )
92	# endif
93	#endif
94
95	RETURN
96	END