/[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.5 by jmc, Fri Jan 24 18:26:53 2003 UTC revision 1.6 by jmc, Mon Jan 27 20:45:59 2003 UTC
# Line 174  C-  check parameter consistency : Line 174  C-  check parameter consistency :
174          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
175        ENDIF        ENDIF
176    
177  C- note : not implemented in Release1_beta1 but it's done now (since 01-30-02)        IF (select_rStar.NE.0 .AND. .NOT.exactConserv) THEN
178  c     IF (nonlinFreeSurf.NE.0 .AND. useOBCS ) THEN          WRITE(msgBuf,'(A)')
179  c       WRITE(msgBuf,'(A)')       &   'CONFIG_CHECK: r* Coordinate cannot be used'
180  c    &   'CONFIG_CHECK: nonlinFreeSurf not yet implemented'          CALL PRINT_ERROR( msgBuf , myThid)
181  c       CALL PRINT_ERROR( msgBuf , 1)          WRITE(msgBuf,'(A)')
182  c       WRITE(msgBuf,'(A)')       &   'CONFIG_CHECK: without exactConserv'
183  c    &   'CONFIG_CHECK: in OBC package'          CALL PRINT_ERROR( msgBuf , myThid)
184  c       CALL PRINT_ERROR( msgBuf , 1)          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
185  c       STOP 'ABNORMAL END: S/R CONFIG_CHECK'        ENDIF
186  c     ENDIF  
187    C- note : not yet implemented
188          IF (select_rStar.GT.0 .AND. useOBCS ) THEN
189            WRITE(msgBuf,'(A)')
190         &   'CONFIG_CHECK: r* Coordinate not yet implemented'
191            CALL PRINT_ERROR( msgBuf , 1)
192            WRITE(msgBuf,'(A)')
193         &   'CONFIG_CHECK: in OBC package'
194            CALL PRINT_ERROR( msgBuf , 1)
195            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
196          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.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22