File |
Line number |
Procedure |
Code |
./pkg/ctrl/ctrl_obcsvol.F |
112 |
CTRL_OBCSVOL |
tmpflux= 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
177 |
CTRL_OBCSVOL |
tmpflux = 0. d0 |
./pkg/ctrl/ctrl_obcsvol.F |
188 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
196 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
213 |
CTRL_OBCSVOL |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
224 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
231 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
249 |
CTRL_OBCSVOL |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
267 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
285 |
CTRL_OBCSVOL |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
303 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
335 |
CTRL_OBCSVOL |
tmpflux = 0. d0 |
./pkg/ctrl/ctrl_obcsvol.F |
346 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
354 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
371 |
CTRL_OBCSVOL |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
382 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
389 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
407 |
CTRL_OBCSVOL |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
425 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
443 |
CTRL_OBCSVOL |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_obcsvol.F |
461 |
CTRL_OBCSVOL |
sumvol = sumvol + tmpflux |
./pkg/ctrl/ctrl_obcsvol.F |
68 |
CTRL_OBCSVOL |
_RL tmpflux |
./pkg/ctrl/ctrl_volflux.F |
117 |
CTRL_VOLFLUX |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_volflux.F |
177 |
CTRL_VOLFLUX |
tmpflux = 0. d0 |
./pkg/ctrl/ctrl_volflux.F |
200 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
208 |
CTRL_VOLFLUX |
sumflux = sumflux + tmpflux |
./pkg/ctrl/ctrl_volflux.F |
225 |
CTRL_VOLFLUX |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_volflux.F |
250 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
259 |
CTRL_VOLFLUX |
sumflux = sumflux + tmpflux |
./pkg/ctrl/ctrl_volflux.F |
277 |
CTRL_VOLFLUX |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_volflux.F |
306 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
317 |
CTRL_VOLFLUX |
sumflux = sumflux + tmpflux |
./pkg/ctrl/ctrl_volflux.F |
335 |
CTRL_VOLFLUX |
tmpflux = 0. d 0 |
./pkg/ctrl/ctrl_volflux.F |
371 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
./pkg/ctrl/ctrl_volflux.F |
392 |
CTRL_VOLFLUX |
sumflux = sumflux + tmpflux |
./pkg/ctrl/ctrl_volflux.F |
72 |
CTRL_VOLFLUX |
_RL tmpflux |
./pkg/ctrl/ctrl_obcsbal.F |
118 |
CTRL_OBCSBAL |
tmpflux= 0. d 0 |
./pkg/ctrl/ctrl_obcsbal.F |
71 |
CTRL_OBCSBAL |
_RL tmpflux |