| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_final.F |
134 |
ECCO_COST_FINAL |
_RL no_atemp, no_aqh, no_precip, no_swflux, no_swdown |
|
./pkg/ecco/ecco_cost_final.F |
1405 |
ECCO_COST_FINAL |
& 'f_swdown =', f_swdown, no_swdown |
|
./pkg/ecco/ecco_cost_final.F |
1441 |
ECCO_COST_FINAL |
& 'f_swdownsmoo =', f_swdownsmoo, no_swdown |
|
./pkg/ecco/ecco_cost_final.F |
336 |
ECCO_COST_FINAL |
no_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
700 |
ECCO_COST_FINAL |
no_swdown = no_swdown + num_swdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
950 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_swdown , myThid ) |