| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_areasst.F |
12 |
SEAICE_COST_AREASST |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/seaice/seaice_cost_areasst.F |
66 |
SEAICE_COST_AREASST |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/seaice/seaice_cost_concentration.F |
237 |
SEAICE_COST_CONCENTRATION |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
244 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
269 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
271 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
272 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
274 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
275 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
296 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
317 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
318 |
SEAICE_COST_CONCENTRATION |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
337 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
338 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
339 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
356 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
366 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
47 |
SEAICE_COST_CONCENTRATION |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
|
./pkg/seaice/seaice_cost_concentration.F |
8 |
SEAICE_COST_CONCENTRATION |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/seaice/seaice_cost_sss.F |
11 |
SEAICE_COST_SSS |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/seaice/seaice_cost_sss.F |
255 |
SEAICE_COST_SSS |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
262 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
277 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
278 |
SEAICE_COST_SSS |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
297 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
298 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
299 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
312 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
336 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
52 |
SEAICE_COST_SSS |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
|
./pkg/seaice/seaice_cost_sst.F |
250 |
SEAICE_COST_SST |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
257 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
272 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
273 |
SEAICE_COST_SST |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
292 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
293 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
294 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
327 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
50 |
SEAICE_COST_SST |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
|
./pkg/seaice/seaice_cost_sst.F |
9 |
SEAICE_COST_SST |
& nnzobs, localobsfile, localobs, mult_local, |
|
./pkg/ecco/cost_generic.F |
142 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
241 |
COST_GENERIC |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_generic.F |
248 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/ecco/cost_generic.F |
267 |
COST_GENERIC |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/cost_generic.F |
268 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/cost_generic.F |
269 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/cost_generic.F |
281 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_generic.F |
95 |
COST_GENERIC |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |