;; Example HOPS script #5
;; append_file: Append data to a hyperslab netCDF file

;; Open 1 year of prognostic ocean data (24 samples at half-month intervals)
;; for a 3-degree NCAR Ocean Model integration
;; (converted to CSM netCDF format using Frank Bryan's filters)

hopen, "/data/large1/CSM/3x3/G03-4.24/Y0989_0990_p.nc"

;; Get SST for first two samples, and save it to a file
SST12= hget("T",t=[1,2],z=1,subscript=1)
hsave,"sst.nc",SST12

;; Get SST for third and fifth samples, and append to file
SST35= hget("T",t=[3,5],z=1,subscript=1)
hopen,"sst.nc",fstruc,alt=1,append=1
happend,fstruc,SST35
hclose,fstruc

end