File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_obcs_ageos.F |
173 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_obcs_ageos.F |
400 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
./pkg/ecco/cost_obcs_ageos.F |
416 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
./pkg/ecco/cost_obcs_ageos.F |
417 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
./pkg/ecco/cost_obcs_ageos.F |
467 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
./pkg/ecco/cost_obcs_ageos.F |
483 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
./pkg/ecco/cost_obcs_ageos.F |
484 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
./pkg/ecco/cost_obcs_ageos.F |
85 |
COST_OBCS_AGEOS |
_RL yzgrdrho(1-oly:sny+oly,Nr,nsx,nsy) |