/[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.3 by jmc, Wed Jan 30 23:03:29 2002 UTC revision 1.6 by mlosch, Fri Sep 24 12:32:09 2004 UTC
# Line 61  C     msgBuf      - Informational/error Line 61  C     msgBuf      - Informational/error
61         ENDIF         ENDIF
62        ENDIF        ENDIF
63    
64    #ifndef ALLOW_OBCS_PRESCRIBE
65            IF (useOBCSprescribe) THEN
66             WRITE(msgBuf,'(A)')
67         &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
68             CALL PRINT_ERROR( msgBuf , 1)
69             WRITE(msgBuf,'(A)')
70         &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'
71             STOP 'ABNORMAL END: S/R OBCS_CHECK'
72            ENDIF
73    #endif
74    
75        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
76        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
77       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22