/[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.11 by edhill, Tue Oct 28 22:57:59 2003 UTC revision 1.12 by jmc, Thu Nov 13 21:54:11 2003 UTC
# Line 324  C- jmc: but ultimately, this block can/w Line 324  C- jmc: but ultimately, this block can/w
324       &                    SQUEEZE_RIGHT , myThid)                             &                    SQUEEZE_RIGHT , myThid)                      
325        ENDIF        ENDIF
326    
327          IF ( useCDscheme .AND. useCubedSphereExchange ) THEN
328            WRITE(msgBuf,'(2A)')
329         &   'CONFIG_CHECK: CD-scheme not implemented on CubedSphere grid'
330            CALL PRINT_ERROR( msgBuf , myThid)
331            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
332          ENDIF
333    
334          IF ( useOldFreezing .AND. allowFreezing ) THEN
335            WRITE(msgBuf,'(2A)')
336         &   'CONFIG_CHECK: cannot set both: allowFreezing & useOldFreezing'
337            CALL PRINT_ERROR( msgBuf , myThid)
338            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
339          ENDIF
340    
341        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'
342        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
343       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22