| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_obcsbal.F |
121 |
CTRL_OBCSBAL |
volflux = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
154 |
CTRL_OBCSBAL |
call CTRL_VOLFLUX( obcsncount0, area, volflux, mythid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
157 |
CTRL_OBCSBAL |
_GLOBAL_SUM_R8( volflux, mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
160 |
CTRL_OBCSBAL |
shiftvel(2) = volflux / area |
|
./pkg/ctrl/ctrl_obcsbal.F |
161 |
CTRL_OBCSBAL |
print*,'volflux,area',volflux,area |
|
./pkg/ctrl/ctrl_obcsbal.F |
170 |
CTRL_OBCSBAL |
volflux = 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
173 |
CTRL_OBCSBAL |
call CTRL_VOLFLUX( obcsncount1, area, volflux, mythid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
176 |
CTRL_OBCSBAL |
_GLOBAL_SUM_R8( volflux, mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
179 |
CTRL_OBCSBAL |
shiftvel(2) = volflux /area |
|
./pkg/ctrl/ctrl_obcsbal.F |
180 |
CTRL_OBCSBAL |
print*,'volflux,area',volflux,area |
|
./pkg/ctrl/ctrl_obcsbal.F |
69 |
CTRL_OBCSBAL |
_RL volflux |