| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_obcsvol.F |
259 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
295 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
417 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
453 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_volflux.F |
291 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).ne.j.and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_volflux.F |
299 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).eq.(j+1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
300 |
CTRL_VOLFLUX |
& ob_jn(i,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
353 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).ne.j .and.ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_volflux.F |
362 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).eq.(j+1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
363 |
CTRL_VOLFLUX |
& ob_jn(i,bi,bj).ne. 0) then |
|
./pkg/ecco/cost_obcs_ageos.F |
222 |
COST_OBCS_AGEOS |
j = ob_jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
251 |
COST_OBCS_AGEOS |
j = ob_jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
263 |
COST_OBCS_AGEOS |
j = ob_jn(i,bi,bj) |