model/src/packages_init_fixed.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_fixed.F,v 1.2 2001/02/02 21:04:48 adcroft Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

      SUBROUTINE PACKAGES_INIT_FIXED( myThid )
C     /==========================================================\
C     | SUBROUTINE PACKAGES_INIT_FIXED                           |
C     | o Does initialisation of package-related fixed fields    |
C     |==========================================================|
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER 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

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_fixed.F,v 1.2 2001/02/02 21:04:48 adcroft Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	SUBROUTINE PACKAGES_INIT_FIXED( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE PACKAGES_INIT_FIXED \|
9	C \| o Does initialisation of package-related fixed fields \|
10	C \|==========================================================\|
11	C \==========================================================/
12	IMPLICIT NONE
13
14	C === Global variables ===
15	#include "SIZE.h"
16	#include "EEPARAMS.h"
17	#include "PARAMS.h"
18
19	C === Routine arguments ===
20	C myThid - Number of this instances
21	INTEGER myThid
22
23	C-- Initialize fixed arrays for OBCS
24	#ifdef ALLOW_OBCS
25	IF (useOBCS) THEN
26	CALL OBCS_INIT_FIXED( myThid )
27	ENDIF
28	#endif
29	#ifdef ALLOW_FLT
30	C-- Initialise Float positions
31	IF (useFLT) then
32	CALL FLT_INIT(nIter0,startTime,myThid )
33	_BARRIER
34	ENDIF
35	#endif
36
37	RETURN
38	END