sbuv2%code_ibsl19$ diff flux_n19.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12m/flux_n19.f
6c6
<       real*4 flux(13),fluxn1(13),fluxn2(13),fluxn3(13),fluxn4(13)
---
>       real*4 flux(13),fluxn1(13),fluxn2(13),fluxn3(13)
33,35c33
<      +  452.439,591.625,688.887,799.018,992.905,1010.12,1303.020/
<       data fluxn4/41.761,192.806,329.733,338.866,548.546,533.197,
<      +  452.439,591.625,688.887,799.018,992.905,992.905,1303.020/
---
>      +  452.439,591.625,688.887,799.018,992.905,1010.12,1303.020/
40d37
<       if(abs(wlen0(12)-3312.69).lt.0.5) flux(12)=fluxn4(12)
sbuv2%code_ibsl19$ diff rcal_n19.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12m/rcal_n19.f
4c4
<       real*4 rcal(13),rcaln1(13),rcaln2(13),rcaln3(13),rcaln4(13),
---
>       real*4 rcal(13),rcaln1(13),rcaln2(13),rcaln3(13),
47,49c47
< c     +  2.1044E-04,1.6226E-04,1.3787e-04,1.1220E-02/
< c     Revised
<      +  2.1044E-04,1.6226E-04,1.3947e-04,1.1220E-02/
---
>      +  2.1044E-04,1.6226E-04,1.3787e-04,1.1220E-02/
53,59c51
< c     +  2.1044E-04,1.6226E-04,1.4934e-04,1.1220E-02/
< c     Revised
<      +  2.1044E-04,1.6226E-04,1.4832e-04,1.1220E-02/
< c     Channel-12 at 331 nm given by DeLand 8/26/2014 e-mail
<       data  rcaln3/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.6226E-04,1.1220E-02/
---
>      +  2.1044E-04,1.6226E-04,1.4934e-04,1.1220E-02/
61,62c53
< c      data date11/2011340/,d_acf2/1.007/
<       data d_acf2/1.00806/
---
>       data date11/2011340/,d_acf2/1.007/
66,67c57
< c      data date21/2014220/,d_acf3/0.977/
<       data d_acf3/0.985222/
---
>       data date21/2014220/,d_acf3/0.977/
72,74c62,63
<         rcal(12)=rcaln2(12)*d_acf2
< c        rcal(12)=rcaln2(12)
< c        if(date.eq.date11) rcal(12)=rcal(12)*d_acf2
---
>         rcal(12)=rcaln2(12)
>         if(date.eq.date11) rcal(12)=rcal(12)*d_acf2
80,83d68
<       if(abs(wlen0(12)-3312.69).lt.0.5)then
<         rcal(12)=rcaln4(12)
<       endif
<
sbuv2%code_ibsl19$ diff irr_n19.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12m/irr_n19.f
48c48
<        data irr23c343/157.309/,irr23c335/155.977/,irr23c331/156.18/
---
>        data irr23c343/157.309/,irr23c335/155.977/
58d57
<           if(abs(wlen0(j)-3312.69).lt.0.5)irr23_day1 (j)=irr23c331