| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_bpv4.F |
100 |
COST_GENCOST_BPV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
103 |
COST_GENCOST_BPV4 |
& gencost_weight(:,:,1,1,kgen),1,1,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
135 |
COST_GENCOST_BPV4 |
locwbp(i,j,bi,bj) = gencost_weight(i,j,bi,bj,kgen) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
212 |
COST_GENCOST_SEAICEV4 |
& gencost_weight(1,1,1,1,igen_deconc),localrec,nnzsiv4,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
214 |
COST_GENCOST_SEAICEV4 |
& gencost_weight(1,1,1,1,igen_exconc),localrec,nnzsiv4,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
309 |
COST_GENCOST_SEAICEV4 |
call ECCO_CP(gencost_weight(1,1,1,1,igen_deconc),nnzsiv4, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
331 |
COST_GENCOST_SEAICEV4 |
call ECCO_CP(gencost_weight(1,1,1,1,igen_exconc),nnzsiv4, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1070 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1169 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1180 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1181 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1348 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_tp) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1358 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_ers) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1368 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_gfo) |
|
./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 |
209 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_lsc),1,zeroRL,myThid) |
|
./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 |
211 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_ers),1,zeroRL,myThid) |
|
./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 |
215 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_mdt),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
218 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_lsc),1,1,mythid) |
|
./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 |
224 |
COST_GENCOST_SSHV4 |
& gencost_weight(:,:,1,1,igen_ers),1,1,mythid) |
|
./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 |
417 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./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 |
429 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .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 |
598 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .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 |
862 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sstv4.F |
139 |
COST_GENCOST_SSTV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
140 |
COST_GENCOST_SSTV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen_lsc),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
143 |
COST_GENCOST_SSTV4 |
& gencost_weight(:,:,1,1,kgen),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
146 |
COST_GENCOST_SSTV4 |
& gencost_weight(:,:,1,1,kgen_lsc),1,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
329 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
440 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen)* |
|
./pkg/ecco/ecco.h |
229 |
NO PROCEDURE |
& gencost_barfld, gencost_modfld, gencost_weight, |
|
./pkg/ecco/ecco.h |
253 |
NO PROCEDURE |
_RL gencost_weight(1-olx:snx+olx,1-oly:sny+oly, |