/[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.7 by heimbach, Thu Nov 6 22:03:49 2003 UTC revision 1.8 by heimbach, Fri Nov 14 23:07:30 2003 UTC
# Line 58  c     == end of interface == Line 58  c     == end of interface ==
58  #elif (defined (ALLOW_COST_STATE_FINAL))  #elif (defined (ALLOW_COST_STATE_FINAL))
59        CALL COST_STATE_FINAL (myThid)        CALL COST_STATE_FINAL (myThid)
60    
61  #else /* above stuff undef */  #endif /* above stuff undef */
62    
63    #ifndef ALLOW_ECCO
64    
65  # ifdef ALLOW_COST_TEST  # ifdef ALLOW_COST_TEST
66        CALL COST_TEST (myThid)        CALL COST_TEST (myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22