| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1139 |
COST_GENCOST_SSHV4 |
if ( useSMOOTH.AND.(k2_lsc.GT.0) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1141 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_lsc,igen_lsc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
1142 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_lsc,igen_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1147 |
COST_GENCOST_SSHV4 |
if ( useSMOOTH.AND.(k2_lsc.GT.0) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1149 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_lsc,igen_lsc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
1150 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_lsc,igen_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
159 |
COST_GENCOST_SSHV4 |
integer k2, k2_mdt, k2_lsc |
|
./pkg/ecco/cost_gencost_sshv4.F |
202 |
COST_GENCOST_SSHV4 |
k2_lsc=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
205 |
COST_GENCOST_SSHV4 |
if (gencost_posproc(k2,igen_lsc).EQ.'smooth') k2_lsc=k2 |
|
./pkg/ecco/cost_gencost_sstv4.F |
125 |
COST_GENCOST_SSTV4 |
k2_lsc=0 |
|
./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 |
301 |
COST_GENCOST_SSTV4 |
if ( useSMOOTH.AND.(k2_lsc.GT.0) ) |
|
./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 |
307 |
COST_GENCOST_SSTV4 |
if ( useSMOOTH.AND.(k2_lsc.GT.0) ) |
|
./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 |
77 |
COST_GENCOST_SSTV4 |
integer k2, k2_lsc |