diff -r 000000000000 -r 0c6405ab2ff4 co2/03.test.read.ncl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/co2/03.test.read.ncl	Mon Jan 26 22:08:20 2009 -0500
@@ -0,0 +1,249 @@
+;************************************************
+;    Read ascii, Write nc                         
+;************************************************
+load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"  
+load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"  
+load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"   
+;************************************************
+begin
+  diri  = "/fis/cgd/cseg/people/jeff/clamp_data/co2/globalView-C4Mip/seas/"
+  b = (/ \
+"aia005_02D2_seas.co2", \
+"aia015_02D2_seas.co2", \
+"aia025_02D2_seas.co2", \
+"aia035_02D2_seas.co2", \
+"aia045_02D2_seas.co2", \
+"aia055_02D2_seas.co2", \
+"aia065_02D2_seas.co2", \
+"alt_01D0_seas.co2", \
+"alt_02D0_seas.co2", \
+"alt_04D0_seas.co2", \
+"alt_06C0_seas.co2", \
+"alt_06D0_seas.co2", \
+"ams_01D0_seas.co2", \
+"ams_11C0_seas.co2", \
+"asc_01D0_seas.co2", \
+"ask_01D0_seas.co2", \
+"avi_01D0_seas.co2", \
+"azr_01D0_seas.co2", \
+"bal_01D1_seas.co2", \
+"bgu_11D0_seas.co2", \
+"bhd_15C0_seas.co2", \
+"bme_01D0_seas.co2", \
+"bmw_01D0_seas.co2", \
+"brw_01C0_seas.co2", \
+"brw_01D0_seas.co2", \
+"bsc_01D0_seas.co2", \
+"car030_01D2_seas.co2", \
+"car040_01D2_seas.co2", \
+"car050_01D2_seas.co2", \
+"car060_01D2_seas.co2", \
+"car070_01D2_seas.co2", \
+"car080_01D2_seas.co2", \
+"cba_01D0_seas.co2", \
+"cba_04D0_seas.co2", \
+"cfa_02D0_seas.co2", \
+"cgo_01D0_seas.co2", \
+"cgo_02D0_seas.co2", \
+"cgo_04D0_seas.co2", \
+"chr_01D0_seas.co2", \
+"cmn_17C0_seas.co2", \
+"cmo_01D0_seas.co2", \
+"coi_20C0_seas.co2", \
+"cpt_36C0_seas.co2", \
+"cri_02D0_seas.co2", \
+"crz_01D0_seas.co2", \
+"csj_06D0_seas.co2", \
+"daa_02D0_seas.co2", \
+"eic_01D0_seas.co2", \
+"esp005_01D2_seas.co2", \
+"esp015_01D2_seas.co2", \
+"esp025_01D2_seas.co2", \
+"esp035_01D2_seas.co2", \
+"esp045_01D2_seas.co2", \
+"esp055_01D2_seas.co2", \
+"esp_02D0_seas.co2", \
+"esp_06D0_seas.co2", \
+"frd040_06C3_seas.co2", \
+"gmi_01D0_seas.co2", \
+"goz_01D0_seas.co2", \
+"gsn_24D0_seas.co2", \
+"haa005_01D2_seas.co2", \
+"haa015_01D2_seas.co2", \
+"haa025_01D2_seas.co2", \
+"haa035_01D2_seas.co2", \
+"haa045_01D2_seas.co2", \
+"haa055_01D2_seas.co2", \
+"haa065_01D2_seas.co2", \
+"haa075_01D2_seas.co2", \
+"hat_20C0_seas.co2", \
+"hba_01D0_seas.co2", \
+"hfm005_01D2_seas.co2", \
+"hfm015_01D2_seas.co2", \
+"hfm025_01D2_seas.co2", \
+"hfm035_01D2_seas.co2", \
+"hfm045_01D2_seas.co2", \
+"hfm055_01D2_seas.co2", \
+"hfm065_01D2_seas.co2", \
+"hfm075_01D2_seas.co2", \
+"hun010_35C3_seas.co2", \
+"hun048_35C3_seas.co2", \
+"hun082_35C3_seas.co2", \
+"hun115_35C3_seas.co2", \
+"hun_01D0_seas.co2", \
+"ice_01D0_seas.co2", \
+"itn051_01C3_seas.co2", \
+"itn123_01C3_seas.co2", \
+"itn496_01C3_seas.co2", \
+"itn_01D0_seas.co2", \
+"izo_01D0_seas.co2", \
+"izo_27C0_seas.co2", \
+"jbn_29C0_seas.co2", \
+"key_01D0_seas.co2", \
+"kum_01D0_seas.co2", \
+"kum_04D0_seas.co2", \
+"kzd_01D0_seas.co2", \
+"kzm_01D0_seas.co2", \
+"lef011_01C3_seas.co2", \
+"lef030_01C3_seas.co2", \
+"lef076_01C3_seas.co2", \
+"lef122_01C3_seas.co2", \
+"lef244_01C3_seas.co2", \
+"lef396_01C3_seas.co2", \
+"lef_01D0_seas.co2", \
+"ljo_04D0_seas.co2", \
+"lmp_28D0_seas.co2", \
+"maa_02D0_seas.co2", \
+"mbc_01D0_seas.co2", \
+"mhd_01D0_seas.co2", \
+"mhdcbc_11C0_seas.co2", \
+"mhdrbc_11C0_seas.co2", \
+"mid_01D0_seas.co2", \
+"mlo_01C0_seas.co2", \
+"mlo_01D0_seas.co2", \
+"mlo_02D0_seas.co2", \
+"mlo_04D0_seas.co2", \
+"mnm_19C0_seas.co2", \
+"mqa_02D0_seas.co2", \
+"nwr_01D0_seas.co2", \
+"obs023_06C3_seas.co2", \
+"opw_01D0_seas.co2", \
+"orl005_11D2_seas.co2", \
+"orl015_11D2_seas.co2", \
+"orl025_11D2_seas.co2", \
+"orl035_11D2_seas.co2", \
+"palcbc_30C0_seas.co2", \
+"palmbc_30C0_seas.co2", \
+"pdm_11D0_seas.co2", \
+"pfa015_01D2_seas.co2", \
+"pfa025_01D2_seas.co2", \
+"pfa035_01D2_seas.co2", \
+"pfa045_01D2_seas.co2", \
+"pfa055_01D2_seas.co2", \
+"pfa065_01D2_seas.co2", \
+"pfa075_01D2_seas.co2", \
+"poc000_01D1_seas.co2", \
+"pocn05_01D1_seas.co2", \
+"pocn10_01D1_seas.co2", \
+"pocn15_01D1_seas.co2", \
+"pocn20_01D1_seas.co2", \
+"pocn25_01D1_seas.co2", \
+"pocn30_01D1_seas.co2", \
+"pocn35_01D1_seas.co2", \
+"pocn40_01D1_seas.co2", \
+"pocn45_01D1_seas.co2", \
+"pocs05_01D1_seas.co2", \
+"pocs10_01D1_seas.co2", \
+"pocs15_01D1_seas.co2", \
+"pocs20_01D1_seas.co2", \
+"pocs25_01D1_seas.co2", \
+"pocs30_01D1_seas.co2", \
+"pocs35_01D1_seas.co2", \
+"prs_21C0_seas.co2", \
+"prs_21D0_seas.co2", \
+"psa_01D0_seas.co2", \
+"psa_04D0_seas.co2", \
+"rpb_01D0_seas.co2", \
+"rta005_01D2_seas.co2", \
+"rta015_01D2_seas.co2", \
+"rta025_01D2_seas.co2", \
+"rta035_01D2_seas.co2", \
+"rta045_01D2_seas.co2", \
+"ryo_19C0_seas.co2", \
+"sbl_06C0_seas.co2", \
+"sbl_06D0_seas.co2", \
+"sch_23C0_seas.co2", \
+"scsn03_01D1_seas.co2", \
+"scsn06_01D1_seas.co2", \
+"scsn09_01D1_seas.co2", \
+"scsn12_01D1_seas.co2", \
+"scsn15_01D1_seas.co2", \
+"scsn18_01D1_seas.co2", \
+"scsn21_01D1_seas.co2", \
+"sey_01D0_seas.co2", \
+"shm_01D0_seas.co2", \
+"sis_02D0_seas.co2", \
+"smo_01C0_seas.co2", \
+"smo_01D0_seas.co2", \
+"smo_04D0_seas.co2", \
+"spo_01C0_seas.co2", \
+"spo_01D0_seas.co2", \
+"spo_02D0_seas.co2", \
+"spo_04D0_seas.co2", \
+"stm_01D0_seas.co2", \
+"stmebc_01D0_seas.co2", \
+"stp_12D0_seas.co2", \
+"sum_01D0_seas.co2", \
+"syo_01D0_seas.co2", \
+"syo_09C0_seas.co2", \
+"tap_01D0_seas.co2", \
+"tdf_01D0_seas.co2", \
+"trm_11D0_seas.co2", \
+"uta_01D0_seas.co2", \
+"uum_01D0_seas.co2", \
+"wes_23C0_seas.co2", \
+"wis_01D0_seas.co2", \
+"wkt009_01C3_seas.co2", \
+"wkt030_01C3_seas.co2", \
+"wkt061_01C3_seas.co2", \
+"wkt122_01C3_seas.co2", \
+"wkt244_01C3_seas.co2", \
+"wkt457_01C3_seas.co2", \
+"wlg_01D0_seas.co2", \
+"wlg_33C0_seas.co2", \
+"wpo000_10D2_seas.co2", \
+"wpon05_10D2_seas.co2", \
+"wpon10_10D2_seas.co2", \
+"wpon15_10D2_seas.co2", \
+"wpon20_10D2_seas.co2", \
+"wpon25_10D2_seas.co2", \
+"wpon30_10D2_seas.co2", \
+"wpos05_10D2_seas.co2", \
+"wpos10_10D2_seas.co2", \
+"wpos15_10D2_seas.co2", \
+"wpos20_10D2_seas.co2", \
+"wpos25_10D2_seas.co2", \
+"yon_19C0_seas.co2", \
+"zep_01D0_seas.co2", \
+"zep_31C0_seas.co2", \
+"zot005_45D2_seas.co2", \
+"zot015_45D2_seas.co2", \
+"zot025_45D2_seas.co2", \
+"zot035_45D2_seas.co2"/)
+
+print (dimsizes(b))
+exit
+  do n = 0,dimsizes(b)-1
+     print (b(n))
+  end do
+  exit                   
+     ncol1 = 4
+     data1 = readAsciiTable(diri+b(n), ncol1, "float", (/10,17/))
+     print (data1)
+
+     ncol2 = 5
+     data2 = readAsciiTable(diri+b(n), ncol2, "float", 16)
+     print (data2)
+; end do
+  
+end