File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_obcs_ageos.F |
167 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_obcs_ageos.F |
262 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
./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 |
278 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzgrdrho(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 |
349 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
./pkg/ecco/cost_obcs_ageos.F |
84 |
COST_OBCS_AGEOS |
_RL xzgrdrho(1-olx:snx+olx,Nr,nsx,nsy) |