/[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.37 by dimitri, Sat Jun 10 12:21:48 2006 UTC revision 1.38 by jmc, Mon Jun 12 22:29:23 2006 UTC
# Line 472  C- jmc: but ultimately, this block can/w Line 472  C- jmc: but ultimately, this block can/w
472          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
473        ENDIF        ENDIF
474    
       IF ( highOrderVorticity .AND. useCubedSphereExchange ) THEN  
         WRITE(msgBuf,'(2A)')  
      &   'CONFIG_CHECK WARNING: highOrderVorticity Scheme is not ',  
      &   'yet fully implemented on CubedSphere grid'  
         CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,  
      &                    SQUEEZE_RIGHT , myThid)  
       ENDIF  
   
475        IF ( momForcingOutAB.NE.0 .AND. momForcingOutAB.NE.1 ) THEN        IF ( momForcingOutAB.NE.0 .AND. momForcingOutAB.NE.1 ) THEN
476          WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=',          WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=',
477       &                             momForcingOutAB, ' not allowed'       &                             momForcingOutAB, ' not allowed'
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22