/[MITgcm]/MITgcm/model/src/config_check.F
ViewVC logotype

Diff of /MITgcm/model/src/config_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by jmc, Mon Jan 27 20:45:59 2003 UTC revision 1.7 by jmc, Thu Jan 30 00:08:29 2003 UTC
# Line 184  C-  check parameter consistency : Line 184  C-  check parameter consistency :
184          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
185        ENDIF        ENDIF
186    
187  C- note : not yet implemented  C- note : not implemented in checkpoint48b but it's done now (since 01-28-03)
188        IF (select_rStar.GT.0 .AND. useOBCS ) THEN  c     IF (select_rStar.GT.0 .AND. useOBCS ) THEN
189          WRITE(msgBuf,'(A)')  c       WRITE(msgBuf,'(A)')
190       &   'CONFIG_CHECK: r* Coordinate not yet implemented'  c    &   'CONFIG_CHECK: r* Coordinate not yet implemented'
191          CALL PRINT_ERROR( msgBuf , 1)  c       CALL PRINT_ERROR( msgBuf , 1)
192          WRITE(msgBuf,'(A)')  c       WRITE(msgBuf,'(A)')
193       &   'CONFIG_CHECK: in OBC package'  c    &   'CONFIG_CHECK: in OBC package'
194          CALL PRINT_ERROR( msgBuf , 1)  c       CALL PRINT_ERROR( msgBuf , 1)
195          STOP 'ABNORMAL END: S/R CONFIG_CHECK'  c       STOP 'ABNORMAL END: S/R CONFIG_CHECK'
196        ENDIF  c     ENDIF
197    
198        IF (nonlinFreeSurf.NE.0 .AND. nonHydrostatic) THEN        IF (nonlinFreeSurf.NE.0 .AND. nonHydrostatic) THEN
199          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22