| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1333 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_gfo).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1368 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_gfo) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1371 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_gfo) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1372 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_gfo)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1374 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1375 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
188 |
COST_GENCOST_SSHV4 |
igen_gfo=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
196 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
212 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_gfo),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
225 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_gfo) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
226 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_gfo), |
|
./pkg/ecco/cost_gencost_sshv4.F |
227 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_gfo),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
296 |
COST_GENCOST_SSHV4 |
if (igen_gfo.GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
297 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_gfo) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
298 |
COST_GENCOST_SSHV4 |
gfofi=gencost_datafile(igen_gfo)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
299 |
COST_GENCOST_SSHV4 |
call CAL_COPYDATE(gencost_startdate(1,igen_gfo),gfosta,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
300 |
COST_GENCOST_SSHV4 |
gfoper=gencost_period(igen_gfo) |
|
./pkg/ecco/cost_gencost_sshv4.F |
301 |
COST_GENCOST_SSHV4 |
if (gencost_barfile(igen_gfo)(1:5).EQ.'m_eta') |
|
./pkg/ecco/cost_gencost_sshv4.F |
302 |
COST_GENCOST_SSHV4 |
& igen_etaday=igen_gfo |
|
./pkg/ecco/cost_gencost_sshv4.F |
429 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
608 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
79 |
COST_GENCOST_SSHV4 |
integer igen_tp, igen_ers, igen_gfo |