/[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.4 by heimbach, Wed Sep 22 21:31:35 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
65    # ifndef ALLOW_EXF
66            WRITE(msgBuf,'(A)')
67         &  'OBCS_CHECK: ERROR: ALLOW_OBCS_PRESCRIBE'
68            CALL PRINT_ERROR( msgBuf , 1)
69            WRITE(msgBuf,'(A)')
70         &  'OBCS_CHECK: needs to ALLOW_EXF, ALLOW_CAL'
71            STOP 'ABNORMAL END: S/R OBCS_CHECK'
72    # endif
73    #else
74            IF (useOBCSprescribe) THEN
75             WRITE(msgBuf,'(A)')
76         &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
77             CALL PRINT_ERROR( msgBuf , 1)
78             WRITE(msgBuf,'(A)')
79         &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE
80             STOP 'ABNORMAL END: S/R OBCS_CHECK'
81            ENDIF
82    #endif
83    
84        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
85        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
86       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22