/[MITgcm]/MITgcm/pkg/obcs/obcs_check.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by adcroft, Tue Jan 30 21:03:00 2001 UTC revision 1.2 by adcroft, Fri Feb 2 21:36:30 2001 UTC
# Line 0  Line 1 
1    C $Header$
2    C $Name$
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22