| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_sss.F |
109 |
SEAICE_COST_SSS |
character*(128) fname1, fname2,fname3 |
|
./pkg/seaice/seaice_cost_sss.F |
157 |
SEAICE_COST_SSS |
write(fname3(1:128),'(80a)') ' ' |
|
./pkg/seaice/seaice_cost_sss.F |
165 |
SEAICE_COST_SSS |
write(fname3(1:128),'(2a,i10.10)') |
|
./pkg/seaice/seaice_cost_sss.F |
185 |
SEAICE_COST_SSS |
call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
189 |
SEAICE_COST_SSS |
call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
107 |
SEAICE_COST_SST |
character*(128) fname1, fname2,fname3 |
|
./pkg/seaice/seaice_cost_sst.F |
159 |
SEAICE_COST_SST |
write(fname3(1:128),'(80a)') ' ' |
|
./pkg/seaice/seaice_cost_sst.F |
166 |
SEAICE_COST_SST |
write(fname3(1:128),'(2a,i10.10)') |
|
./pkg/seaice/seaice_cost_sst.F |
185 |
SEAICE_COST_SST |
call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
189 |
SEAICE_COST_SST |
call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread, |
|
./pkg/ecco/cost_generic.F |
260 |
COST_GENLOOP |
character*(128) fname1, fname2, fname3 |
|
./pkg/ecco/cost_generic.F |
339 |
COST_GENLOOP |
& fname3, localrec, obsrec, exst, mythid ) |
|
./pkg/ecco/cost_generic.F |
342 |
COST_GENLOOP |
& call ECCO_READWEI(fname3,localweight,localrec,nnzobs,mythid) |
|
./pkg/ecco/cost_generic.F |
392 |
COST_GENLOOP |
write(fname3(1:128),'(2a)') 'misfit_', outname(1:il) |
|
./pkg/ecco/cost_generic.F |
394 |
COST_GENLOOP |
& WRITE_REC_XY_RL( fname3, localdif,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_generic.F |
396 |
COST_GENLOOP |
& WRITE_REC_XYZ_RL( fname3, localdif,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_generic.F |
419 |
COST_GENLOOP |
write(fname3(1:128),'(2a)') 'misfit_', outname(1:il) |
|
./pkg/ecco/cost_generic.F |
421 |
COST_GENLOOP |
& WRITE_REC_XY_RL(fname3,localdifmeanOut,1,eccoiter,mythid) |
|
./pkg/ecco/cost_generic.F |
423 |
COST_GENLOOP |
& WRITE_REC_XYZ_RL(fname3,localdifmeanOut,1,eccoiter,mythid) |
|
./pkg/ecco/cost_generic.F |
428 |
COST_GENLOOP |
write(fname3(1:128),'(2a)') 'weight_', outname(1:il) |
|
./pkg/ecco/cost_generic.F |
430 |
COST_GENLOOP |
& WRITE_REC_XY_RL( fname3, localweight,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_generic.F |
432 |
COST_GENLOOP |
& WRITE_REC_XYZ_RL( fname3, localweight,irec, eccoiter, mythid ) |