File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_toolbox.F |
119 |
ECCO_DIFFMSK |
INTEGER nnzobs, nnzbar |
./pkg/ecco/ecco_toolbox.F |
122 |
ECCO_DIFFMSK |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
124 |
ECCO_DIFFMSK |
_RL localdif (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
125 |
ECCO_DIFFMSK |
_RL difmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
155 |
ECCO_DIFFMSK |
do k = 1,nnzobs |
./pkg/ecco/ecco_toolbox.F |
188 |
ECCO_DIFFANOMMSK |
I localobs, localobsmean, nnzobs, |
./pkg/ecco/ecco_toolbox.F |
213 |
ECCO_DIFFANOMMSK |
INTEGER nnzobs, nnzbar |
./pkg/ecco/ecco_toolbox.F |
217 |
ECCO_DIFFANOMMSK |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
218 |
ECCO_DIFFANOMMSK |
_RL localobsmean (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
220 |
ECCO_DIFFANOMMSK |
_RL localdif (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
221 |
ECCO_DIFFANOMMSK |
_RL difmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
251 |
ECCO_DIFFANOMMSK |
do k = 1,nnzobs |
./pkg/ecco/ecco_toolbox.F |
284 |
ECCO_OBSMSK |
I localbar, nnzbar, localobs, nnzobs, localmask, |
./pkg/ecco/ecco_toolbox.F |
308 |
ECCO_OBSMSK |
INTEGER nnzobs, nnzbar |
./pkg/ecco/ecco_toolbox.F |
311 |
ECCO_OBSMSK |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
313 |
ECCO_OBSMSK |
_RL localout (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
314 |
ECCO_OBSMSK |
_RL obsmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
344 |
ECCO_OBSMSK |
do k = 1,nnzobs |
./pkg/ecco/ecco_toolbox.F |
522 |
ECCO_ADDCOST |
I localdif, localweight, difmask, nnzobs, dosumsq, |
./pkg/ecco/ecco_toolbox.F |
545 |
ECCO_ADDCOST |
INTEGER nnzobs |
./pkg/ecco/ecco_toolbox.F |
547 |
ECCO_ADDCOST |
_RL localdif (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./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 |
549 |
ECCO_ADDCOST |
_RL difmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/ecco_toolbox.F |
588 |
ECCO_ADDCOST |
do k = 1,nnzobs |
./pkg/ecco/ecco_toolbox.F |
95 |
ECCO_DIFFMSK |
I localbar, nnzbar, localobs, nnzobs, localmask, |
./pkg/seaice/seaice_cost_areasst.F |
20 |
SEAICE_COST_AREASST |
& nnzobs, localobsfile, localobs, mult_local, |
./pkg/seaice/seaice_cost_areasst.F |
66 |
SEAICE_COST_AREASST |
integer nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
109 |
SEAICE_COST_CONCENTRATION |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
./pkg/seaice/seaice_cost_concentration.F |
20 |
SEAICE_COST_CONCENTRATION |
& nnzobs, localobsfile, localobs, mult_local, |
./pkg/seaice/seaice_cost_concentration.F |
250 |
SEAICE_COST_CONCENTRATION |
call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs, |
./pkg/seaice/seaice_cost_concentration.F |
255 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
269 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
328 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
347 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
360 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
55 |
SEAICE_COST_CONCENTRATION |
integer nnzobs |
./pkg/seaice/seaice_cost_concentration.F |
62 |
SEAICE_COST_CONCENTRATION |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/seaice/seaice_cost_driver.F |
101 |
SEAICE_COST_DRIVER |
& nnzobs, smrareadatfile, smrareadat, mult_smrsst, |
./pkg/seaice/seaice_cost_driver.F |
112 |
SEAICE_COST_DRIVER |
& nnzobs, smrareadatfile, smrareadat, mult_smrsss, |
./pkg/seaice/seaice_cost_driver.F |
65 |
SEAICE_COST_DRIVER |
integer nnzobs |
./pkg/seaice/seaice_cost_driver.F |
80 |
SEAICE_COST_DRIVER |
nnzobs = 1 |
./pkg/seaice/seaice_cost_driver.F |
90 |
SEAICE_COST_DRIVER |
& nnzobs, smrareadatfile, smrareadat, mult_smrarea, |
./pkg/seaice/seaice_cost_sss.F |
107 |
SEAICE_COST_SSS |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
./pkg/seaice/seaice_cost_sss.F |
20 |
SEAICE_COST_SSS |
& nnzobs, localobsfile, localobs, mult_local, |
./pkg/seaice/seaice_cost_sss.F |
265 |
SEAICE_COST_SSS |
call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs, |
./pkg/seaice/seaice_cost_sss.F |
270 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sss.F |
285 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sss.F |
304 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sss.F |
317 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sss.F |
55 |
SEAICE_COST_SSS |
integer nnzobs |
./pkg/seaice/seaice_cost_sss.F |
64 |
SEAICE_COST_SSS |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/seaice/seaice_cost_sst.F |
105 |
SEAICE_COST_SST |
_RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs) |
./pkg/seaice/seaice_cost_sst.F |
18 |
SEAICE_COST_SST |
& nnzobs, localobsfile, localobs, mult_local, |
./pkg/seaice/seaice_cost_sst.F |
265 |
SEAICE_COST_SST |
call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs, |
./pkg/seaice/seaice_cost_sst.F |
270 |
SEAICE_COST_SST |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sst.F |
285 |
SEAICE_COST_SST |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sst.F |
304 |
SEAICE_COST_SST |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sst.F |
317 |
SEAICE_COST_SST |
do k = 1,nnzobs |
./pkg/seaice/seaice_cost_sst.F |
53 |
SEAICE_COST_SST |
integer nnzobs |
./pkg/seaice/seaice_cost_sst.F |
62 |
SEAICE_COST_SST |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
./pkg/ecco/cost_gencost_all.F |
44 |
COST_GENCOST_ALL |
integer nnzobs |
./pkg/ecco/cost_gencost_all.F |
68 |
COST_GENCOST_ALL |
nnzobs = 1 |
./pkg/ecco/cost_gencost_all.F |
71 |
COST_GENCOST_ALL |
nnzobs = nr |
./pkg/ecco/cost_gencost_all.F |
79 |
COST_GENCOST_ALL |
& nnzobs, gencost_datafile(k), gencost_errfile(k), |
./pkg/ecco/cost_gencost_seaicev4.F |
356 |
GET_EXCONC_DECONC |
I localobs,nnzobs,concbar,exconcbar,deconcbar,nnzbar, |
./pkg/ecco/cost_gencost_seaicev4.F |
385 |
GET_EXCONC_DECONC |
integer mythid, nnzbar, nnzobs |
./pkg/ecco/cost_gencost_seaicev4.F |
448 |
GET_EXCONC_DECONC |
call ECCO_ZERO(localfld,nnzobs,zeroRL,myThid) |
./pkg/ecco/cost_gencost_seaicev4.F |
449 |
GET_EXCONC_DECONC |
call ECCO_ZERO(localfldmsk,nnzobs,zeroRL,myThid) |
./pkg/ecco/cost_gencost_seaicev4.F |
450 |
GET_EXCONC_DECONC |
call ECCO_ZERO(localfldweight,nnzobs,zeroRL,myThid) |
./pkg/ecco/cost_gencost_seaicev4.F |
464 |
GET_EXCONC_DECONC |
do k = 1,nnzobs |
./pkg/ecco/cost_gencost_seaicev4.F |
500 |
GET_EXCONC_DECONC |
do k = 1,nnzobs |
./pkg/ecco/cost_gencost_transp.F |
243 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localtmp,nnzobs,oneRL,mythid) |
./pkg/ecco/cost_gencost_transp.F |
244 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localdif,nnzobs,zeroRL,mythid) |
./pkg/ecco/cost_gencost_transp.F |
245 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(difmask,nnzobs,zeroRL,mythid) |
./pkg/ecco/cost_gencost_transp.F |
250 |
COST_GENCOST_TRANSP |
I mybar, nnzbar, myobs, nnzobs, localtmp, |
./pkg/ecco/cost_gencost_transp.F |
255 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localtmp,nnzobs,oneRL,mythid) |
./pkg/ecco/cost_gencost_transp.F |
257 |
COST_GENCOST_TRANSP |
I localdif,localtmp,difmask,nnzobs,dosumsq, |
./pkg/ecco/cost_gencost_transp.F |
40 |
COST_GENCOST_TRANSP |
integer nnzobs, nnzbar |
./pkg/ecco/cost_gencost_transp.F |
41 |
COST_GENCOST_TRANSP |
parameter (nnzbar = Nr, nnzobs = Nr) |
./pkg/ecco/cost_generic.F |
123 |
COST_GENERIC |
& nnzobs, localobsfile, localerrfile, |
./pkg/ecco/cost_generic.F |
12 |
COST_GENERIC |
& nnzobs, localobsfile, localerrfile, |
./pkg/ecco/cost_generic.F |
140 |
COST_GENERIC |
& nnzobs, localobsfile, localerrfile, |
./pkg/ecco/cost_generic.F |
161 |
COST_GENLOOP |
& nnzobs, localobsfile, localerrfile, |
./pkg/ecco/cost_generic.F |
199 |
COST_GENLOOP |
integer nnzbar, nnzobs |
./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 |
357 |
COST_GENLOOP |
call ECCO_ZERO(localobs,nnzobs,spzeroloc,myThid) |
./pkg/ecco/cost_generic.F |
359 |
COST_GENLOOP |
& call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs, |
./pkg/ecco/cost_generic.F |
363 |
COST_GENLOOP |
call ECCO_DIFFMSK( localbar, nnzbar, localobs, nnzobs, |
./pkg/ecco/cost_generic.F |
368 |
COST_GENLOOP |
& nnzobs, localdif, nnzobs, myThid ) |
./pkg/ecco/cost_generic.F |
371 |
COST_GENLOOP |
& call ECCO_ADDMASK(localdif,difmask, nnzobs,localdifsum, |
./pkg/ecco/cost_generic.F |
372 |
COST_GENLOOP |
& localdifnum, nnzobs,myThid) |
./pkg/ecco/cost_generic.F |
378 |
COST_GENLOOP |
& (nnzbar.EQ.1).AND.(nnzobs.EQ.1) ) |
./pkg/ecco/cost_generic.F |
385 |
COST_GENLOOP |
I localdif, localweight, difmask, nnzobs, dosumsq, |
./pkg/ecco/cost_generic.F |
393 |
COST_GENLOOP |
if ( nnzobs.EQ.1 ) CALL |
./pkg/ecco/cost_generic.F |
395 |
COST_GENLOOP |
if ( nnzobs.EQ.nr ) CALL |
./pkg/ecco/cost_generic.F |
405 |
COST_GENLOOP |
call ECCO_CP(localdifsum,nnzobs,localdifmeanOut,nnzobs,myThid) |
./pkg/ecco/cost_generic.F |
406 |
COST_GENLOOP |
call ECCO_DIVFIELD(localdifmeanOut,nnzobs,localdifnum,myThid) |
./pkg/ecco/cost_generic.F |
407 |
COST_GENLOOP |
call ECCO_CP(localdifnum,nnzobs,localdifmsk,nnzobs,myThid) |
./pkg/ecco/cost_generic.F |
408 |
COST_GENLOOP |
call ECCO_DIVFIELD(localdifmsk,nnzobs,localdifnum,myThid) |
./pkg/ecco/cost_generic.F |
413 |
COST_GENLOOP |
I localdifmeanOut, localweight, localdifmsk, nnzobs, dosumsq, |
./pkg/ecco/cost_generic.F |
420 |
COST_GENLOOP |
if ( nnzobs.EQ.1 ) CALL |
./pkg/ecco/cost_generic.F |
422 |
COST_GENLOOP |
if ( nnzobs.EQ.nr ) CALL |
./pkg/ecco/cost_generic.F |
429 |
COST_GENLOOP |
if ( nnzobs.EQ.1 ) CALL |
./pkg/ecco/cost_generic.F |
431 |
COST_GENLOOP |
if ( nnzobs.EQ.nr ) CALL |
./pkg/ecco/cost_generic.F |
50 |
COST_GENERIC |
integer nnzbar, nnzobs |
./pkg/ecco/cost_hyd.F |
102 |
COST_HYD |
nnzobs = 1 |
./pkg/ecco/cost_hyd.F |
111 |
COST_HYD |
& nnzobs, sstdatfile, ssterrfile, mult_sst, |
./pkg/ecco/cost_hyd.F |
127 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
135 |
COST_HYD |
& nnzobs, argotfile, temperrfile, mult_argot, |
./pkg/ecco/cost_hyd.F |
149 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
157 |
COST_HYD |
& nnzobs, ctdtfile, temperrfile, mult_ctdt, |
./pkg/ecco/cost_hyd.F |
171 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
179 |
COST_HYD |
& nnzobs, xbtfile, temperrfile, mult_xbt, |
./pkg/ecco/cost_hyd.F |
194 |
COST_HYD |
nnzobs = 1 |
./pkg/ecco/cost_hyd.F |
202 |
COST_HYD |
& nnzobs, tmidatfile, ssterrfile, mult_tmi, |
./pkg/ecco/cost_hyd.F |
218 |
COST_HYD |
nnzobs = 1 |
./pkg/ecco/cost_hyd.F |
226 |
COST_HYD |
& nnzobs, sssdatfile, ssterrfile, mult_sss, |
./pkg/ecco/cost_hyd.F |
241 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
249 |
COST_HYD |
& nnzobs, ctdsfile, salterrfile, mult_ctds, |
./pkg/ecco/cost_hyd.F |
263 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
271 |
COST_HYD |
& nnzobs, argosfile, salterrfile, mult_argos, |
./pkg/ecco/cost_hyd.F |
307 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
315 |
COST_HYD |
& nnzobs, tdatfile, temperrfile, mult_temp, |
./pkg/ecco/cost_hyd.F |
329 |
COST_HYD |
nnzobs = Nr |
./pkg/ecco/cost_hyd.F |
337 |
COST_HYD |
& nnzobs, sdatfile, salterrfile, mult_salt, |
./pkg/ecco/cost_hyd.F |
401 |
COST_HYD |
nnzobs = 1 |
./pkg/ecco/cost_hyd.F |
409 |
COST_HYD |
& nnzobs, smrareadatfile, smrareadat, mult_smrarea, |
./pkg/ecco/cost_hyd.F |
59 |
COST_HYD |
integer nnzobs |
./pkg/ecco/cost_hyd.F |
80 |
COST_HYD |
nnzobs = 1 |
./pkg/ecco/cost_hyd.F |
88 |
COST_HYD |
& nnzobs, sstdatfile, ssterrfile, mult_sst, |