| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
1030 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_genarr3d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1268 |
ECCO_COST_FINAL |
if (no_genarr3d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1595 |
ECCO_COST_FINAL |
if (no_genarr3d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1602 |
ECCO_COST_FINAL |
& no_genarr3d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
168 |
ECCO_COST_FINAL |
_RL no_genarr3d(maxCtrlArr3D) |
|
./pkg/ecco/ecco_cost_final.F |
415 |
ECCO_COST_FINAL |
no_genarr3d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
788 |
ECCO_COST_FINAL |
no_genarr3d(num_var) = no_genarr3d(num_var) |