| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
110 |
ECCO_COST_FINAL |
f_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
264 |
ECCO_COST_FINAL |
f_atemp = f_atemp + objf_atemp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
364 |
ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_atemp , myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
489 |
ECCO_COST_FINAL |
& ' --> f_atemp =',f_atemp |
|
./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 |
529 |
ECCO_COST_FINAL |
& ' --> f_atemp =',f_atemp |
|
./pkg/ecco/ecco_cost_final.F |
585 |
ECCO_COST_FINAL |
write(ifc,*) 'f_atemp =', f_atemp, no_atemp |