| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_obcsbal.F |
121 |
CTRL_OBCSBAL |
tmparea= 0. d 0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
74 |
CTRL_OBCSBAL |
_RL tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
115 |
CTRL_OBCSVOL |
tmparea= 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
180 |
CTRL_OBCSVOL |
tmparea = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
191 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
197 |
CTRL_OBCSVOL |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
216 |
CTRL_OBCSVOL |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
227 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
232 |
CTRL_OBCSVOL |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
252 |
CTRL_OBCSVOL |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
263 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
268 |
CTRL_OBCSVOL |
sumarea =sumarea + tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
288 |
CTRL_OBCSVOL |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
299 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
304 |
CTRL_OBCSVOL |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
338 |
CTRL_OBCSVOL |
tmparea = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
349 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
355 |
CTRL_OBCSVOL |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
374 |
CTRL_OBCSVOL |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
385 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
390 |
CTRL_OBCSVOL |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
410 |
CTRL_OBCSVOL |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
421 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
426 |
CTRL_OBCSVOL |
sumarea =sumarea + tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
446 |
CTRL_OBCSVOL |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
457 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
462 |
CTRL_OBCSVOL |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_obcsvol.F |
71 |
CTRL_OBCSVOL |
_RL tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
120 |
CTRL_VOLFLUX |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_volflux.F |
180 |
CTRL_VOLFLUX |
tmparea = 0. d0 |
|
./pkg/ctrl/ctrl_volflux.F |
198 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
199 |
CTRL_VOLFLUX |
print*,'tmparea',tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
209 |
CTRL_VOLFLUX |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
229 |
CTRL_VOLFLUX |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_volflux.F |
247 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
248 |
CTRL_VOLFLUX |
print*,'tmparea',tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
259 |
CTRL_VOLFLUX |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
282 |
CTRL_VOLFLUX |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_volflux.F |
302 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
303 |
CTRL_VOLFLUX |
print*,'tmparea',tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
316 |
CTRL_VOLFLUX |
sumarea =sumarea + tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
342 |
CTRL_VOLFLUX |
tmparea = 0. d 0 |
|
./pkg/ctrl/ctrl_volflux.F |
365 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
366 |
CTRL_VOLFLUX |
print*,'tmparea',tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
377 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
390 |
CTRL_VOLFLUX |
sumarea = sumarea+ tmparea |
|
./pkg/ctrl/ctrl_volflux.F |
75 |
CTRL_VOLFLUX |
_RL tmparea |