;Create a file to write NetCDF4 string data.
;===================================================================
 setfileoption("nc", "Format",  "NetCDF4")

 fn = "nc4_wrt_string.nc"
 system("/bin/rm -f " + fn)
 fo = addfile(fn, "c")


;Define some file attributes:
;===================================================================
 fAtt               = True
 fAtt@title         = "NCL generated netCDF 4 file"
 fAtt@source_file   = fn
 fAtt@Conventions   = "None"
 fAtt@creation_date = systemfunc("date")

;print(fAtt)

 fileattdef(fo, fAtt)


strs = new( (/10, 10/), "string")

;Define dimensions:
;===================================================================
 nstrs    = dimsizes(strs)
 dimNames = (/"dim1", "dim2"/)
 dimSizes = (/ nstrs    /)
 dimUnlim = (/ False, False    /)
 filedimdef(fo, dimNames, dimSizes, dimUnlim)


;Define the variable:
;===================================================================
 strsdims = getvardims(strs)

 strsdims = dimNames

 filevardef(fo, "nc4_string", typeof(strs), strsdims)


;Write the compound data out, and close the file:
;===================================================================
 fo->nc4_string = (/strs/)

 delete(fo)