sioseis script to weight and gather two hours of data




sioseis << eof
procs diskin weight geom gather prout diskoa end
diskin
   fday 068 lday 068 fgmt 0000 lgmt 0200
   set 3 6
   ipath /archive/mcs/1997/nbp9702/tape39 end
!   ipath tape40 end
end
weight
   fno 0 lno 99999 twp 1 0  31 0 34 0 38 0 41 0 42 0 47 0 end
end
geom
   navfil sionav type 6 rpadd 1000
   gxp 1 -265 48 -1440 dbrps 12.5 end
end
gather
   end
end
diskoa
   opath gathers.day068-0000z end
end
prout
    fno 0 lno 999999 ftr 1 ltr 1 end
end
end