File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_obcs_ageos.F |
157 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_obcs_ageos.F |
243 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
./pkg/ecco/cost_obcs_ageos.F |
257 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
./pkg/ecco/cost_obcs_ageos.F |
258 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
./pkg/ecco/cost_obcs_ageos.F |
303 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
./pkg/ecco/cost_obcs_ageos.F |
318 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
./pkg/ecco/cost_obcs_ageos.F |
319 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
./pkg/ecco/cost_obcs_ageos.F |
74 |
COST_OBCS_AGEOS |
_RL xzgrdrho(1-olx:snx+olx,Nr,nsx,nsy) |