| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_trans_zonal.F |
206 |
COST_TRANS_ZONAL |
mulev(isect,k) = mu(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
216 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_R8( mulev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
218 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
219 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,1) |
|
./pkg/ecco/cost_trans_zonal.F |
221 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .GT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
222 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
225 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .LT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
226 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
75 |
COST_TRANS_ZONAL |
_RL musum(nsect), mumin(nsect), mumax(nsect), mulev(nsect,Nr) |