1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/co2/03.test.read.ncl Mon Jan 26 22:08:20 2009 -0500
1.3 @@ -0,0 +1,249 @@
1.4 +;************************************************
1.5 +; Read ascii, Write nc
1.6 +;************************************************
1.7 +load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
1.8 +load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
1.9 +load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
1.10 +;************************************************
1.11 +begin
1.12 + diri = "/fis/cgd/cseg/people/jeff/clamp_data/co2/globalView-C4Mip/seas/"
1.13 + b = (/ \
1.14 +"aia005_02D2_seas.co2", \
1.15 +"aia015_02D2_seas.co2", \
1.16 +"aia025_02D2_seas.co2", \
1.17 +"aia035_02D2_seas.co2", \
1.18 +"aia045_02D2_seas.co2", \
1.19 +"aia055_02D2_seas.co2", \
1.20 +"aia065_02D2_seas.co2", \
1.21 +"alt_01D0_seas.co2", \
1.22 +"alt_02D0_seas.co2", \
1.23 +"alt_04D0_seas.co2", \
1.24 +"alt_06C0_seas.co2", \
1.25 +"alt_06D0_seas.co2", \
1.26 +"ams_01D0_seas.co2", \
1.27 +"ams_11C0_seas.co2", \
1.28 +"asc_01D0_seas.co2", \
1.29 +"ask_01D0_seas.co2", \
1.30 +"avi_01D0_seas.co2", \
1.31 +"azr_01D0_seas.co2", \
1.32 +"bal_01D1_seas.co2", \
1.33 +"bgu_11D0_seas.co2", \
1.34 +"bhd_15C0_seas.co2", \
1.35 +"bme_01D0_seas.co2", \
1.36 +"bmw_01D0_seas.co2", \
1.37 +"brw_01C0_seas.co2", \
1.38 +"brw_01D0_seas.co2", \
1.39 +"bsc_01D0_seas.co2", \
1.40 +"car030_01D2_seas.co2", \
1.41 +"car040_01D2_seas.co2", \
1.42 +"car050_01D2_seas.co2", \
1.43 +"car060_01D2_seas.co2", \
1.44 +"car070_01D2_seas.co2", \
1.45 +"car080_01D2_seas.co2", \
1.46 +"cba_01D0_seas.co2", \
1.47 +"cba_04D0_seas.co2", \
1.48 +"cfa_02D0_seas.co2", \
1.49 +"cgo_01D0_seas.co2", \
1.50 +"cgo_02D0_seas.co2", \
1.51 +"cgo_04D0_seas.co2", \
1.52 +"chr_01D0_seas.co2", \
1.53 +"cmn_17C0_seas.co2", \
1.54 +"cmo_01D0_seas.co2", \
1.55 +"coi_20C0_seas.co2", \
1.56 +"cpt_36C0_seas.co2", \
1.57 +"cri_02D0_seas.co2", \
1.58 +"crz_01D0_seas.co2", \
1.59 +"csj_06D0_seas.co2", \
1.60 +"daa_02D0_seas.co2", \
1.61 +"eic_01D0_seas.co2", \
1.62 +"esp005_01D2_seas.co2", \
1.63 +"esp015_01D2_seas.co2", \
1.64 +"esp025_01D2_seas.co2", \
1.65 +"esp035_01D2_seas.co2", \
1.66 +"esp045_01D2_seas.co2", \
1.67 +"esp055_01D2_seas.co2", \
1.68 +"esp_02D0_seas.co2", \
1.69 +"esp_06D0_seas.co2", \
1.70 +"frd040_06C3_seas.co2", \
1.71 +"gmi_01D0_seas.co2", \
1.72 +"goz_01D0_seas.co2", \
1.73 +"gsn_24D0_seas.co2", \
1.74 +"haa005_01D2_seas.co2", \
1.75 +"haa015_01D2_seas.co2", \
1.76 +"haa025_01D2_seas.co2", \
1.77 +"haa035_01D2_seas.co2", \
1.78 +"haa045_01D2_seas.co2", \
1.79 +"haa055_01D2_seas.co2", \
1.80 +"haa065_01D2_seas.co2", \
1.81 +"haa075_01D2_seas.co2", \
1.82 +"hat_20C0_seas.co2", \
1.83 +"hba_01D0_seas.co2", \
1.84 +"hfm005_01D2_seas.co2", \
1.85 +"hfm015_01D2_seas.co2", \
1.86 +"hfm025_01D2_seas.co2", \
1.87 +"hfm035_01D2_seas.co2", \
1.88 +"hfm045_01D2_seas.co2", \
1.89 +"hfm055_01D2_seas.co2", \
1.90 +"hfm065_01D2_seas.co2", \
1.91 +"hfm075_01D2_seas.co2", \
1.92 +"hun010_35C3_seas.co2", \
1.93 +"hun048_35C3_seas.co2", \
1.94 +"hun082_35C3_seas.co2", \
1.95 +"hun115_35C3_seas.co2", \
1.96 +"hun_01D0_seas.co2", \
1.97 +"ice_01D0_seas.co2", \
1.98 +"itn051_01C3_seas.co2", \
1.99 +"itn123_01C3_seas.co2", \
1.100 +"itn496_01C3_seas.co2", \
1.101 +"itn_01D0_seas.co2", \
1.102 +"izo_01D0_seas.co2", \
1.103 +"izo_27C0_seas.co2", \
1.104 +"jbn_29C0_seas.co2", \
1.105 +"key_01D0_seas.co2", \
1.106 +"kum_01D0_seas.co2", \
1.107 +"kum_04D0_seas.co2", \
1.108 +"kzd_01D0_seas.co2", \
1.109 +"kzm_01D0_seas.co2", \
1.110 +"lef011_01C3_seas.co2", \
1.111 +"lef030_01C3_seas.co2", \
1.112 +"lef076_01C3_seas.co2", \
1.113 +"lef122_01C3_seas.co2", \
1.114 +"lef244_01C3_seas.co2", \
1.115 +"lef396_01C3_seas.co2", \
1.116 +"lef_01D0_seas.co2", \
1.117 +"ljo_04D0_seas.co2", \
1.118 +"lmp_28D0_seas.co2", \
1.119 +"maa_02D0_seas.co2", \
1.120 +"mbc_01D0_seas.co2", \
1.121 +"mhd_01D0_seas.co2", \
1.122 +"mhdcbc_11C0_seas.co2", \
1.123 +"mhdrbc_11C0_seas.co2", \
1.124 +"mid_01D0_seas.co2", \
1.125 +"mlo_01C0_seas.co2", \
1.126 +"mlo_01D0_seas.co2", \
1.127 +"mlo_02D0_seas.co2", \
1.128 +"mlo_04D0_seas.co2", \
1.129 +"mnm_19C0_seas.co2", \
1.130 +"mqa_02D0_seas.co2", \
1.131 +"nwr_01D0_seas.co2", \
1.132 +"obs023_06C3_seas.co2", \
1.133 +"opw_01D0_seas.co2", \
1.134 +"orl005_11D2_seas.co2", \
1.135 +"orl015_11D2_seas.co2", \
1.136 +"orl025_11D2_seas.co2", \
1.137 +"orl035_11D2_seas.co2", \
1.138 +"palcbc_30C0_seas.co2", \
1.139 +"palmbc_30C0_seas.co2", \
1.140 +"pdm_11D0_seas.co2", \
1.141 +"pfa015_01D2_seas.co2", \
1.142 +"pfa025_01D2_seas.co2", \
1.143 +"pfa035_01D2_seas.co2", \
1.144 +"pfa045_01D2_seas.co2", \
1.145 +"pfa055_01D2_seas.co2", \
1.146 +"pfa065_01D2_seas.co2", \
1.147 +"pfa075_01D2_seas.co2", \
1.148 +"poc000_01D1_seas.co2", \
1.149 +"pocn05_01D1_seas.co2", \
1.150 +"pocn10_01D1_seas.co2", \
1.151 +"pocn15_01D1_seas.co2", \
1.152 +"pocn20_01D1_seas.co2", \
1.153 +"pocn25_01D1_seas.co2", \
1.154 +"pocn30_01D1_seas.co2", \
1.155 +"pocn35_01D1_seas.co2", \
1.156 +"pocn40_01D1_seas.co2", \
1.157 +"pocn45_01D1_seas.co2", \
1.158 +"pocs05_01D1_seas.co2", \
1.159 +"pocs10_01D1_seas.co2", \
1.160 +"pocs15_01D1_seas.co2", \
1.161 +"pocs20_01D1_seas.co2", \
1.162 +"pocs25_01D1_seas.co2", \
1.163 +"pocs30_01D1_seas.co2", \
1.164 +"pocs35_01D1_seas.co2", \
1.165 +"prs_21C0_seas.co2", \
1.166 +"prs_21D0_seas.co2", \
1.167 +"psa_01D0_seas.co2", \
1.168 +"psa_04D0_seas.co2", \
1.169 +"rpb_01D0_seas.co2", \
1.170 +"rta005_01D2_seas.co2", \
1.171 +"rta015_01D2_seas.co2", \
1.172 +"rta025_01D2_seas.co2", \
1.173 +"rta035_01D2_seas.co2", \
1.174 +"rta045_01D2_seas.co2", \
1.175 +"ryo_19C0_seas.co2", \
1.176 +"sbl_06C0_seas.co2", \
1.177 +"sbl_06D0_seas.co2", \
1.178 +"sch_23C0_seas.co2", \
1.179 +"scsn03_01D1_seas.co2", \
1.180 +"scsn06_01D1_seas.co2", \
1.181 +"scsn09_01D1_seas.co2", \
1.182 +"scsn12_01D1_seas.co2", \
1.183 +"scsn15_01D1_seas.co2", \
1.184 +"scsn18_01D1_seas.co2", \
1.185 +"scsn21_01D1_seas.co2", \
1.186 +"sey_01D0_seas.co2", \
1.187 +"shm_01D0_seas.co2", \
1.188 +"sis_02D0_seas.co2", \
1.189 +"smo_01C0_seas.co2", \
1.190 +"smo_01D0_seas.co2", \
1.191 +"smo_04D0_seas.co2", \
1.192 +"spo_01C0_seas.co2", \
1.193 +"spo_01D0_seas.co2", \
1.194 +"spo_02D0_seas.co2", \
1.195 +"spo_04D0_seas.co2", \
1.196 +"stm_01D0_seas.co2", \
1.197 +"stmebc_01D0_seas.co2", \
1.198 +"stp_12D0_seas.co2", \
1.199 +"sum_01D0_seas.co2", \
1.200 +"syo_01D0_seas.co2", \
1.201 +"syo_09C0_seas.co2", \
1.202 +"tap_01D0_seas.co2", \
1.203 +"tdf_01D0_seas.co2", \
1.204 +"trm_11D0_seas.co2", \
1.205 +"uta_01D0_seas.co2", \
1.206 +"uum_01D0_seas.co2", \
1.207 +"wes_23C0_seas.co2", \
1.208 +"wis_01D0_seas.co2", \
1.209 +"wkt009_01C3_seas.co2", \
1.210 +"wkt030_01C3_seas.co2", \
1.211 +"wkt061_01C3_seas.co2", \
1.212 +"wkt122_01C3_seas.co2", \
1.213 +"wkt244_01C3_seas.co2", \
1.214 +"wkt457_01C3_seas.co2", \
1.215 +"wlg_01D0_seas.co2", \
1.216 +"wlg_33C0_seas.co2", \
1.217 +"wpo000_10D2_seas.co2", \
1.218 +"wpon05_10D2_seas.co2", \
1.219 +"wpon10_10D2_seas.co2", \
1.220 +"wpon15_10D2_seas.co2", \
1.221 +"wpon20_10D2_seas.co2", \
1.222 +"wpon25_10D2_seas.co2", \
1.223 +"wpon30_10D2_seas.co2", \
1.224 +"wpos05_10D2_seas.co2", \
1.225 +"wpos10_10D2_seas.co2", \
1.226 +"wpos15_10D2_seas.co2", \
1.227 +"wpos20_10D2_seas.co2", \
1.228 +"wpos25_10D2_seas.co2", \
1.229 +"yon_19C0_seas.co2", \
1.230 +"zep_01D0_seas.co2", \
1.231 +"zep_31C0_seas.co2", \
1.232 +"zot005_45D2_seas.co2", \
1.233 +"zot015_45D2_seas.co2", \
1.234 +"zot025_45D2_seas.co2", \
1.235 +"zot035_45D2_seas.co2"/)
1.236 +
1.237 +print (dimsizes(b))
1.238 +exit
1.239 + do n = 0,dimsizes(b)-1
1.240 + print (b(n))
1.241 + end do
1.242 + exit
1.243 + ncol1 = 4
1.244 + data1 = readAsciiTable(diri+b(n), ncol1, "float", (/10,17/))
1.245 + print (data1)
1.246 +
1.247 + ncol2 = 5
1.248 + data2 = readAsciiTable(diri+b(n), ncol2, "float", 16)
1.249 + print (data2)
1.250 +; end do
1.251 +
1.252 +end