| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcs_ageos.F |
163 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
396 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
403 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
404 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
459 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
466 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
467 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
80 |
COST_OBCS_AGEOS |
_RL yzdvel2 (1-oly:sny+oly,nr,nsx,nsy) |