/[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.7 by mlosch, Mon Oct 10 05:53:48 2005 UTC revision 1.8 by jmc, Wed Oct 12 02:51:00 2005 UTC
# Line 79  C     msgBuf      - Informational/error Line 79  C     msgBuf      - Informational/error
79           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
80           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
81       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'
82             CALL PRINT_ERROR( msgBuf , 1)
83           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
84          ENDIF          ENDIF
85  #endif  #endif
# Line 88  C     msgBuf      - Informational/error Line 89  C     msgBuf      - Informational/error
89       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
90    
91  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
92        return        RETURN
93        end        END

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.22