pkg/sbo/sbo_check.F

C $Header: $
C $Name: $

#include "SBO_OPTIONS.h"

      SUBROUTINE SBO_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE SBO_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 SBO_CHECK
      INTEGER myThid

#ifdef ALLOW_SBO

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

      WRITE(msgBuf,'(A)') 'SBO_CHECK: #define ALLOW_SBO'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &     SQUEEZE_RIGHT , myThid )

C     SBO assumes spherical polar coordinates
      IF ( .NOT. usingSphericalPolarGrid ) THEN
         WRITE(msgBuf,'(A)') 'SBO requires usingSphericalPolarGrid'
         CALL PRINT_ERROR( msgBuf , 1)
         STOP 'ABNORMAL END: S/R SBO_CHECK'
      ENDIF

#endif ALLOW_SBO

      return
      end
1	C $Header: $
2	C $Name: $
3
4	#include "SBO_OPTIONS.h"
5
6	SUBROUTINE SBO_CHECK( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE SBO_CHECK \|
9	C \| o Validate basic package setup and inter-package \|
10	C \| dependencies. \|
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 instance of SBO_CHECK
21	INTEGER myThid
22
23	#ifdef ALLOW_SBO
24
25	C === Local variables ===
26	C msgBuf - Informational/error meesage buffer
27	CHARACTER*(MAX_LEN_MBUF) msgBuf
28
29	WRITE(msgBuf,'(A)') 'SBO_CHECK: #define ALLOW_SBO'
30	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
31	& SQUEEZE_RIGHT , myThid )
32
33	C SBO assumes spherical polar coordinates
34	IF ( .NOT. usingSphericalPolarGrid ) THEN
35	WRITE(msgBuf,'(A)') 'SBO requires usingSphericalPolarGrid'
36	CALL PRINT_ERROR( msgBuf , 1)
37	STOP 'ABNORMAL END: S/R SBO_CHECK'
38	ENDIF
39
40	#endif ALLOW_SBO
41
42	return
43	end