/[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.1 by jmc, Thu Jan 31 14:52:28 2002 UTC revision 1.2 by jmc, Thu Jan 31 15:02:18 2002 UTC
# Line 119  C-  check parameter consistency : Line 119  C-  check parameter consistency :
119        ENDIF        ENDIF
120    
121  C- note : not implemented in Release1_beta1 but it's done now (since 01-30-02)  C- note : not implemented in Release1_beta1 but it's done now (since 01-30-02)
122        IF (nonlinFreeSurf.NE.0 .AND. useOBCS ) THEN  c     IF (nonlinFreeSurf.NE.0 .AND. useOBCS ) THEN
123          WRITE(msgBuf,'(A)')  c       WRITE(msgBuf,'(A)')
124       &   'CONFIG_CHECK: nonlinFreeSurf not yet implemented'  c    &   'CONFIG_CHECK: nonlinFreeSurf not yet implemented'
125          CALL PRINT_ERROR( msgBuf , 1)  c       CALL PRINT_ERROR( msgBuf , 1)
126          WRITE(msgBuf,'(A)')  c       WRITE(msgBuf,'(A)')
127       &   'CONFIG_CHECK: in OBC package'  c    &   'CONFIG_CHECK: in OBC package'
128          CALL PRINT_ERROR( msgBuf , 1)  c       CALL PRINT_ERROR( msgBuf , 1)
129          STOP 'ABNORMAL END: S/R CONFIG_CHECK'  c       STOP 'ABNORMAL END: S/R CONFIG_CHECK'
130        ENDIF  c     ENDIF
131    
132        IF (nonlinFreeSurf.NE.0 .AND. nonHydrostatic) THEN        IF (nonlinFreeSurf.NE.0 .AND. nonHydrostatic) THEN
133          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22