/[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.2 by adcroft, Fri Feb 2 21:36:30 2001 UTC revision 1.3 by jmc, Wed Jan 30 23:03:29 2002 UTC
# Line 14  C     \================================= Line 14  C     \=================================
14  C     === Global variables ===  C     === Global variables ===
15  #include "SIZE.h"  #include "SIZE.h"
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17    #include "PARAMS.h"
18  #include "OBCS.h"  #include "OBCS.h"
19    
20  C     === Routine arguments ===  C     === Routine arguments ===
# Line 47  C     msgBuf      - Informational/error Line 48  C     msgBuf      - Informational/error
48        ENDIF        ENDIF
49  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI */
50    
51          IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
52         &    useOrlanskiEast.OR.useOrlanskiWest) THEN
53           IF (nonlinFreeSurf.GT.0) THEN
54            WRITE(msgBuf,'(A)')
55         &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
56             CALL PRINT_ERROR( msgBuf , 1)
57            WRITE(msgBuf,'(A)')
58         &  'OBCS_CHECK: ERROR: nonlinFreeSurf not yet implemented'
59             CALL PRINT_ERROR( msgBuf , 1)
60             STOP 'ABNORMAL END: S/R OBCS_CHECK'
61           ENDIF
62          ENDIF
63    
64        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
65        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
66       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22