| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_merid.F |
221 |
COST_TRANS_MERID |
mvlev(isect,k) = mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
231 |
COST_TRANS_MERID |
_GLOBAL_SUM_RL( mvlev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
233 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,1) |
|
./pkg/ecco/cost_trans_merid.F |
234 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,1) |
|
./pkg/ecco/cost_trans_merid.F |
236 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .GT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
237 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
240 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .LT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
241 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
79 |
COST_TRANS_MERID |
_RL mvsum(nsect), mvmin(nsect), mvmax(nsect), mvlev(nsect,Nr) |