| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_zonal.F |
207 |
COST_TRANS_ZONAL |
mulev(isect,k) = mu(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
217 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_RL( mulev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
219 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
220 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
222 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .GT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
223 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
226 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .LT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
227 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
76 |
COST_TRANS_ZONAL |
_RL musum(nsect), mumin(nsect), mumax(nsect), mulev(nsect,Nr) |