/[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.11 by heimbach, Fri May 30 19:58:17 2008 UTC revision 1.12 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 125  c--     Read time averages and the month Line 125  c--     Read time averages and the month
125            enddo            enddo
126          enddo          enddo
127    
128         _GLOBAL_SUM_R8( sumtot , myThid )         _GLOBAL_SUM_RL( sumtot , myThid )
129         _GLOBAL_SUM_R8( fctiletot , myThid )         _GLOBAL_SUM_RL( fctiletot , myThid )
130    
131         if (sumtot.eq.0.) sumtot = 1.         if (sumtot.eq.0.) sumtot = 1.
132    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22