| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
109 |
ECCO_COST_FINAL |
f_vwind = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
263 |
ECCO_COST_FINAL |
f_vwind = f_vwind + objf_vwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
363 |
ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_vwind , myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
487 |
ECCO_COST_FINAL |
& ' --> f_vwind =',f_vwind |
|
./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 |
527 |
ECCO_COST_FINAL |
& ' --> f_vwind =',f_vwind |
|
./pkg/ecco/ecco_cost_final.F |
584 |
ECCO_COST_FINAL |
write(ifc,*) 'f_vwind =', f_vwind, no_vwind |