File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_init_varia.F |
249 |
ECCO_COST_INIT_VARIA |
cosphi(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
272 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
./pkg/ecco/ecco_toolbox.F |
159 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
./pkg/ecco/ecco_toolbox.F |
255 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
./pkg/ecco/ecco_toolbox.F |
348 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
./pkg/seaice/seaice_cost_concentration.F |
350 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
./pkg/seaice/seaice_cost_sss.F |
307 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
./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 |
254 |
CTRL_COST_GEN2D |
if ( cosphi(i,j,bi,bj) .ne. 0. _d 0) |
./pkg/ctrl/ctrl_cost_gen.F |
300 |
CTRL_COST_GEN2D |
& * cosphi(i,j,bi,bj) |
./pkg/ctrl/ctrl_cost_gen.F |
310 |
CTRL_COST_GEN2D |
& *cosphi(i,j,bi,bj) .ne. 0. _d 0 ) |
./pkg/ctrl/ctrl_cost_gen.F |
369 |
CTRL_COST_GEN2D |
& + xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj) |
./pkg/ctrl/ctrl_cost_gen.F |
377 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj) |
./pkg/ecco/cost_ssh.F |
198 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
./pkg/ecco/cost_ssh.F |
201 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
./pkg/ecco/cost_ssh.F |
308 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
./pkg/ecco/cost_ssh.F |
335 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
./pkg/ecco/cost_ssh.F |
362 |
COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
./pkg/ecco/ecco.h |
143 |
NO PROCEDURE |
& frame, cosphi, eccoVol_0 |
./pkg/ecco/ecco.h |
146 |
NO PROCEDURE |
_RL cosphi (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |