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 |
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 |