C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/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

      RETURN
      END