Changes are made in V8 code to run N19 with channel-12 at 331 nm
Nov 2015

sbuv2%srcx2k14$ diff absoft.com /data1/www_sbuv2/htdocs/noaa19/v8code_chn12m/absoft.com
13d12
<      9    ,c0n19l(8),c1n19l(8),c2n19l(8)
25d23
<      6             ,c0n19l,c1n19l,c2n19l
sbuv2%srcx2k14$ diff blockdata.f /data1/www_sbuv2/htdocs/noaa19/v8code_chn12m/blockdata.f
227,233d226
< c  n19 with channel-12 at 331 nm
<       data c0n19l/ 0.000E+00, 1.388E+01, 7.719E+00, 4.621E+00,
<      1             1.800E+00, 9.777E-01, 1.626E-01, 1.626E-01/
<       data c1n19l/ 0.000E-00, 2.010E-02, 1.330E-02, 9.873E-03,
<      1             5.323E-03, 3.021E-03, 7.269E-04, 7.269E-04/
<       data c2n19l/ 0.000E-00, 1.003E-04, 4.796E-05, 4.165E-05,
<      1             2.767E-05, 1.754E-05, 3.833E-06, 3.833E-06/
sbuv2%srcx2k14$ diff cnstnts.f /data1/www_sbuv2/htdocs/noaa19/v8code_chn12m/cnstnts.f
123,128d122
<           else if(abs(wlenth(12)-331.27) .lt. 0.6) then
<            do i=1,8
<             c0(i) = c0n19l(i)
<             c1(i) = c1n19l(i)
<             c2(i) = c2n19l(i)
<            enddo