| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
185 |
COST_GENCOST_SSHV4 |
igen_mdt=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
193 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
204 |
COST_GENCOST_SSHV4 |
if (gencost_posproc(k2,igen_mdt).EQ.'smooth') k2_mdt=k2 |
|
./pkg/ecco/cost_gencost_sshv4.F |
208 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_mdt),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
213 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_mdt) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
214 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
215 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_mdt),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
271 |
COST_GENCOST_SSHV4 |
if (igen_mdt.GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
272 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_mdt) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
273 |
COST_GENCOST_SSHV4 |
mdtfi=gencost_datafile(igen_mdt)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
274 |
COST_GENCOST_SSHV4 |
call CAL_COPYDATE(gencost_startdate(1,igen_mdt),mdtsta,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
275 |
COST_GENCOST_SSHV4 |
call CAL_COPYDATE(gencost_enddate(1,igen_mdt), mdtend, mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
463 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
472 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_mdt,igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
473 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_mdt,igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
476 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
78 |
COST_GENCOST_SSHV4 |
integer igen_mdt, igen_lsc, igen_gmsl |
|
./pkg/ecco/cost_gencost_sshv4.F |
807 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
816 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_mdt,igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
817 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_mdt,igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
820 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
826 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
835 |
COST_GENCOST_SSHV4 |
& gencost_posproc_c(k2_mdt,igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
836 |
COST_GENCOST_SSHV4 |
& gencost_posproc_i(k2_mdt,igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
839 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
862 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
868 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_mdt) = objf_gencost(bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
870 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) num_gencost(bi,bj,igen_mdt) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
871 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_mdt) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
878 |
COST_GENCOST_SSHV4 |
if (gencost_outputlevel(igen_mdt).GT.0) then |