| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcs_ageos.F |
166 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
277 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./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 |
348 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./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 |
87 |
COST_OBCS_AGEOS |
_RL xzdvel2 (1-olx:snx+olx,nr,nsx,nsy) |