| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
1132 |
ECCO_COST_FINAL |
& 'f_ctds =', f_ctds, no_ctds |
|
./pkg/ecco/ecco_cost_final.F |
184 |
ECCO_COST_FINAL |
f_ctds = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
468 |
ECCO_COST_FINAL |
f_ctds = f_ctds + objf_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
663 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ctds , myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
72 |
ECCO_COST_FINAL |
_RL f_sst, f_tmi, f_sss, f_bp, f_atl, f_ctdt, f_ctds |
|
./pkg/ecco/ecco_cost_final.F |
895 |
ECCO_COST_FINAL |
& ' --> f_ctds =',f_ctds |