pkg/sbo/sbo_check.F

6060ec2938 Dimi*0001 #include "SBO_OPTIONS.h"
                0002
                0003       SUBROUTINE SBO_CHECK( myThid )
85d26bffb0 Jean*0004 C     *==========================================================*
6060ec2938 Dimi*0005 C     | SUBROUTINE SBO_CHECK                                     |
                0006 C     | o Validate basic package setup and inter-package         |
                0007 C     | dependencies.                                            |
85d26bffb0 Jean*0008 C     *==========================================================*
6060ec2938 Dimi*0009
85d26bffb0 Jean*0010       IMPLICIT NONE
6060ec2938 Dimi*0011 C     === Global variables ===
                0012 #include "SIZE.h"
                0013 #include "EEPARAMS.h"
                0014 #include "PARAMS.h"
                0015
                0016 C     === Routine arguments ===
85d26bffb0 Jean*0017 C     myThid   :: my Thread Id number
6060ec2938 Dimi*0018       INTEGER myThid
                0019
                0020 #ifdef ALLOW_SBO
                0021
                0022 C     === Local variables ===
85d26bffb0 Jean*0023 C     msgBuf   :: Informational/error message buffer
6060ec2938 Dimi*0024       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0025
55a4640a63 Jean*0026       _BEGIN_MASTER(myThid)
                0027
6060ec2938 Dimi*0028       WRITE(msgBuf,'(A)') 'SBO_CHECK: #define ALLOW_SBO'
                0029       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
85d26bffb0 Jean*0030      &                    SQUEEZE_RIGHT, myThid )
6060ec2938 Dimi*0031
                0032 C     SBO assumes spherical polar coordinates
85d26bffb0 Jean*0033       IF ( usingCartesianGrid ) THEN
                0034         WRITE(msgBuf,'(A)') 'SBO not implemented for Cartesian Grid'
                0035         CALL PRINT_ERROR( msgBuf, myThid )
                0036         STOP 'ABNORMAL END: S/R SBO_CHECK'
                0037       ENDIF
                0038       IF ( usingCylindricalGrid ) THEN
                0039         WRITE(msgBuf,'(A)') 'SBO not implemented for Cylindrical Grid'
                0040         CALL PRINT_ERROR( msgBuf, myThid )
                0041         STOP 'ABNORMAL END: S/R SBO_CHECK'
6060ec2938 Dimi*0042       ENDIF
                0043
55a4640a63 Jean*0044       _END_MASTER(myThid)
                0045
f6bfe3bad8 Alis*0046 #endif /* ALLOW_SBO */
6060ec2938 Dimi*0047
85d26bffb0 Jean*0048       RETURN
                0049       END