| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcs_ageos.F |
339 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
361 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
372 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
185 |
CTRL_OBCSVOL |
if(ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
221 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
254 |
CTRL_OBCSVOL |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
343 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
379 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
412 |
CTRL_OBCSVOL |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
148 |
CTRL_GETOBCSN |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_getobcsn.F |
149 |
CTRL_GETOBCSN |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
278 |
CTRL_GETOBCSN |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
187 |
CTRL_VOLFLUX |
if(ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_volflux.F |
193 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).eq.(i-1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
194 |
CTRL_VOLFLUX |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
235 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).ne.i.and.ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_volflux.F |
242 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_volflux.F |
243 |
CTRL_VOLFLUX |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
285 |
CTRL_VOLFLUX |
i = ob_iw(j,bi,bj) |