/[MITgcm]/MITgcm/pkg/cost/cost_final.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_final.F

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

revision 1.12 by heimbach, Thu Feb 10 01:04:33 2005 UTC revision 1.13 by heimbach, Thu Aug 25 16:10:42 2005 UTC
# Line 49  c     == end of interface == Line 49  c     == end of interface ==
49        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
50        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
51    
52    #ifdef ALLOW_SEAICE
53          CALL SEAICE_COST_FINAL (myThid)
54    #endif
55    
56  #if (defined (ALLOW_ECCO))  #if (defined (ALLOW_ECCO))
57        CALL ECCO_COST_FINAL (myThid)        CALL ECCO_COST_FINAL (myThid)
58    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22