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

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

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

revision 1.3 by gforget, Sat Feb 2 02:34:14 2008 UTC revision 1.4 by gforget, Fri May 30 02:49:04 2008 UTC
# Line 41  c     == end of interface == Line 41  c     == end of interface ==
41    
42    
43  c--   Eddy stress penalty term  c--   Eddy stress penalty term
44  #if (defined (ALLOW_TAUEDDY_COST_CONTRIBUTION) || defined (ALLOW_COST_TAU_EDDY))  #ifdef ALLOW_EDDYPSI_COST_CONTRIBUTION
45        call timer_start('cost_tau_eddy      [ECCO SPIN-DOWN]', mythid)        call timer_start('cost_tau_eddy      [ECCO SPIN-DOWN]', mythid)
46        call cost_tau_eddy( myiter, mytime, mythid )        call cost_tau_eddy( myiter, mytime, mythid )
47        call timer_stop ('cost_tau_eddy      [ECCO SPIN-DOWN]', mythid)        call timer_stop ('cost_tau_eddy      [ECCO SPIN-DOWN]', mythid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22