/[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.8 by heimbach, Fri Oct 5 18:53:21 2007 UTC revision 1.9 by jmc, Tue Oct 9 00:02:50 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
5    
# Line 125  c--     Read time averages and the month Line 127  c--     Read time averages and the month
127    
128         _GLOBAL_SUM_R8( sumtot , myThid )         _GLOBAL_SUM_R8( sumtot , myThid )
129         _GLOBAL_SUM_R8( fctiletot , myThid )         _GLOBAL_SUM_R8( fctiletot , myThid )
130          
131         if (sumtot.eq.0.) sumtot = 1.         if (sumtot.eq.0.) sumtot = 1.
132    
133         if ( wmean_sflux .NE. 0. ) then         if ( wmean_sflux .NE. 0. ) then
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22