| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcs_ageos.F |
165 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
275 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
283 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
284 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
344 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
355 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
86 |
COST_OBCS_AGEOS |
_RL xzdvel1 (1-olx:snx+olx,nr,nsx,nsy) |