| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
150 |
SHELFICE_COST_SHIFWFLX |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
151 |
SHELFICE_COST_SHIFWFLX |
fctile = fctile + tmpx*tmpx |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
75 |
SHELFICE_COST_SHIFWFLX |
_RL tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
102 |
CTRL_COST_GEN2D |
_RL tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
187 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
189 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
191 |
CTRL_COST_GEN2D |
fctile = fctile + tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
248 |
CTRL_COST_GEN2D |
tmpx = xx_mean(i,j,bi,bj)/xx_gen_wmean |
|
./pkg/ctrl/ctrl_cost_gen.F |
252 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
253 |
CTRL_COST_GEN2D |
fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
257 |
CTRL_COST_GEN2D |
fctilem = fctilem + tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
292 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
298 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
299 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
302 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
305 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
306 |
CTRL_COST_GEN2D |
fctile = fctile + tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
356 |
CTRL_COST_GEN2D |
tmpx = |
|
./pkg/ctrl/ctrl_cost_gen.F |
367 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
375 |
CTRL_COST_GEN2D |
& *tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
466 |
CTRL_COST_GEN3D |
_RL tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
528 |
CTRL_COST_GEN3D |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
532 |
CTRL_COST_GEN3D |
& *tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
534 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = objf_gen(bi,bj) + tmpx*tmpx |
|
./lsopt/dostore.F |
20 |
DOSTORE |
tmpx(i) = x(i) |
|
./lsopt/dostore.F |
22 |
DOSTORE |
write( ntape, rec=j ) tmpx |
|
./lsopt/dostore.F |
24 |
DOSTORE |
read( ntape, rec=j ) tmpx |
|
./lsopt/dostore.F |
26 |
DOSTORE |
x(i) = tmpx(i) |
|
./lsopt/dostore.F |
7 |
DOSTORE |
real*4 tmpx(n) |
|
./pkg/ecco/cost_obcse.F |
182 |
COST_OBCSE |
tmpx = tmpfield(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
185 |
COST_OBCSE |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
95 |
COST_OBCSE |
_RL tmpx |
|
./pkg/ecco/cost_obcsn.F |
180 |
COST_OBCSN |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
183 |
COST_OBCSN |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
94 |
COST_OBCSN |
_RL tmpx |
|
./pkg/ecco/cost_obcss.F |
182 |
COST_OBCSS |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
185 |
COST_OBCSS |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
94 |
COST_OBCSS |
_RL tmpx |
|
./pkg/ecco/cost_obcsvol.F |
220 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
223 |
COST_OBCSVOL |
fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
262 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
265 |
COST_OBCSVOL |
fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
79 |
COST_OBCSVOL |
_RL tmpx |
|
./pkg/ecco/cost_obcsw.F |
180 |
COST_OBCSW |
tmpx = tmpfield(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
183 |
COST_OBCSW |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
94 |
COST_OBCSW |
_RL tmpx |