| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
108 |
ECCO_COST_FINAL |
f_uwind = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
262 |
ECCO_COST_FINAL |
f_uwind = f_uwind + objf_uwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
362 |
ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_uwind , myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
485 |
ECCO_COST_FINAL |
& ' --> f_uwind =',f_uwind |
|
./pkg/ecco/ecco_cost_final.F |
48 |
ECCO_COST_FINAL |
_RL f_uwind, f_vwind, f_atemp, f_aqh |
|
./pkg/ecco/ecco_cost_final.F |
525 |
ECCO_COST_FINAL |
& ' --> f_uwind =',f_uwind |
|
./pkg/ecco/ecco_cost_final.F |
583 |
ECCO_COST_FINAL |
write(ifc,*) 'f_uwind =', f_uwind, no_uwind |