/[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.5 by heimbach, Mon Aug 6 20:41:55 2012 UTC revision 1.6 by jmc, Fri Aug 10 19:45:26 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "COST_CPPOPTIONS.h"  #include "ECCO_OPTIONS.h"
5    
6    
7        subroutine cost_internal_params( myiter, mytime, mythid )        subroutine cost_internal_params( myiter, mytime, mythid )
# Line 61  c--   REDI coeffs penalty term Line 61  c--   REDI coeffs penalty term
61        call cost_kapredi( myiter, mytime, mythid )        call cost_kapredi( myiter, mytime, mythid )
62        call timer_stop ('cost_kapredi      [ECCO SPIN-DOWN]', mythid)        call timer_stop ('cost_kapredi      [ECCO SPIN-DOWN]', mythid)
63  #endif  #endif
64        _BARRIER        _BARRIER
65    
66  c--   DIFFKR coeffs penalty term  c--   DIFFKR coeffs penalty term
67  #ifdef ALLOW_DIFFKR_COST_CONTRIBUTION  #ifdef ALLOW_DIFFKR_COST_CONTRIBUTION
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22