| File |
Line number |
Procedure |
Code |
|
./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 |
164 |
ECCO_DIFFMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
165 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
166 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
170 |
ECCO_DIFFMSK |
& (localbar(i,j,k,bi,bj)-localobs(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
188 |
ECCO_DIFFANOMMSK |
I localobs, localobsmean, nnzobs, |
|
./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 |
260 |
ECCO_DIFFANOMMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
261 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
262 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
267 |
ECCO_DIFFANOMMSK |
& -(localobs(i,j,k,bi,bj)-localobsmean(i,j,k,bi,bj)) ) |
|
./pkg/ecco/ecco_toolbox.F |
284 |
ECCO_OBSMSK |
I localbar, nnzbar, localobs, nnzobs, localmask, |
|
./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 |
353 |
ECCO_OBSMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
354 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
355 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./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 |
73 |
SEAICE_COST_AREASST |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/seaice/seaice_cost_concentration.F |
20 |
SEAICE_COST_CONCENTRATION |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/seaice/seaice_cost_concentration.F |
251 |
SEAICE_COST_CONCENTRATION |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
258 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
283 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
285 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
286 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
288 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
289 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./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 |
331 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
332 |
SEAICE_COST_CONCENTRATION |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
351 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
353 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
370 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
380 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./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_sss.F |
20 |
SEAICE_COST_SSS |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/seaice/seaice_cost_sss.F |
266 |
SEAICE_COST_SSS |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
273 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
288 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
289 |
SEAICE_COST_SSS |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
308 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
310 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
323 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
347 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./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 |
18 |
SEAICE_COST_SST |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/seaice/seaice_cost_sst.F |
266 |
SEAICE_COST_SST |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
273 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
288 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
289 |
SEAICE_COST_SST |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
308 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
309 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
323 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
343 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./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_bp_read.F |
120 |
COST_BP_READ |
& localobs, imonth, mythid ) |
|
./pkg/ecco/cost_bp_read.F |
126 |
COST_BP_READ |
localobs(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_bp_read.F |
145 |
COST_BP_READ |
if (localobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_bp_read.F |
150 |
COST_BP_READ |
localobs(i,j,bi,bj) = localobs(i,j,bi,bj)* |
|
./pkg/ecco/cost_bp_read.F |
44 |
COST_BP_READ |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_bp_read.F |
9 |
COST_BP_READ |
O localobs, localmask, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
187 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localobs,1,spzeroloc,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
267 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localobs,nnzsiv4,spzeroloc,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
270 |
COST_GENCOST_SEAICEV4 |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
285 |
COST_GENCOST_SEAICEV4 |
I areabar, nnzbar, localobs, nnzsiv4, localmask, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
304 |
COST_GENCOST_SEAICEV4 |
I localobs,nnzsiv4,areabar,exconcbar,deconcbar,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
326 |
COST_GENCOST_SEAICEV4 |
I localobs,nnzsiv4,areabar,exconcbar,deconcbar,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
356 |
GET_EXCONC_DECONC |
I localobs,nnzobs,concbar,exconcbar,deconcbar,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
388 |
GET_EXCONC_DECONC |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,1,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
469 |
GET_EXCONC_DECONC |
& (localobs(i,j,k,bi,bj) .GT. 0.) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
504 |
GET_EXCONC_DECONC |
if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area).AND. |
|
./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_generic.F |
250 |
COST_GENLOOP |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
277 |
COST_GENLOOP |
call ECCO_ZERO(localobs,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
357 |
COST_GENLOOP |
call ECCO_ZERO(localobs,nnzobs,spzeroloc,myThid) |
|
./pkg/ecco/cost_generic.F |
360 |
COST_GENLOOP |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_generic.F |
363 |
COST_GENLOOP |
call ECCO_DIFFMSK( localbar, nnzbar, localobs, nnzobs, |