C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/sannino/OASIS_3.0_Coupler/pkg/oasis_check.F,v 1.1 2006/07/20 21:08:16 sannino Exp $
C $Name:  $
#include "OASIS_OPTIONS.h"

      SUBROUTINE OASIS_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE OASIS_CHECK                                   |
C     | o Validate basic package setup and inter-package         |
C     | dependencies.                                            |
C     \==========================================================/
      IMPLICIT NONE

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

C     === Routine arguments ===
C     myThid -  Number of this instance of OASIS_INIT
      INTEGER myThid

#ifdef ALLOW_OASIS

C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      WRITE(msgBuf,'(A)') 'OASIS_CHECK: #define ALLOW_OASIS'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &     SQUEEZE_RIGHT , 1)

C     OASIS needs convection turned off (will be packaged later)
c      IF (cAdjFreq.NE.0.  .OR.
c     &     ivdc_kappa.NE.0.) THEN
c         WRITE(msgBuf,'(A)') 'Some form of convection has been enabled'
c         CALL PRINT_ERROR( msgBuf , 1)
c         STOP 'ABNORMAL END: S/R OASIS_CHECK'
c      ENDIF

#endif /* ALLOW_OASIS */

      return
      end