| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
204 |
SEAICE_COST_CONCENTRATION |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_concentration.F |
210 |
SEAICE_COST_CONCENTRATION |
print *,'localrec ',localrec |
|
./pkg/seaice/seaice_cost_concentration.F |
223 |
SEAICE_COST_CONCENTRATION |
localrec = obsrec |
|
./pkg/seaice/seaice_cost_concentration.F |
225 |
SEAICE_COST_CONCENTRATION |
print *,'localrec ', localrec |
|
./pkg/seaice/seaice_cost_concentration.F |
230 |
SEAICE_COST_CONCENTRATION |
if ( localrec .GT. 0 ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
233 |
SEAICE_COST_CONCENTRATION |
print *,'calling mdsreadfile',fname2,localrec |
|
./pkg/seaice/seaice_cost_concentration.F |
237 |
SEAICE_COST_CONCENTRATION |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
80 |
SEAICE_COST_CONCENTRATION |
integer localrec |
|
./pkg/seaice/seaice_cost_sss.F |
222 |
SEAICE_COST_SSS |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sss.F |
228 |
SEAICE_COST_SSS |
print *,'localrec ',localrec |
|
./pkg/seaice/seaice_cost_sss.F |
241 |
SEAICE_COST_SSS |
localrec = obsrec |
|
./pkg/seaice/seaice_cost_sss.F |
243 |
SEAICE_COST_SSS |
print *,'localrec ', localrec |
|
./pkg/seaice/seaice_cost_sss.F |
248 |
SEAICE_COST_SSS |
if ( localrec .GT. 0 ) then |
|
./pkg/seaice/seaice_cost_sss.F |
251 |
SEAICE_COST_SSS |
print *,'calling mdsreadfile',fname2,localrec |
|
./pkg/seaice/seaice_cost_sss.F |
255 |
SEAICE_COST_SSS |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
81 |
SEAICE_COST_SSS |
integer localrec |
|
./pkg/seaice/seaice_cost_sst.F |
217 |
SEAICE_COST_SST |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sst.F |
223 |
SEAICE_COST_SST |
print *,'localrec ',localrec |
|
./pkg/seaice/seaice_cost_sst.F |
236 |
SEAICE_COST_SST |
localrec = obsrec |
|
./pkg/seaice/seaice_cost_sst.F |
238 |
SEAICE_COST_SST |
print *,'localrec ', localrec |
|
./pkg/seaice/seaice_cost_sst.F |
243 |
SEAICE_COST_SST |
if ( localrec .GT. 0 ) then |
|
./pkg/seaice/seaice_cost_sst.F |
246 |
SEAICE_COST_SST |
print *,'calling mdsreadfile',fname2,localrec |
|
./pkg/seaice/seaice_cost_sst.F |
250 |
SEAICE_COST_SST |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
79 |
SEAICE_COST_SST |
integer localrec |
|
./pkg/ecco/cost_gencost_sstv4.F |
184 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
190 |
COST_GENCOST_SSTV4 |
if ( localrec .GT. 0 ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
192 |
COST_GENCOST_SSTV4 |
& tmp_sst, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
322 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
328 |
COST_GENCOST_SSTV4 |
if ( localrec .GT. 0 ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
330 |
COST_GENCOST_SSTV4 |
& tmp_sst, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
87 |
COST_GENCOST_SSTV4 |
integer il, localrec |
|
./pkg/ecco/cost_generic.F |
214 |
COST_GENERIC |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/ecco/cost_generic.F |
227 |
COST_GENERIC |
localrec = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_generic.F |
236 |
COST_GENERIC |
localrec = obsrec |
|
./pkg/ecco/cost_generic.F |
239 |
COST_GENERIC |
if ( localrec .GT. 0 ) then |
|
./pkg/ecco/cost_generic.F |
241 |
COST_GENERIC |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_generic.F |
82 |
COST_GENERIC |
integer localrec |