| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1161 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_gfo) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1165 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_gfo) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1166 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_gfo)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1168 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1169 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
174 |
COST_GENCOST_SSHV4 |
igen_gfo=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
181 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
300 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
465 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
90 |
COST_GENCOST_SSHV4 |
integer igen_tp, igen_ers, igen_gfo |