| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
1025 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_genarr2d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1257 |
ECCO_COST_FINAL |
if (no_genarr2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1581 |
ECCO_COST_FINAL |
if (no_genarr2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1588 |
ECCO_COST_FINAL |
& no_genarr2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
165 |
ECCO_COST_FINAL |
_RL no_genarr2d(maxCtrlArr2D) |
|
./pkg/ecco/ecco_cost_final.F |
410 |
ECCO_COST_FINAL |
no_genarr2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
782 |
ECCO_COST_FINAL |
no_genarr2d(num_var) = no_genarr2d(num_var) |