File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_toolbox.F |
1177 |
ECCO_READWEI |
O localweight, |
./pkg/ecco/ecco_toolbox.F |
1203 |
ECCO_READWEI |
_RL localweight(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nnzbar,nSx,nSy) |
./pkg/ecco/ecco_toolbox.F |
1231 |
ECCO_READWEI |
& cost_yftype, nnzbar, localweight, iRec, mythid ) |
./pkg/ecco/ecco_toolbox.F |
1239 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .lt. -9900.) then |
./pkg/ecco/ecco_toolbox.F |
1240 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = 0. _d 0 |
./pkg/ecco/ecco_toolbox.F |
1243 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .ne. 0.) then |
./pkg/ecco/ecco_toolbox.F |
1244 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = |
./pkg/ecco/ecco_toolbox.F |
1245 |
ECCO_READWEI |
& 1./localweight(i,j,k,bi,bj)/ |
./pkg/ecco/ecco_toolbox.F |
1246 |
ECCO_READWEI |
& localweight(i,j,k,bi,bj) |
./pkg/ecco/ecco_toolbox.F |
522 |
ECCO_ADDCOST |
I localdif, localweight, difmask, nnzobs, dosumsq, |
./pkg/ecco/ecco_toolbox.F |
548 |
ECCO_ADDCOST |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
591 |
ECCO_ADDCOST |
localwww = localweight(i,j,k,bi,bj) |
./pkg/seaice/seaice_cost_areasst.F |
22 |
SEAICE_COST_AREASST |
& localmask, localweight, |
./pkg/seaice/seaice_cost_areasst.F |
74 |
SEAICE_COST_AREASST |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/seaice/seaice_cost_concentration.F |
22 |
SEAICE_COST_CONCENTRATION |
& localmask, localweight, |
./pkg/seaice/seaice_cost_concentration.F |
274 |
SEAICE_COST_CONCENTRATION |
& localweight(i,j,bi,bj) |
./pkg/seaice/seaice_cost_concentration.F |
277 |
SEAICE_COST_CONCENTRATION |
if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN |
./pkg/seaice/seaice_cost_concentration.F |
280 |
SEAICE_COST_CONCENTRATION |
areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj)) |
./pkg/seaice/seaice_cost_concentration.F |
310 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
./pkg/seaice/seaice_cost_concentration.F |
363 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
./pkg/seaice/seaice_cost_concentration.F |
64 |
SEAICE_COST_CONCENTRATION |
_RL localweight (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/seaice/seaice_cost_sss.F |
22 |
SEAICE_COST_SSS |
& localmask, localweight, |
./pkg/seaice/seaice_cost_sss.F |
320 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
./pkg/seaice/seaice_cost_sss.F |
65 |
SEAICE_COST_SSS |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/seaice/seaice_cost_sst.F |
20 |
SEAICE_COST_SST |
& localmask, localweight, |
./pkg/seaice/seaice_cost_sst.F |
320 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
./pkg/seaice/seaice_cost_sst.F |
63 |
SEAICE_COST_SST |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ecco/cost_gencost_seaicev4.F |
188 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localweight,1,zeroRL,myThid) |
./pkg/ecco/cost_gencost_seaicev4.F |
207 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localweight,nnzsiv4,zeroRL,myThid) |
./pkg/ecco/cost_gencost_seaicev4.F |
210 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(fname0w,localweight,localrec,nnzsiv4,mythid) |
./pkg/ecco/cost_gencost_seaicev4.F |
217 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(fname0w,localweight,localrec,nnzsiv4,mythid) |
./pkg/ecco/cost_gencost_seaicev4.F |
292 |
COST_GENCOST_SEAICEV4 |
I localdif,localweight,difmask,nnzsiv4,dosumsq, |
./pkg/ecco/cost_gencost_seaicev4.F |
58 |
COST_GENCOST_SEAICEV4 |
_RL localweight (1-olx:snx+olx,1-oly:sny+oly,1,nsx,nsy) |
./pkg/ecco/cost_gencost_transp.F |
49 |
COST_GENCOST_TRANSP |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
./pkg/ecco/cost_generic.F |
248 |
COST_GENLOOP |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
./pkg/ecco/cost_generic.F |
273 |
COST_GENLOOP |
call ECCO_ZERO(localweight,Nr,zeroRL,myThid) |
./pkg/ecco/cost_generic.F |
340 |
COST_GENLOOP |
call ECCO_ZERO(localweight,nnzobs,zeroRL,myThid) |
./pkg/ecco/cost_generic.F |
342 |
COST_GENLOOP |
& call ECCO_READWEI(fname3,localweight,localrec,nnzobs,mythid) |
./pkg/ecco/cost_generic.F |
385 |
COST_GENLOOP |
I localdif, localweight, difmask, nnzobs, dosumsq, |
./pkg/ecco/cost_generic.F |
413 |
COST_GENLOOP |
I localdifmeanOut, localweight, localdifmsk, nnzobs, dosumsq, |
./pkg/ecco/cost_generic.F |
430 |
COST_GENLOOP |
& WRITE_REC_XY_RL( fname3, localweight,irec, eccoiter, mythid ) |
./pkg/ecco/cost_generic.F |
432 |
COST_GENLOOP |
& WRITE_REC_XYZ_RL( fname3, localweight,irec, eccoiter, mythid ) |