/[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.33 by jmc, Thu Feb 23 16:46:47 2006 UTC revision 1.34 by jmc, Tue Mar 7 15:28:02 2006 UTC
# Line 468  C- jmc: but ultimately, this block can/w Line 468  C- jmc: but ultimately, this block can/w
468          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
469        ENDIF        ENDIF
470    
471        IF ( useOldFreezing .AND. allowFreezing ) THEN        IF ( momForcingOutAB.NE.0 .AND. momForcingOutAB.NE.1 ) THEN
472          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=',
473       &   'CONFIG_CHECK: cannot set both: allowFreezing & useOldFreezing'       &                             momForcingOutAB, ' not allowed'
474            CALL PRINT_ERROR( msgBuf , myThid)
475            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momForcingOutAB ',
476         &                       'should be =1 (Out of AB) or =0 (In AB)'
477            CALL PRINT_ERROR( msgBuf , myThid)
478            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
479          ENDIF
480          IF ( tracForcingOutAB.NE.0 .AND. tracForcingOutAB.NE.1 ) THEN
481            WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: tracForcingOutAB=',
482         &                             tracForcingOutAB, ' not allowed'
483            CALL PRINT_ERROR( msgBuf , myThid)
484            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: tracForcingOutAB ',
485         &                       'should be =1 (Out of AB) or =0 (In AB)'
486          CALL PRINT_ERROR( msgBuf , myThid)          CALL PRINT_ERROR( msgBuf , myThid)
487          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
488        ENDIF        ENDIF
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22