| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
218 |
SEAICE_COST_CONCENTRATION |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_concentration.F |
224 |
SEAICE_COST_CONCENTRATION |
print *,'localrec ',localrec |
|
./pkg/seaice/seaice_cost_concentration.F |
237 |
SEAICE_COST_CONCENTRATION |
localrec = obsrec |
|
./pkg/seaice/seaice_cost_concentration.F |
239 |
SEAICE_COST_CONCENTRATION |
print *,'localrec ', localrec |
|
./pkg/seaice/seaice_cost_concentration.F |
244 |
SEAICE_COST_CONCENTRATION |
if ( localrec .GT. 0 ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
247 |
SEAICE_COST_CONCENTRATION |
print *,'calling mdsreadfile',fname2,localrec |
|
./pkg/seaice/seaice_cost_concentration.F |
251 |
SEAICE_COST_CONCENTRATION |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
97 |
SEAICE_COST_CONCENTRATION |
integer localrec |
|
./pkg/seaice/seaice_cost_sss.F |
233 |
SEAICE_COST_SSS |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sss.F |
239 |
SEAICE_COST_SSS |
print *,'localrec ',localrec |
|
./pkg/seaice/seaice_cost_sss.F |
252 |
SEAICE_COST_SSS |
localrec = obsrec |
|
./pkg/seaice/seaice_cost_sss.F |
254 |
SEAICE_COST_SSS |
print *,'localrec ', localrec |
|
./pkg/seaice/seaice_cost_sss.F |
259 |
SEAICE_COST_SSS |
if ( localrec .GT. 0 ) then |
|
./pkg/seaice/seaice_cost_sss.F |
262 |
SEAICE_COST_SSS |
print *,'calling mdsreadfile',fname2,localrec |
|
./pkg/seaice/seaice_cost_sss.F |
266 |
SEAICE_COST_SSS |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
95 |
SEAICE_COST_SSS |
integer localrec |
|
./pkg/seaice/seaice_cost_sst.F |
233 |
SEAICE_COST_SST |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sst.F |
239 |
SEAICE_COST_SST |
print *,'localrec ',localrec |
|
./pkg/seaice/seaice_cost_sst.F |
252 |
SEAICE_COST_SST |
localrec = obsrec |
|
./pkg/seaice/seaice_cost_sst.F |
254 |
SEAICE_COST_SST |
print *,'localrec ', localrec |
|
./pkg/seaice/seaice_cost_sst.F |
259 |
SEAICE_COST_SST |
if ( localrec .GT. 0 ) then |
|
./pkg/seaice/seaice_cost_sst.F |
262 |
SEAICE_COST_SST |
print *,'calling mdsreadfile',fname2,localrec |
|
./pkg/seaice/seaice_cost_sst.F |
266 |
SEAICE_COST_SST |
& localobs, localrec, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
93 |
SEAICE_COST_SST |
integer localrec |
|
./pkg/ecco/cost_gencal.F |
109 |
COST_GENCAL |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/ecco/cost_gencal.F |
116 |
COST_GENCAL |
localrec = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_gencal.F |
13 |
COST_GENCAL |
O fname1, fname2, localrec, obsrec, exst, |
|
./pkg/ecco/cost_gencal.F |
48 |
COST_GENCAL |
integer localrec, obsrec |
|
./pkg/ecco/cost_gencal.F |
86 |
COST_GENCAL |
localrec = irec |
|
./pkg/ecco/cost_gencost_seaicev4.F |
206 |
COST_GENCOST_SEAICEV4 |
& fname0w, localrec, obsrec, exst, 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 |
216 |
COST_GENCOST_SEAICEV4 |
if ( (localrec. GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
217 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(fname0w,localweight,localrec,nnzsiv4,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
236 |
COST_GENCOST_SEAICEV4 |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
246 |
COST_GENCOST_SEAICEV4 |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
257 |
COST_GENCOST_SEAICEV4 |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
268 |
COST_GENCOST_SEAICEV4 |
if ( (localrec .GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
270 |
COST_GENCOST_SEAICEV4 |
& localobs, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
80 |
COST_GENCOST_SEAICEV4 |
integer localrec |
|
./pkg/ecco/cost_gencost_sstv4.F |
218 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
227 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
235 |
COST_GENCOST_SSTV4 |
if ( ( localrec .GT. 0 ).AND.(diffsecs .GT. 0.d0) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
237 |
COST_GENCOST_SSTV4 |
& tmp_sst, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
376 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
385 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
393 |
COST_GENCOST_SSTV4 |
if ( ( localrec .GT. 0 ).AND.(diffsecs .GT. 0.d0) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
395 |
COST_GENCOST_SSTV4 |
& tmp_sst, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
90 |
COST_GENCOST_SSTV4 |
integer il, localrec |
|
./pkg/ecco/cost_gencost_transp.F |
215 |
COST_GENCOST_TRANSP |
& fname0,localrec,obsrec,exst,mythid) |
|
./pkg/ecco/cost_gencost_transp.F |
42 |
COST_GENCOST_TRANSP |
integer nrecloc, localrec |
|
./pkg/ecco/cost_generic.F |
241 |
COST_GENLOOP |
integer localrec, obsrec |
|
./pkg/ecco/cost_generic.F |
339 |
COST_GENLOOP |
& fname3, localrec, obsrec, exst, mythid ) |
|
./pkg/ecco/cost_generic.F |
341 |
COST_GENLOOP |
if ( (localrec .GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) |
|
./pkg/ecco/cost_generic.F |
342 |
COST_GENLOOP |
& call ECCO_READWEI(fname3,localweight,localrec,nnzobs,mythid) |
|
./pkg/ecco/cost_generic.F |
348 |
COST_GENLOOP |
& fname2, localrec, obsrec, exst, mythid ) |
|
./pkg/ecco/cost_generic.F |
358 |
COST_GENLOOP |
if ( (localrec .GT. 0).AND.(obsrec .GT. 0).AND.(exst) ) |
|
./pkg/ecco/cost_generic.F |
360 |
COST_GENLOOP |
& localobs, localrec, mythid ) |