/[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.6 by mlosch, Fri Sep 24 12:32:09 2004 UTC revision 1.7 by mlosch, Mon Oct 10 05:53:48 2005 UTC
# Line 59  C     msgBuf      - Informational/error Line 59  C     msgBuf      - Informational/error
59           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
60           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
61         ENDIF         ENDIF
62    #ifdef ALLOW_PTRACERS
63           IF (usePTracers) THEN
64            WRITE(msgBuf,'(A)')
65         &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
66             CALL PRINT_ERROR( msgBuf , 1)
67            WRITE(msgBuf,'(A)')
68         &  'OBCS_CHECK: ERROR: pTracers not yet implemented'
69             CALL PRINT_ERROR( msgBuf , 1)
70             STOP 'ABNORMAL END: S/R OBCS_CHECK'
71           ENDIF
72    #endif ALLOW_PTRACERS
73        ENDIF        ENDIF
74    
75  #ifndef ALLOW_OBCS_PRESCRIBE  #ifndef ALLOW_OBCS_PRESCRIBE
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22