co2/03.test.read.ncl
author Forrest Hoffman <forrest@climatemodeling.org>
Mon, 26 Jan 2009 22:08:20 -0500
changeset 0 0c6405ab2ff4
permissions -rw-r--r--
Initial commit of C-LAMP Diagnostics from Jeff Lee
     1 ;************************************************
     2 ;    Read ascii, Write nc                         
     3 ;************************************************
     4 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"  
     5 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"  
     6 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"   
     7 ;************************************************
     8 begin
     9   diri  = "/fis/cgd/cseg/people/jeff/clamp_data/co2/globalView-C4Mip/seas/"
    10   b = (/ \
    11 "aia005_02D2_seas.co2", \
    12 "aia015_02D2_seas.co2", \
    13 "aia025_02D2_seas.co2", \
    14 "aia035_02D2_seas.co2", \
    15 "aia045_02D2_seas.co2", \
    16 "aia055_02D2_seas.co2", \
    17 "aia065_02D2_seas.co2", \
    18 "alt_01D0_seas.co2", \
    19 "alt_02D0_seas.co2", \
    20 "alt_04D0_seas.co2", \
    21 "alt_06C0_seas.co2", \
    22 "alt_06D0_seas.co2", \
    23 "ams_01D0_seas.co2", \
    24 "ams_11C0_seas.co2", \
    25 "asc_01D0_seas.co2", \
    26 "ask_01D0_seas.co2", \
    27 "avi_01D0_seas.co2", \
    28 "azr_01D0_seas.co2", \
    29 "bal_01D1_seas.co2", \
    30 "bgu_11D0_seas.co2", \
    31 "bhd_15C0_seas.co2", \
    32 "bme_01D0_seas.co2", \
    33 "bmw_01D0_seas.co2", \
    34 "brw_01C0_seas.co2", \
    35 "brw_01D0_seas.co2", \
    36 "bsc_01D0_seas.co2", \
    37 "car030_01D2_seas.co2", \
    38 "car040_01D2_seas.co2", \
    39 "car050_01D2_seas.co2", \
    40 "car060_01D2_seas.co2", \
    41 "car070_01D2_seas.co2", \
    42 "car080_01D2_seas.co2", \
    43 "cba_01D0_seas.co2", \
    44 "cba_04D0_seas.co2", \
    45 "cfa_02D0_seas.co2", \
    46 "cgo_01D0_seas.co2", \
    47 "cgo_02D0_seas.co2", \
    48 "cgo_04D0_seas.co2", \
    49 "chr_01D0_seas.co2", \
    50 "cmn_17C0_seas.co2", \
    51 "cmo_01D0_seas.co2", \
    52 "coi_20C0_seas.co2", \
    53 "cpt_36C0_seas.co2", \
    54 "cri_02D0_seas.co2", \
    55 "crz_01D0_seas.co2", \
    56 "csj_06D0_seas.co2", \
    57 "daa_02D0_seas.co2", \
    58 "eic_01D0_seas.co2", \
    59 "esp005_01D2_seas.co2", \
    60 "esp015_01D2_seas.co2", \
    61 "esp025_01D2_seas.co2", \
    62 "esp035_01D2_seas.co2", \
    63 "esp045_01D2_seas.co2", \
    64 "esp055_01D2_seas.co2", \
    65 "esp_02D0_seas.co2", \
    66 "esp_06D0_seas.co2", \
    67 "frd040_06C3_seas.co2", \
    68 "gmi_01D0_seas.co2", \
    69 "goz_01D0_seas.co2", \
    70 "gsn_24D0_seas.co2", \
    71 "haa005_01D2_seas.co2", \
    72 "haa015_01D2_seas.co2", \
    73 "haa025_01D2_seas.co2", \
    74 "haa035_01D2_seas.co2", \
    75 "haa045_01D2_seas.co2", \
    76 "haa055_01D2_seas.co2", \
    77 "haa065_01D2_seas.co2", \
    78 "haa075_01D2_seas.co2", \
    79 "hat_20C0_seas.co2", \
    80 "hba_01D0_seas.co2", \
    81 "hfm005_01D2_seas.co2", \
    82 "hfm015_01D2_seas.co2", \
    83 "hfm025_01D2_seas.co2", \
    84 "hfm035_01D2_seas.co2", \
    85 "hfm045_01D2_seas.co2", \
    86 "hfm055_01D2_seas.co2", \
    87 "hfm065_01D2_seas.co2", \
    88 "hfm075_01D2_seas.co2", \
    89 "hun010_35C3_seas.co2", \
    90 "hun048_35C3_seas.co2", \
    91 "hun082_35C3_seas.co2", \
    92 "hun115_35C3_seas.co2", \
    93 "hun_01D0_seas.co2", \
    94 "ice_01D0_seas.co2", \
    95 "itn051_01C3_seas.co2", \
    96 "itn123_01C3_seas.co2", \
    97 "itn496_01C3_seas.co2", \
    98 "itn_01D0_seas.co2", \
    99 "izo_01D0_seas.co2", \
   100 "izo_27C0_seas.co2", \
   101 "jbn_29C0_seas.co2", \
   102 "key_01D0_seas.co2", \
   103 "kum_01D0_seas.co2", \
   104 "kum_04D0_seas.co2", \
   105 "kzd_01D0_seas.co2", \
   106 "kzm_01D0_seas.co2", \
   107 "lef011_01C3_seas.co2", \
   108 "lef030_01C3_seas.co2", \
   109 "lef076_01C3_seas.co2", \
   110 "lef122_01C3_seas.co2", \
   111 "lef244_01C3_seas.co2", \
   112 "lef396_01C3_seas.co2", \
   113 "lef_01D0_seas.co2", \
   114 "ljo_04D0_seas.co2", \
   115 "lmp_28D0_seas.co2", \
   116 "maa_02D0_seas.co2", \
   117 "mbc_01D0_seas.co2", \
   118 "mhd_01D0_seas.co2", \
   119 "mhdcbc_11C0_seas.co2", \
   120 "mhdrbc_11C0_seas.co2", \
   121 "mid_01D0_seas.co2", \
   122 "mlo_01C0_seas.co2", \
   123 "mlo_01D0_seas.co2", \
   124 "mlo_02D0_seas.co2", \
   125 "mlo_04D0_seas.co2", \
   126 "mnm_19C0_seas.co2", \
   127 "mqa_02D0_seas.co2", \
   128 "nwr_01D0_seas.co2", \
   129 "obs023_06C3_seas.co2", \
   130 "opw_01D0_seas.co2", \
   131 "orl005_11D2_seas.co2", \
   132 "orl015_11D2_seas.co2", \
   133 "orl025_11D2_seas.co2", \
   134 "orl035_11D2_seas.co2", \
   135 "palcbc_30C0_seas.co2", \
   136 "palmbc_30C0_seas.co2", \
   137 "pdm_11D0_seas.co2", \
   138 "pfa015_01D2_seas.co2", \
   139 "pfa025_01D2_seas.co2", \
   140 "pfa035_01D2_seas.co2", \
   141 "pfa045_01D2_seas.co2", \
   142 "pfa055_01D2_seas.co2", \
   143 "pfa065_01D2_seas.co2", \
   144 "pfa075_01D2_seas.co2", \
   145 "poc000_01D1_seas.co2", \
   146 "pocn05_01D1_seas.co2", \
   147 "pocn10_01D1_seas.co2", \
   148 "pocn15_01D1_seas.co2", \
   149 "pocn20_01D1_seas.co2", \
   150 "pocn25_01D1_seas.co2", \
   151 "pocn30_01D1_seas.co2", \
   152 "pocn35_01D1_seas.co2", \
   153 "pocn40_01D1_seas.co2", \
   154 "pocn45_01D1_seas.co2", \
   155 "pocs05_01D1_seas.co2", \
   156 "pocs10_01D1_seas.co2", \
   157 "pocs15_01D1_seas.co2", \
   158 "pocs20_01D1_seas.co2", \
   159 "pocs25_01D1_seas.co2", \
   160 "pocs30_01D1_seas.co2", \
   161 "pocs35_01D1_seas.co2", \
   162 "prs_21C0_seas.co2", \
   163 "prs_21D0_seas.co2", \
   164 "psa_01D0_seas.co2", \
   165 "psa_04D0_seas.co2", \
   166 "rpb_01D0_seas.co2", \
   167 "rta005_01D2_seas.co2", \
   168 "rta015_01D2_seas.co2", \
   169 "rta025_01D2_seas.co2", \
   170 "rta035_01D2_seas.co2", \
   171 "rta045_01D2_seas.co2", \
   172 "ryo_19C0_seas.co2", \
   173 "sbl_06C0_seas.co2", \
   174 "sbl_06D0_seas.co2", \
   175 "sch_23C0_seas.co2", \
   176 "scsn03_01D1_seas.co2", \
   177 "scsn06_01D1_seas.co2", \
   178 "scsn09_01D1_seas.co2", \
   179 "scsn12_01D1_seas.co2", \
   180 "scsn15_01D1_seas.co2", \
   181 "scsn18_01D1_seas.co2", \
   182 "scsn21_01D1_seas.co2", \
   183 "sey_01D0_seas.co2", \
   184 "shm_01D0_seas.co2", \
   185 "sis_02D0_seas.co2", \
   186 "smo_01C0_seas.co2", \
   187 "smo_01D0_seas.co2", \
   188 "smo_04D0_seas.co2", \
   189 "spo_01C0_seas.co2", \
   190 "spo_01D0_seas.co2", \
   191 "spo_02D0_seas.co2", \
   192 "spo_04D0_seas.co2", \
   193 "stm_01D0_seas.co2", \
   194 "stmebc_01D0_seas.co2", \
   195 "stp_12D0_seas.co2", \
   196 "sum_01D0_seas.co2", \
   197 "syo_01D0_seas.co2", \
   198 "syo_09C0_seas.co2", \
   199 "tap_01D0_seas.co2", \
   200 "tdf_01D0_seas.co2", \
   201 "trm_11D0_seas.co2", \
   202 "uta_01D0_seas.co2", \
   203 "uum_01D0_seas.co2", \
   204 "wes_23C0_seas.co2", \
   205 "wis_01D0_seas.co2", \
   206 "wkt009_01C3_seas.co2", \
   207 "wkt030_01C3_seas.co2", \
   208 "wkt061_01C3_seas.co2", \
   209 "wkt122_01C3_seas.co2", \
   210 "wkt244_01C3_seas.co2", \
   211 "wkt457_01C3_seas.co2", \
   212 "wlg_01D0_seas.co2", \
   213 "wlg_33C0_seas.co2", \
   214 "wpo000_10D2_seas.co2", \
   215 "wpon05_10D2_seas.co2", \
   216 "wpon10_10D2_seas.co2", \
   217 "wpon15_10D2_seas.co2", \
   218 "wpon20_10D2_seas.co2", \
   219 "wpon25_10D2_seas.co2", \
   220 "wpon30_10D2_seas.co2", \
   221 "wpos05_10D2_seas.co2", \
   222 "wpos10_10D2_seas.co2", \
   223 "wpos15_10D2_seas.co2", \
   224 "wpos20_10D2_seas.co2", \
   225 "wpos25_10D2_seas.co2", \
   226 "yon_19C0_seas.co2", \
   227 "zep_01D0_seas.co2", \
   228 "zep_31C0_seas.co2", \
   229 "zot005_45D2_seas.co2", \
   230 "zot015_45D2_seas.co2", \
   231 "zot025_45D2_seas.co2", \
   232 "zot035_45D2_seas.co2"/)
   233 
   234 print (dimsizes(b))
   235 exit
   236   do n = 0,dimsizes(b)-1
   237      print (b(n))
   238   end do
   239   exit                   
   240      ncol1 = 4
   241      data1 = readAsciiTable(diri+b(n), ncol1, "float", (/10,17/))
   242      print (data1)
   243 
   244      ncol2 = 5
   245      data2 = readAsciiTable(diri+b(n), ncol2, "float", 16)
   246      print (data2)
   247 ; end do
   248   
   249 end