| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_merid.F |
186 |
COST_TRANS_MERID |
mv(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
214 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
221 |
COST_TRANS_MERID |
mvlev(isect,k) = mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
228 |
COST_TRANS_MERID |
_GLOBAL_SUM_RL( mv(isect), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
246 |
COST_TRANS_MERID |
mvsum(isect) = mvsum(isect) + mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
250 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
261 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
78 |
COST_TRANS_MERID |
_RL tv(nsect), sv(nsect), mv(nsect) |