| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sstv4.F |
100 |
COST_GENCOST_SSTV4 |
integer kgen, kgen_lsc |
|
./pkg/ecco/cost_gencost_sstv4.F |
124 |
COST_GENCOST_SSTV4 |
kgen_lsc=0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
129 |
COST_GENCOST_SSTV4 |
kgen_lsc=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
131 |
COST_GENCOST_SSTV4 |
if (gencost_posproc(k2,kgen_lsc).EQ.'smooth') k2_lsc=k2 |
|
./pkg/ecco/cost_gencost_sstv4.F |
140 |
COST_GENCOST_SSTV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen_lsc),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
144 |
COST_GENCOST_SSTV4 |
if ( gencost_errfile(kgen_lsc) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
145 |
COST_GENCOST_SSTV4 |
& call ECCO_READWEI(gencost_errfile(kgen_lsc), |
|
./pkg/ecco/cost_gencost_sstv4.F |
146 |
COST_GENCOST_SSTV4 |
& gencost_weight(:,:,1,1,kgen_lsc),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
303 |
COST_GENCOST_SSTV4 |
& gencost_posproc_c(k2_lsc,kgen_lsc), |
|
./pkg/ecco/cost_gencost_sstv4.F |
304 |
COST_GENCOST_SSTV4 |
& gencost_posproc_i(k2_lsc,kgen_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
309 |
COST_GENCOST_SSTV4 |
& gencost_posproc_c(k2_lsc,kgen_lsc), |
|
./pkg/ecco/cost_gencost_sstv4.F |
310 |
COST_GENCOST_SSTV4 |
& gencost_posproc_i(k2_lsc,kgen_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
329 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
331 |
COST_GENCOST_SSTV4 |
objf_gencost(kgen_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
332 |
COST_GENCOST_SSTV4 |
& objf_gencost(kgen_lsc,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
335 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
336 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen_lsc,bi,bj) + 1. _d 0 /ndaysaveRL |