| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_areasst.F |
11 |
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 |
238 |
SEAICE_COST_CONCENTRATION |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
245 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
270 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
272 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
273 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
275 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
276 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
297 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
318 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
319 |
SEAICE_COST_CONCENTRATION |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
338 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
339 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
340 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
357 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
367 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
48 |
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 |
256 |
SEAICE_COST_SSS |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
263 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
278 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
279 |
SEAICE_COST_SSS |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
298 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
299 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
300 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
313 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
337 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
53 |
SEAICE_COST_SSS |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
|
./pkg/seaice/seaice_cost_sst.F |
256 |
SEAICE_COST_SST |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
263 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
278 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
279 |
SEAICE_COST_SST |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
298 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
299 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
300 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
313 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
333 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
51 |
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_gencost_seaicev4.F |
185 |
COST_GENCOST_SEAICEV4 |
localobs(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
312 |
COST_GENCOST_SEAICEV4 |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
319 |
COST_GENCOST_SEAICEV4 |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_seaicev4.F |
372 |
COST_GENCOST_SEAICEV4 |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
373 |
COST_GENCOST_SEAICEV4 |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
374 |
COST_GENCOST_SEAICEV4 |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
411 |
COST_GENCOST_SEAICEV4 |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
426 |
COST_GENCOST_SEAICEV4 |
if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
456 |
COST_GENCOST_SEAICEV4 |
& (localobs(i,j,1,bi,bj) .GT. 0.) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
97 |
COST_GENCOST_SEAICEV4 |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
142 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
248 |
COST_GENERIC |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_generic.F |
255 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/ecco/cost_generic.F |
274 |
COST_GENERIC |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/cost_generic.F |
275 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/cost_generic.F |
276 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/cost_generic.F |
288 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_generic.F |
94 |
COST_GENERIC |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |