/[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.10 by heimbach, Tue Feb 5 12:49:10 2008 UTC revision 1.11 by heimbach, Fri May 30 19:58:17 2008 UTC
# Line 115  c--     Read time averages and the month Line 115  c--     Read time averages and the month
115                  tmpx=tmpfld2d(i,j,bi,bj)                  tmpx=tmpfld2d(i,j,bi,bj)
116                  if (maskC(i,j,kk,bi,bj) .ne. 0.) then                  if (maskC(i,j,kk,bi,bj) .ne. 0.) then
117                     fctiletot = fctiletot                     fctiletot = fctiletot
118       &                + tmpx*cos(yc(i,j,bi,bj)*deg2rad)       &                + tmpx*cos(yc(i,j,bi,bj)*deg2rad)/rhoConstFresh
119                     sumtot = sumtot                     sumtot = sumtot
120       &                + cos(yc(i,j,bi,bj)*deg2rad)       &                + cos(yc(i,j,bi,bj)*deg2rad)
121                     num_sfluxmm(bi,bj) = num_sfluxmm(bi,bj) + 1                     num_sfluxmm(bi,bj) = num_sfluxmm(bi,bj) + 1
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22