sbuv2%code_ibsl1$ diff rcal_n19.f /data1/www_sbuv2/htdocs/noaa19/rcal_n19.f
3,12c3,4
<       integer*4 date,data11
<       real*4 rcal(13),rcaln1(13),rcaln2(13)
< c
< c    Add channel-12 343nm setting based on wlen0(12) rather than date
< c    to process both 340 nm and 343 nm runs the same day. The new
< c    calibration values for channel-12 are detailed in DeLand's 1/23/12
< c    e-mail.    Jan 25, 2012
< c
<       include "params.inc"
< c
---
>       integer*4 date
>       real*4 rcal(13),rcaln1(13)
42,48c34,35
<      +  2.1044E-04,1.6226E-04,1.3954E-04,1.1220E-02/
<       data  rcaln2/1.4269E-04,1.6688E-04,1.8043E-04,1.8773E-04,
<      +  1.9329E-04,1.9947E-04,2.0662E-04,2.1138E-04,2.1468E-04,
<      +  2.1044E-04,1.6226E-04,1.3787e-04,1.1220E-02/
< c     correction using ACF(340nm) for 4 orbits of 343 nm test on 12/06/2011
<       data date11/2011340/,d_acf/1.007/
<
---
>      +  2.1044E-04,1.6226E-04,1.3954E-04,1.1220E-02/
>
51,54d37
<       if(abs(wlen0(12)-3430.22).lt.0.5)then
<         rcal(12)=rcaln2(12)
<         if(date.eq.date11) rcal(12)=rcal(12)*d_acf
<       endif
sbuv2%code_ibsl1$ diff irr_n19.f  /data1/www_sbuv2/htdocs/noaa19/irr_n19.f
12,21d11
< c
< c    Add channel-12 343nm setting based on wlen0(12) rather than date
< c    to process both 340 nm and 343 nm runs the same day.
< c    New IRR23c is computed from the prelaunch calibration 2004 polynomial adjusted to
< c    2008 calibration with a scale factor, then with the channel-to-channel offset as
< c    determined at 340 nm:  poly(343.022,coef)/1.01563*1.0045=157.309
< c        Jan 25, 2012
< c
<       include "params.inc"
< c
25c15
<      +        irr23c(n),irr23_value,irr23a(n),irr23c343
---
>      +        irr23c(n),irr23_value,irr23a(n)
48d37
<        data irr23c343/157.309/
56d44
<           if(abs(wlen0(j)-3430.22).lt.0.5)irr23_day1 (j)=irr23c343
sbuv2%code_ibsl1$ diff flux_n19.f /data1/www_sbuv2/htdocs/noaa19/flux_n19.f
6,14c6
<       real*4 flux(13),fluxn1(13),fluxn2(13)
< c
< c    Add channel-12 343nm setting based on wlen0(12) rather than date
< c    to process both 340 nm and 343 nm runs the same day. The new
< c    calibration values for channel-12 are detailed in DeLand's 1/23/12
< c    e-mail.    Jan 25, 2012
< c
<       include "params.inc"
< c
---
>       real*4 flux(13),fluxn1(13)
30,32d21
<       data fluxn2/41.761,192.806,329.733,338.866,548.546,533.197,
<      +  452.439,591.625,688.887,799.018,992.905,1045.000,1303.020/
<
36d24
<       if(abs(wlen0(12)-3430.22).lt.0.5) flux(12)=fluxn2(12)