netCDF Creation problem

Hi,

I tried to create netCDF file as same procedure in Application example
of NCL homepage as follows.
But I had error message and I don't know the reason.
output file is stream function and its dimension is (time,lat,lon).
Thank you for help in advance!
Sincerely!
Hee-Jeong

;************************************************
; outfile = stream function
;************************************************
  fout = addfile("stream.trunc.grid."+fyr+".nc","c")
  setfileoption(fout,"DefineMode",True)
  fileAtt = True
  fileAtt_at_creation_date = systemfunc("date")
  fileattdef(fout,fileAtt)
  dimNames = (/"time","lat","lon"/)
  dimSizes = (/nt,nlat,nlon/)
  dimUnlim = (/False,False, False/)
  filedimdef(fout,dimNames,dimSizes,dimUnlim)
  filevarattdef(fout,"sf",sf)
  filevardef (fout,"time",typeof(time),getvardims(time))
  filevardef (fout,"lat" ,typeof(lat) ,getvardims(lat))
  filevardef (fout,"lon" ,typeof(lon) ,getvardims(lon))
  filevardef (fout,"sf" ,typeof(sf) ,getvardims(sf))
  fout->time = (/time/)
  fout->lat = (/lat/)
  fout->lon = (/lon/)
  fout->sf = (/sf/)

_______________________________________________
ncl-talk mailing list
ncl-talk_at_ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Tue Jul 18 2006 - 11:25:36 MDT