model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.6 2003/02/11 03:03:46 jmc 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

      RETURN
      END
1	jmc	1.7	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.6 2003/02/11 03:03:46 jmc Exp $
2	adcroft	1.3	C $Name: $
3	adcroft	1.2
4			#include "CPP_OPTIONS.h"
5
6	cnh	1.4	CBOP
7			C !ROUTINE: PACKAGES_INIT_FIXED
8			C !INTERFACE:
9	adcroft	1.2	SUBROUTINE PACKAGES_INIT_FIXED( myThid )
10	cnh	1.4
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	jmc	1.5	C \|-- GAD_INIT
22			C \|
23	cnh	1.4	C \|-- OBCS_INIT_FIXED
24			C \|
25			C \|-- FLT_INIT
26	jmc	1.6	C \|
27			C \|-- ZONAL_FILT_INIT
28	jmc	1.7	C \|
29			C \|-- AIM_INITIALISE
30			C \|
31			C \|-- LAND_INITIALISE
32	cnh	1.4
33			C !USES:
34	adcroft	1.2	IMPLICIT NONE
35			C === Global variables ===
36			#include "SIZE.h"
37			#include "EEPARAMS.h"
38			#include "PARAMS.h"
39
40	cnh	1.4	C !INPUT/OUTPUT PARAMETERS:
41	adcroft	1.2	C === Routine arguments ===
42			C myThid - Number of this instances
43			INTEGER myThid
44	cnh	1.4	CEOP
45	jmc	1.5
46			C-- Initialize fixed params for GAD
47			CALL GAD_INIT( myThid )
48	adcroft	1.2
49			C-- Initialize fixed arrays for OBCS
50			#ifdef ALLOW_OBCS
51			IF (useOBCS) THEN
52			CALL OBCS_INIT_FIXED( myThid )
53	adcroft	1.3	ENDIF
54			#endif
55			#ifdef ALLOW_FLT
56			C-- Initialise Float positions
57	jmc	1.6	IF (useFLT) THEN
58	adcroft	1.3	CALL FLT_INIT(nIter0,startTime,myThid )
59	jmc	1.6	_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	adcroft	1.3	_BARRIER
67	adcroft	1.2	ENDIF
68	jmc	1.7	#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	adcroft	1.2	#endif
79
80			RETURN
81			END