| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_obcsbal.F |
123 |
CTRL_OBCSBAL |
volflux = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
156 |
CTRL_OBCSBAL |
call CTRL_VOLFLUX( obcsncount0, area, volflux, mythid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
159 |
CTRL_OBCSBAL |
_GLOBAL_SUM_RL( volflux, mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
162 |
CTRL_OBCSBAL |
shiftvel(2) = volflux / area |
|
./pkg/ctrl/ctrl_obcsbal.F |
163 |
CTRL_OBCSBAL |
print*,'volflux,area',volflux,area |
|
./pkg/ctrl/ctrl_obcsbal.F |
172 |
CTRL_OBCSBAL |
volflux = 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
175 |
CTRL_OBCSBAL |
call CTRL_VOLFLUX( obcsncount1, area, volflux, mythid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
178 |
CTRL_OBCSBAL |
_GLOBAL_SUM_RL( volflux, mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
181 |
CTRL_OBCSBAL |
shiftvel(2) = volflux /area |
|
./pkg/ctrl/ctrl_obcsbal.F |
182 |
CTRL_OBCSBAL |
print*,'volflux,area',volflux,area |
|
./pkg/ctrl/ctrl_obcsbal.F |
71 |
CTRL_OBCSBAL |
_RL volflux |