| File |
Line number |
Procedure |
Code |
|
./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 |
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 |
217 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(fname0w,localweight,localrec,nnzsiv4,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
267 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localobs,nnzsiv4,spzeroloc,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
269 |
COST_GENCOST_SEAICEV4 |
call MDSREADFIELD( fname0, cost_iprec, cost_yftype, nnzsiv4, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
282 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localdif,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
283 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(difmask,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
285 |
COST_GENCOST_SEAICEV4 |
I areabar, nnzbar, localobs, nnzsiv4, localmask, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
292 |
COST_GENCOST_SEAICEV4 |
I localdif,localweight,difmask,nnzsiv4,dosumsq, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
299 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(difmask1,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
300 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localdif,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
301 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localtmp,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
304 |
COST_GENCOST_SEAICEV4 |
I localobs,nnzsiv4,areabar,exconcbar,deconcbar,nnzbar, |
|
./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 |
310 |
COST_GENCOST_SEAICEV4 |
O localtmp,nnzsiv4,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
313 |
COST_GENCOST_SEAICEV4 |
I localdif,localtmp,difmask1,nnzsiv4,dosumsq, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
321 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(difmask1,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
322 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localdif,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
323 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localtmp,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
326 |
COST_GENCOST_SEAICEV4 |
I localobs,nnzsiv4,areabar,exconcbar,deconcbar,nnzbar, |
|
./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_seaicev4.F |
332 |
COST_GENCOST_SEAICEV4 |
O localtmp,nnzsiv4,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
335 |
COST_GENCOST_SEAICEV4 |
I localdif,localtmp,difmask1,nnzsiv4,dosumsq, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
46 |
COST_GENCOST_SEAICEV4 |
integer nnzsiv4, nnzbar |
|
./pkg/ecco/cost_gencost_seaicev4.F |
47 |
COST_GENCOST_SEAICEV4 |
parameter (nnzsiv4 = 1 , nnzbar = 1) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
91 |
COST_GENCOST_SEAICEV4 |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzsiv4,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
92 |
COST_GENCOST_SEAICEV4 |
_RL localtmp (1-olx:snx+olx,1-oly:sny+oly,nnzsiv4,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
93 |
COST_GENCOST_SEAICEV4 |
_RL localdif (1-olx:snx+olx,1-oly:sny+oly,nnzsiv4,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
94 |
COST_GENCOST_SEAICEV4 |
_RL difmask (1-olx:snx+olx,1-oly:sny+oly,nnzsiv4,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
95 |
COST_GENCOST_SEAICEV4 |
_RL difmask1 (1-olx:snx+olx,1-oly:sny+oly,nnzsiv4,nsx,nsy) |