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

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

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

revision 1.7 by heimbach, Sun Dec 24 14:23:44 2006 UTC revision 1.8 by heimbach, Fri Oct 5 18:53:21 2007 UTC
# Line 130  c--     Read time averages and the month Line 130  c--     Read time averages and the month
130    
131         if ( wmean_sflux .NE. 0. ) then         if ( wmean_sflux .NE. 0. ) then
132            objf_sfluxmm = objf_sfluxmm            objf_sfluxmm = objf_sfluxmm
133       &        + (fctiletot/sumtot/wmean_sflux)**2       &        + ( (fctiletot/sumtot-1.D0)/wmean_sflux )**2
134         else         else
135            objf_sfluxmm = 0. _d 0            objf_sfluxmm = 0. _d 0
136         endif         endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22