| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
175 |
COST_GENCOST_SSHV4 |
igen_lsc=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
182 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
879 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
89 |
COST_GENCOST_SSHV4 |
integer igen_mdt, igen_lsc, igen_gmsl |
|
./pkg/ecco/cost_gencost_sshv4.F |
946 |
COST_GENCOST_SSHV4 |
& gencost_scalefile(igen_lsc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
947 |
COST_GENCOST_SSHV4 |
& gencost_smooth2Ddiffnbt(igen_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
954 |
COST_GENCOST_SSHV4 |
& gencost_scalefile(igen_lsc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
955 |
COST_GENCOST_SSHV4 |
& gencost_smooth2Ddiffnbt(igen_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
977 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
987 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_lsc) = objf_gencost(bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
988 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
989 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
991 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_lsc) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
992 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_lsc) + 1. _d 0 |