/[MITgcm]/MITgcm/pkg/ctrl/ctrl_obcsvol.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_obcsvol.F

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

revision 1.10 by jmc, Tue Oct 9 00:00:00 2007 UTC revision 1.11 by jmc, Tue Apr 28 18:09:28 2009 UTC
# Line 308  cgg -- Positive is flux in. Line 308  cgg -- Positive is flux in.
308  #endif  #endif
309    
310  c--   Do the global summation.  c--   Do the global summation.
311          _GLOBAL_SUM_R8( sumvol, mythid )          _GLOBAL_SUM_RL( sumvol, mythid )
312          _GLOBAL_SUM_R8( sumarea,mythid )          _GLOBAL_SUM_RL( sumarea,mythid )
313    
314          shiftvel(2) = sumvol /sumarea          shiftvel(2) = sumvol /sumarea
315        endif        endif
# Line 466  cgg -- Positive is flux in. Line 466  cgg -- Positive is flux in.
466  #endif  #endif
467    
468  c--   Do the global summation.  c--   Do the global summation.
469          _GLOBAL_SUM_R8( sumvol, mythid )          _GLOBAL_SUM_RL( sumvol, mythid )
470          _GLOBAL_SUM_R8( sumarea,mythid )          _GLOBAL_SUM_RL( sumarea,mythid )
471    
472          shiftvel(2) = sumvol /sumarea          shiftvel(2) = sumvol /sumarea
473        endif        endif
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22