| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
159 |
COST_GENCOST_SSHV4 |
integer k2, k2_mdt, k2_lsc |
|
./pkg/ecco/cost_gencost_sshv4.F |
201 |
COST_GENCOST_SSHV4 |
k2_mdt=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
204 |
COST_GENCOST_SSHV4 |
if (gencost_posproc(k2,igen_mdt).EQ.'smooth') k2_mdt=k2 |
|
./pkg/ecco/cost_gencost_sshv4.F |
470 |
COST_GENCOST_SSHV4 |
if ( useSMOOTH.AND.(k2_mdt.GT.0) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
472 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_mdt,igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
473 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_mdt,igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
814 |
COST_GENCOST_SSHV4 |
if ( useSMOOTH.AND.(k2_mdt.GT.0) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
816 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_mdt,igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
817 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_mdt,igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
833 |
COST_GENCOST_SSHV4 |
if ( useSMOOTH.AND.(k2_mdt.GT.0) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
835 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_mdt,igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
836 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_mdt,igen_mdt),mythid) |