SUBROUTINE rcal_n19 (date,rcal) c Day-1 N19 radiance calibration constants. integer*4 date,date11,date21 real*4 rcal(13),rcaln1(13),rcaln2(13),rcaln3(13),rcaln4(13), + d_acf2,d_acf3 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 c FM8 prelaunch calibration in April-May 2008, Data Book RevB Tables c 5.6-2&3. Ram's 12/5/2008 e-mail & Matt's 12/8/2008 e-mail c data rcaln1/1.3075E-04,1.4794E-04,1.6577E-04,1.7199E-04, c + 1.7825E-04,1.8607E-04,1.9279E-04,1.9832E-04,2.0473E-04, c + 2.0484E-04,1.6482E-04,1.3759E-04,1.0971E-02/ c Test 1 during A&E. The solar irradiance measurements with all c prelaunch parameters for A&E before any update of calibrations c derived from the orbital data. The scale factors are equal to c ratio of SSBUV-2 irradiance with updated solar activity on Day 105 c to the 0-th cut of the N19 measured irraidance. Matt 4/21/09 e-amil c data rcaln1/1.3958E-04,1.6236E-04,1.7558E-04,1.8279E-04, c + 1.8823E-04,1.9416E-04,2.0121E-04,2.0635E-04,2.0864E-04, c + 2.0591E-04,1.5810E-04,1.3632E-04,1.0789E-02/ c c Test 2 after A&E. Solar irradiance was measured on 2009 Day 107. It c was calibrated with the prelaunch R3a calcons without adjustment for c the PMT gain drift. (Ram's e-mails and conversations 1/15-26/2010.) c Solar irradiance measurements from Ram were adjusted for the PMT gain c drift. Then, ratio of the adjusted irradiance to the SSBUV-2 (adjusted c for solar activity on Day 107) is multiplied to the prelaunch calcon. c data rcaln1/1.4377E-04,1.6836E-04,1.8212E-04,1.8950E-04, c + 1.9512E-04,2.0130E-04,2.0861E-04,2.1352E-04,2.1681E-04, c + 2.1250E-04,1.6399E-04,1.4115E-04,1.1352E-02/ c Test 3 in March 2011. Use the latest goniometry from Ram, renormalized it c at incident angles in the prelaunch calibration. Then, ratios of new solar day-1 c irradiance to the ssbuv-2 values in flux_n19.f are multiplied to the prelaunch c calibration constants. data rcaln1/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.3954E-04,1.1220E-02/ c Channel-12 at 343 nm calrad0n_v6_corr=[calrad0n/(irr0n_day1/irr0n)]*dacf0n 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, 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/ 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, 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 data rcaln4/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/ c Correction using ACF(340nm) for 4 orbits of 343 nm test on 12/06/2011 c data date11/2011340/,d_acf2/1.007/ data d_acf2/1.00806/ 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 c data date21/2014220/,d_acf3/0.977/ data d_acf3/0.985222/ do 100 i=1,13 100 rcal(i)=rcaln1(i) if(abs(wlen0(12)-3430.22).lt.0.5)then rcal(12)=rcaln2(12)*d_acf2 c rcal(12)=rcaln2(12) c 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 endif if(abs(wlen0(12)-3312.69).lt.0.5)then rcal(12)=rcaln4(12) endif return end