/[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.3 by heimbach, Thu Sep 20 18:23:33 2007 UTC revision 1.4 by jmc, Tue Oct 9 00:02:51 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 40  C     msgBuf      - Informational/error Line 42  C     msgBuf      - Informational/error
42    
43  #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION  #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION
44        IF ( ndaysrec .GT. maxNumDays ) THEN        IF ( ndaysrec .GT. maxNumDays ) THEN
45         WRITE(msgBuf,'(2A,2I)')         WRITE(msgBuf,'(2A,2I)')
46       &        'ECCO_CHECK: for ALLOW_TRANSPORT_COST_CONTRIBUTION: ',       &        'ECCO_CHECK: for ALLOW_TRANSPORT_COST_CONTRIBUTION: ',
47       &        'ndaysrec > maxNumDays in ecco_cost.h ',       &        'ndaysrec > maxNumDays in ecco_cost.h ',
48       &        ndaysrec, maxNumDays       &        ndaysrec, maxNumDays
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22