sbuv2%~$ cd v6sbuv/code_ibsl19 sbuv2%code_ibsl19$ diff flux_n19.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/flux_n19.f 6c6 < real*4 flux(13),fluxn1(13),fluxn2(13),fluxn3(13) --- > real*4 flux(13),fluxn1(13),fluxn2(13) 32,33c32,33 < data fluxn3/41.761,192.806,329.733,338.866,548.546,533.197, < + 452.439,591.625,688.887,799.018,992.905,1010.12,1303.020/ --- > > 37c37 < if(abs(wlen0(12)-3350.04).lt.0.5) flux(12)=fluxn3(12) --- > sbuv2%code_ibsl19$ diff irr_n19.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/irr_n19.f 25c25 < + irr23c(n),irr23_value,irr23a(n),irr23c343,irr23c335 --- > + irr23c(n),irr23_value,irr23a(n),irr23c343 48c48 < data irr23c343/157.309/,irr23c335/155.977/ --- > data irr23c343/157.309/ 57d56 < if(abs(wlen0(j)-3350.04).lt.0.5)irr23_day1 (j)=irr23c335 sbuv2%code_ibsl19$ diff lamchk.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/lamchk.f 116,121c116,119 < c-h if(((abs(GRTWAV(I)-3430.22) .lt. 5) .and. < c-h 1 (abs(WLEN0(I)-3398.77) .lt. 5)) .or. < c-h 1 ((abs(GRTWAV(I)-3398.77) .lt. 5) .and. < c-h 1 (abs(WLEN0(I)-3430.22) .lt. 5)))then < if((abs(GRTWAV(I)-WLEN0(I)) .gt. 6) .and. < 1 (abs(GRTWAV(I)-WLEN0x(I)) .lt. 6))then --- > if(((abs(GRTWAV(I)-3430.22) .lt. 5) .and. > 1 (abs(WLEN0(I)-3398.77) .lt. 5)) .or. > 1 ((abs(GRTWAV(I)-3398.77) .lt. 5) .and. > 1 (abs(WLEN0(I)-3430.22) .lt. 5)))then sbuv2%code_ibsl19$ diff newalf_14.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/newalf_14.f 7c7 < DIMENSION WVLNS(12,17),ALFAS(12,17) --- > DIMENSION WVLNS(12,16),ALFAS(12,16) 37,38d36 < X 0.0934, 0.0882, 0.0826, 0.0769, 0.0712, < Y 0.0659, 0.0610, 0.0566, 0.0529, 0.0498, 0.0473, 0.0454, 72,73d69 < X 334.4,334.5,334.6,334.7,334.8, < Y 334.9,335.0,335.1,335.2,335.3,335.4,335.5, 85c81 < DO 300 L=1,17 --- > DO 300 L=1,16 sbuv2%code_ibsl19$ diff newalfc.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/newalfc.f 9,10c9,10 < DIMENSION WVLNS(12,17),ALFAS(12,17),c1alfas(12,17),c2alfas(12,17), < c betas(12,17) --- > DIMENSION WVLNS(12,16),ALFAS(12,16),c1alfas(12,16),c2alfas(12,16), > c betas(12,16) 40,41d39 < a 334.4,334.5,334.6,334.7,334.8, < b 334.9,335.0,335.1,335.2,335.3,335.4,335.5, 75,76d72 < a 0.094,0.089,0.084,0.078,0.072, < b 0.067,0.062,0.057,0.053,0.050,0.048,0.046, 111,112d106 < a 5.956E-04,5.926E-04,5.886E-04,5.835E-04,5.767E-04,5.672E-04, < b 5.561E-04,5.452E-04,5.347E-04,5.252E-04,5.160E-04,5.079E-04, 147,148d140 < a 3.390E-06,3.319E-06,3.250E-06,3.184E-06,3.127E-06,3.081E-06, < b 3.047E-06,3.040E-06,3.038E-06,3.028E-06,3.007E-06,2.992E-06, 182,183d173 < a 0.764,0.764,0.763,0.762,0.761, < b 0.760,0.759,0.758,0.757,0.756,0.755,0.754, 195c185 < DO 300 L=1,17 --- > DO 300 L=1,16 sbuv2%code_ibsl19$ diff newflx_14.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/newflx_14.f 8c8 < DIMENSION WVLNS(12,17),FLUXS(12,17) --- > DIMENSION WVLNS(12,16),FLUXS(12,16) 38,39d37 < X 985.55, 992.74, 1000.09, 1006.70, 1011.32, 1013.09, < Y 1011.88, 1008.11, 1002.27, 994.71, 985.59, 974.91, 73,74d70 < X 334.4,334.5,334.6,334.7,334.8, < Y 334.9,335.0,335.1,335.2,335.3,335.4,335.5, 86c82 < DO 300 L=1,17 --- > DO 300 L=1,16 sbuv2%code_ibsl19$ diff rcal_n19.f /data1/www_sbuv2/htdocs/noaa19/v6code_chn12n/rcal_n19.f 3,5c3,4 < integer*4 date,date11,date21 < real*4 rcal(13),rcaln1(13),rcaln2(13),rcaln3(13), < + d_acf2,d_acf3 --- > integer*4 date,data11 > real*4 rcal(13),rcaln1(13),rcaln2(13) 44d42 < c Channel-12 at 343 nm calrad0n_v6_corr=[calrad0n/(irr0n_day1/irr0n)]*dacf0n 48,57c46,47 < c Channel-12 at 335 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.4934e-04,1.1220E-02/ < c Correction using ACF(340nm) for 4 orbits of 343 nm test on 12/06/2011 < data date11/2011340/,d_acf2/1.007/ < c Discussed ACF difference between 335 nm and 340 nm using the solar sweep mode. < c A temperary fix to the ACF for the real time contact test is to < c make correction here with d_acf3. Aug 27, 2014 < data date21/2014220/,d_acf3/0.977/ --- > c correction using ACF(340nm) for 4 orbits of 343 nm test on 12/06/2011 > data date11/2011340/,d_acf/1.007/ 63,67c53 < if(date.eq.date11) rcal(12)=rcal(12)*d_acf2 < endif < if(abs(wlen0(12)-3350.04).lt.0.5)then < rcal(12)=rcaln3(12)*d_acf3 < c if(date.eq.date21) rcal(12)=rcal(12)*d_acf3 --- > if(date.eq.date11) rcal(12)=rcal(12)*d_acf 68a55 >