| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1324 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_ers).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1358 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_ers) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1361 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_ers) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1362 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_ers)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1364 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_ers) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1365 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_ers) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
187 |
COST_GENCOST_SSHV4 |
igen_ers=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
195 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-ers') igen_ers=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
211 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_ers),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
222 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_ers) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
223 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_ers), |
|
./pkg/ecco/cost_gencost_sshv4.F |
224 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_ers),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
287 |
COST_GENCOST_SSHV4 |
if (igen_ers.GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
288 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_ers) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
289 |
COST_GENCOST_SSHV4 |
ersfi=gencost_datafile(igen_ers)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
290 |
COST_GENCOST_SSHV4 |
call CAL_COPYDATE(gencost_startdate(1,igen_ers),erssta,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
291 |
COST_GENCOST_SSHV4 |
ersper=gencost_period(igen_ers) |
|
./pkg/ecco/cost_gencost_sshv4.F |
292 |
COST_GENCOST_SSHV4 |
if (gencost_barfile(igen_ers)(1:5).EQ.'m_eta') |
|
./pkg/ecco/cost_gencost_sshv4.F |
293 |
COST_GENCOST_SSHV4 |
& igen_etaday=igen_ers |
|
./pkg/ecco/cost_gencost_sshv4.F |
423 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
598 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
79 |
COST_GENCOST_SSHV4 |
integer igen_tp, igen_ers, igen_gfo |