| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_merid.F |
217 |
COST_TRANS_MERID |
mvlev(isect,k) = mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
227 |
COST_TRANS_MERID |
_GLOBAL_SUM_R8( mvlev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
229 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,1) |
|
./pkg/ecco/cost_trans_merid.F |
230 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,1) |
|
./pkg/ecco/cost_trans_merid.F |
232 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .GT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
233 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
236 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .LT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
237 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
75 |
COST_TRANS_MERID |
_RL mvsum(nsect), mvmin(nsect), mvmax(nsect), mvlev(nsect,Nr) |