| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_zonal.F |
210 |
COST_TRANS_ZONAL |
mulev(isect,k) = mu(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
220 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_RL( mulev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
222 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
223 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
225 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .GT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
226 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
229 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .LT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
230 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
79 |
COST_TRANS_ZONAL |
_RL musum(nsect), mumin(nsect), mumax(nsect), mulev(nsect,Nr) |