| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1315 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_tp).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1348 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_tp) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1351 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_tp) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1352 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_tp)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1354 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_tp) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1355 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_tp) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
186 |
COST_GENCOST_SSHV4 |
igen_tp =0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
194 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-tp') igen_tp=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
210 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_tp),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
219 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_tp) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
220 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_tp), |
|
./pkg/ecco/cost_gencost_sshv4.F |
221 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_tp),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
278 |
COST_GENCOST_SSHV4 |
if (igen_tp.GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
279 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_tp) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
280 |
COST_GENCOST_SSHV4 |
tpfi=gencost_datafile(igen_tp)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
281 |
COST_GENCOST_SSHV4 |
call CAL_COPYDATE(gencost_startdate(1,igen_tp),tpsta,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
282 |
COST_GENCOST_SSHV4 |
tpper=gencost_period(igen_tp) |
|
./pkg/ecco/cost_gencost_sshv4.F |
283 |
COST_GENCOST_SSHV4 |
if (gencost_barfile(igen_tp)(1:5).EQ.'m_eta') |
|
./pkg/ecco/cost_gencost_sshv4.F |
284 |
COST_GENCOST_SSHV4 |
& igen_etaday=igen_tp |
|
./pkg/ecco/cost_gencost_sshv4.F |
417 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
588 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
79 |
COST_GENCOST_SSHV4 |
integer igen_tp, igen_ers, igen_gfo |