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

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

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

revision 1.5 by jmc, Tue Apr 28 18:13:28 2009 UTC revision 1.6 by gforget, Fri Sep 24 23:24:09 2010 UTC
# Line 56  c     == routine arguments == Line 56  c     == routine arguments ==
56        _RL     mytime        _RL     mytime
57        integer mythid        integer mythid
58    
59    #ifndef ALLOW_AUTODIFF_WHTAPEIO
60    
61  c     == local variables ==  c     == local variables ==
62    
63        integer bi,bj        integer bi,bj
# Line 359  c--     Print cost function for all tile Line 361  c--     Print cost function for all tile
361       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
362  #endif  #endif
363    
364    #endif /* ALLOW_AUTODIFF_WHTAPEIO */
365    
366  #endif  #endif
367    
368        return        return

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22