/[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.5 by jmc, Thu Sep 23 01:28:31 2004 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  #ifdef ALLOW_OBCS_PRESCRIBE  #ifndef ALLOW_OBCS_PRESCRIBE
 # ifndef ALLOW_EXF  
         WRITE(msgBuf,'(A)')  
      &  'OBCS_CHECK: ERROR: ALLOW_OBCS_PRESCRIBE'  
         CALL PRINT_ERROR( msgBuf , 1)  
         WRITE(msgBuf,'(A)')  
      &  'OBCS_CHECK: needs to ALLOW_EXF, ALLOW_CAL'  
         STOP 'ABNORMAL END: S/R OBCS_CHECK'  
 # endif  
 #else  
65          IF (useOBCSprescribe) THEN          IF (useOBCSprescribe) THEN
66           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
67       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22