| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getobcsn.F |
150 |
CTRL_GETOBCSN |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_getobcsn.F |
151 |
CTRL_GETOBCSN |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
280 |
CTRL_GETOBCSN |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_getobcsn.F |
281 |
CTRL_GETOBCSN |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
187 |
CTRL_OBCSVOL |
if(ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
223 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
256 |
CTRL_OBCSVOL |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
345 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
381 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
414 |
CTRL_OBCSVOL |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
189 |
CTRL_VOLFLUX |
if(ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_volflux.F |
195 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).eq.(i-1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
196 |
CTRL_VOLFLUX |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
237 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).ne.i.and.ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_volflux.F |
244 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_volflux.F |
245 |
CTRL_VOLFLUX |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
287 |
CTRL_VOLFLUX |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
353 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
379 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
390 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |