| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_heatflux.F |
69 |
COST_HEATFLUX |
_RL sumcos |
|
./pkg/ecco/cost_zonstress.F |
69 |
COST_ZONSTRESS |
_RL sumcos |
|
./pkg/ecco/cost_mean_heatflux.F |
113 |
COST_MEAN_HEATFLUX |
sumcos = 0. _d 0 |
|
./pkg/ecco/cost_mean_heatflux.F |
120 |
COST_MEAN_HEATFLUX |
sumcos = sumcos + cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_heatflux.F |
124 |
COST_MEAN_HEATFLUX |
if(sumcos.eq.0) sumcos=1 |
|
./pkg/ecco/cost_mean_heatflux.F |
125 |
COST_MEAN_HEATFLUX |
fctilemm = (fctilemm / sumcos) |
|
./pkg/ecco/cost_mean_heatflux.F |
61 |
COST_MEAN_HEATFLUX |
_RL sumcos |
|
./pkg/ecco/cost_mean_saltflux.F |
113 |
COST_MEAN_SALTFLUX |
sumcos = 0. _d 0 |
|
./pkg/ecco/cost_mean_saltflux.F |
119 |
COST_MEAN_SALTFLUX |
sumcos = sumcos + cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_saltflux.F |
124 |
COST_MEAN_SALTFLUX |
if(sumcos.eq.0) sumcos=1.0 |
|
./pkg/ecco/cost_mean_saltflux.F |
125 |
COST_MEAN_SALTFLUX |
fctilemm = (fctilemm / sumcos) |
|
./pkg/ecco/cost_mean_saltflux.F |
61 |
COST_MEAN_SALTFLUX |
_RL sumcos |
|
./pkg/ecco/cost_saltflux.F |
69 |
COST_SALTFLUX |
_RL sumcos |
|
./pkg/ecco/cost_merstress.F |
69 |
COST_MERSTRESS |
_RL sumcos |