pkg/obcs/obcs_check.F

C $Header: /u/gcmpack/models/MITgcmUV/pkg/obcs/Attic/obcs_check.F,v 1.1.2.1 2001/01/30 21:03:00 adcroft Exp $
C $Name: branch-atmos-merge-freeze $

#include "OBCS_OPTIONS.h"

      SUBROUTINE OBCS_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE OBCS_CHECK                                    |
C     | o Check dependances with other packages                  |
C     |==========================================================|
C     \==========================================================/
      IMPLICIT NONE

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

C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER myThid

#ifdef ALLOW_OBCS

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

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

#ifdef ALLOW_ORLANSKI
      WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI'
      CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
     &                   SQUEEZE_RIGHT,myThid)
#else
      IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
     &    useOrlanskiEast.OR.useOrlanskiWest) THEN
        WRITE(msgBuf,'(A)')
     &  'OBCS_CHECK: ERROR: #undef OBCS_RADIATE_ORLANSKI  and'
         CALL PRINT_ERROR( msgBuf , 1)
        WRITE(msgBuf,'(A)')
     &  'OBCS_CHECK: ERROR: one of useOrlanski* logicals is true'
         CALL PRINT_ERROR( msgBuf , 1)
         STOP 'ABNORMAL END: S/R OBCS_CHECK'
      ENDIF 
#endif /* ALLOW_ORLANSKI */

      WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
      CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
     &                   SQUEEZE_RIGHT,myThid)

#endif /* ALLOW_OBCS */
      return
      end
1	C $Header: /u/gcmpack/models/MITgcmUV/pkg/obcs/Attic/obcs_check.F,v 1.1.2.1 2001/01/30 21:03:00 adcroft Exp $
2	C $Name: branch-atmos-merge-freeze $
3
4	#include "OBCS_OPTIONS.h"
5
6	SUBROUTINE OBCS_CHECK( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE OBCS_CHECK \|
9	C \| o Check dependances with other packages \|
10	C \|==========================================================\|
11	C \==========================================================/
12	IMPLICIT NONE
13
14	C === Global variables ===
15	#include "SIZE.h"
16	#include "EEPARAMS.h"
17	#include "OBCS.h"
18
19	C === Routine arguments ===
20	C myThid - Number of this instances
21	INTEGER myThid
22
23	#ifdef ALLOW_OBCS
24
25	C === Local variables ===
26	C msgBuf - Informational/error meesage buffer
27	CHARACTER*(MAX_LEN_MBUF) msgBuf
28
29	WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS'
30	CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
31	& SQUEEZE_RIGHT,myThid)
32
33	#ifdef ALLOW_ORLANSKI
34	WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI'
35	CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
36	& SQUEEZE_RIGHT,myThid)
37	#else
38	IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
39	& useOrlanskiEast.OR.useOrlanskiWest) THEN
40	WRITE(msgBuf,'(A)')
41	& 'OBCS_CHECK: ERROR: #undef OBCS_RADIATE_ORLANSKI and'
42	CALL PRINT_ERROR( msgBuf , 1)
43	WRITE(msgBuf,'(A)')
44	& 'OBCS_CHECK: ERROR: one of useOrlanski* logicals is true'
45	CALL PRINT_ERROR( msgBuf , 1)
46	STOP 'ABNORMAL END: S/R OBCS_CHECK'
47	ENDIF
48	#endif /* ALLOW_ORLANSKI */
49
50	WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
51	CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
52	& SQUEEZE_RIGHT,myThid)
53
54	#endif /* ALLOW_OBCS */
55	return
56	end