/[MITgcm]/MITgcm/pkg/ecco/ecco_check.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Tue Oct 9 00:02:51 2007 UTC revision 1.5 by heimbach, Fri Mar 13 01:58:37 2009 UTC
# Line 40  C     msgBuf      - Informational/error Line 40  C     msgBuf      - Informational/error
40    
41        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
42    
 #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION  
43        IF ( ndaysrec .GT. maxNumDays ) THEN        IF ( ndaysrec .GT. maxNumDays ) THEN
44         WRITE(msgBuf,'(2A,2I)')         WRITE(msgBuf,'(2A,2I)')
45       &        'ECCO_CHECK: for ALLOW_TRANSPORT_COST_CONTRIBUTION: ',       &        'ECCO_CHECK: for ALLOW_TRANSPORT_COST_CONTRIBUTION: ',
# Line 51  C     msgBuf      - Informational/error Line 50  C     msgBuf      - Informational/error
50         CALL PRINT_ERROR( msgBuf , myThid )         CALL PRINT_ERROR( msgBuf , myThid )
51         STOP 'ABNORMAL END: S/R ECCO_CHECK'         STOP 'ABNORMAL END: S/R ECCO_CHECK'
52        ENDIF        ENDIF
 #endif  
53    
54        _END_MASTER(myThid)        _END_MASTER(myThid)
55    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22