load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"

begin
; Spherical flag
    sflag = new(1,"character")
    str = stringtocharacter("F")
    print(str)
    sflag = str(0)
    print(sflag)
    sflag!0 = "ncl_scalar"
    sflag@long_name = "Grid type logical switch"
    sflag@option_T = "spherical"
    sflag@option_F = "Cartesian"
end