| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_obcsbal.F |
78 |
CTRL_OBCSBAL |
_RL tmpy |
|
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
262 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
298 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
420 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
456 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
75 |
CTRL_OBCSVOL |
_RL tmpy |
|
./pkg/ctrl/ctrl_volflux.F |
292 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
301 |
CTRL_VOLFLUX |
tmpy = 0. |
|
./pkg/ctrl/ctrl_volflux.F |
308 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
354 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
364 |
CTRL_VOLFLUX |
tmpy = 0. |
|
./pkg/ctrl/ctrl_volflux.F |
373 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
79 |
CTRL_VOLFLUX |
_RL tmpy |
|
./pkg/ecco/cost_obcsvol.F |
293 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
336 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
76 |
COST_OBCSVOL |
_RL tmpy |