forrest@0: ;************************************************
forrest@0: ;    Read ascii, Write nc                         
forrest@0: ;************************************************
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"  
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"  
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"   
forrest@0: ;************************************************
forrest@0: begin
forrest@0:   diri  = "/fis/cgd/cseg/people/jeff/clamp_data/co2/globalView-C4Mip/seas/"
forrest@0:   b = (/"zot005_45D2_seas.co2", "zot015_45D2_seas.co2"/)
forrest@0:   do n = 0,1
forrest@0:      print (b(n))                   
forrest@0:      ncol1 = 4
forrest@0:      data1 = readAsciiTable(diri+b(n), ncol1, "float", (/10,17/))
forrest@0:      print (data1)
forrest@0: 
forrest@0:      ncol2 = 5
forrest@0:      data2 = readAsciiTable(diri+b(n), ncol2, "float", 16)
forrest@0:      print (data2)
forrest@0:   end do
forrest@0:   
forrest@0: end