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

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

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

revision 1.5 by jmc, Tue Oct 9 00:00:00 2007 UTC revision 1.6 by jmc, Tue Apr 28 18:09:28 2009 UTC
# Line 156  c--   Loop over records. For north bound Line 156  c--   Loop over records. For north bound
156          call ctrl_volflux( obcsncount0, area, volflux, mythid)          call ctrl_volflux( obcsncount0, area, volflux, mythid)
157    
158  c--   Do the global summation.  c--   Do the global summation.
159          _GLOBAL_SUM_R8( volflux, mythid )          _GLOBAL_SUM_RL( volflux, mythid )
160          _GLOBAL_SUM_R8( area,mythid )          _GLOBAL_SUM_RL( area,mythid )
161    
162          shiftvel(2) = volflux / area          shiftvel(2) = volflux / area
163          print*,'volflux,area',volflux,area          print*,'volflux,area',volflux,area
# Line 175  cgg     Swap the value. Line 175  cgg     Swap the value.
175          call ctrl_volflux( obcsncount1, area, volflux, mythid)          call ctrl_volflux( obcsncount1, area, volflux, mythid)
176    
177  c--   Do the global summation.  c--   Do the global summation.
178          _GLOBAL_SUM_R8( volflux, mythid )          _GLOBAL_SUM_RL( volflux, mythid )
179          _GLOBAL_SUM_R8( area,mythid )          _GLOBAL_SUM_RL( area,mythid )
180    
181          shiftvel(2) = volflux /area          shiftvel(2) = volflux /area
182          print*,'volflux,area',volflux,area          print*,'volflux,area',volflux,area
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22