| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcsvol.F |
291 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
334 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
74 |
COST_OBCSVOL |
_RL tmpy |
|
./pkg/ctrl/ctrl_obcsvol.F |
258 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
294 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
416 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
452 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
73 |
CTRL_OBCSVOL |
_RL tmpy |
|
./pkg/ctrl/ctrl_volflux.F |
290 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
299 |
CTRL_VOLFLUX |
tmpy = 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 |
352 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
362 |
CTRL_VOLFLUX |
tmpy = 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 |
77 |
CTRL_VOLFLUX |
_RL tmpy |
|
./pkg/ctrl/ctrl_obcsbal.F |
76 |
CTRL_OBCSBAL |
_RL tmpy |