| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
1015 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_gencost(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1235 |
ECCO_COST_FINAL |
if (no_gencost(num_var).GT.0) then |
|
./pkg/ecco/ecco_cost_final.F |
1554 |
ECCO_COST_FINAL |
if (no_gencost(num_var).GT.0) then |
|
./pkg/ecco/ecco_cost_final.F |
155 |
ECCO_COST_FINAL |
_RL no_gencost(NGENCOST) |
|
./pkg/ecco/ecco_cost_final.F |
1560 |
ECCO_COST_FINAL |
& no_gencost(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
400 |
ECCO_COST_FINAL |
no_gencost(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
770 |
ECCO_COST_FINAL |
no_gencost(num_var)=no_gencost(num_var) |