function [a_ts, c_ts] = actempsalcorr(wl_a, wl_c, a, c, delta_t, delta_s)

wl_phi = [400;402;404;406;408;410;412;414;416;418;420;422;424;426;428;430;432;434;436;438;440;442;444;446;448;450;452;454;456;458;460;462;464;466;468;470;472;474;476;478;480;482;484;486;488;490;492;494;496;498;500;502;504;506;508;510;512;514;516;518;520;522;524;526;528;530;532;534;536;538;540;542;544;546;548;550;552;554;556;558;560;562;564;566;568;570;572;574;576;578;580;582;584;586;588;590;592;594;596;598;600;602;604;606;608;610;612;614;616;618;620;622;624;626;628;630;632;634;636;638;640;642;644;646;648;650;652;654;656;658;660;662;664;666;668;670;672;674;676;678;680;682;684;686;688;690;692;694;696;698;700;702;704;706;708;710;712;714;716;718;720;722;724;726;728;730;732;734;736;738;740;742;744;746;748;750;];
phi_t = [0.0001;0.0001;0.0001;0.0001;0;0;0;0.0001;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0.0001;0.0001;0.0001;0.0002;0.0003;0.0003;0.0004;0.0005;0.0006;0.0006;0.0007;0.0008;0.0009;0.001;0.001;0.001;0.001;0.001;0.0009;0.0009;0.0008;0.0007;0.0006;0.0006;0.0005;0.0004;0.0003;0.0003;0.0002;0.0001;0.0001;0;0;0;0;0;0;0;0;0;0.0001;0.0001;0.0001;0.0002;0.0002;0.0002;0.0001;0.0001;0.0001;0;0;-0.0001;-0.0001;-0.0001;-0.0001;-0.0001;-0.0001;0;0;0.0001;0.0002;0.0003;0.0005;0.0007;0.0009;0.0013;0.0017;0.0021;0.0026;0.0032;0.0038;0.0045;0.0054;0.0063;0.0073;0.0083;0.0094;0.0104;0.0113;0.0121;0.0128;0.0133;0.0136;0.0136;0.0133;0.0129;0.0124;0.0116;0.0107;];
%sigma_phi_t = [0.0002;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0;0;0;0;0.0001;0.0001;0.0001;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0;0;0;0.0001;0;0;0;0;0;0;0;0;0;0;0;0;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0001;0.0002;0.0002;0.0003;0.0003;0.0004;0.0004;0.0004;0.0004;0.0005;0.0005;0.0006;0.0006;0.0007;0.0007;0.0007;0.0006;0.0005;0.0004;0.0003;0.0003;0.0004;0.0005;0.0006;0.0007;0.0008;0.0009;];
c_phi_s = [-1e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-3e-005;-3e-005;-3e-005;-3e-005;-3e-005;-3e-005;-3e-005;-3e-005;-3e-005;-3e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-4e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-5e-005;-4e-005;-3e-005;-3e-005;-2e-005;-1e-005;0;1e-005;1e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;1e-005;1e-005;1e-005;1e-005;0;0;0;-1e-005;-1e-005;-1e-005;-1e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-2e-005;-3e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;-0.0001;-0.00011;-0.00013;-0.00014;-0.00016;-0.00017;-0.00018;-0.00019;-0.0002;-0.00021;-0.00022;-0.00022;-0.00023;-0.00023;-0.00023;-0.00024;-0.00024;-0.00024;-0.00024;-0.00022;-0.00021;-0.00017;-0.00012;-6e-005;2e-005;0.00012;0.00022;0.00031;0.00041;0.00049;0.00056;0.00062;];
%c_sigma_phi_s = [4e-005;4e-005;4e-005;4e-005;4e-005;4e-005;4e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;0;-1e-005;-2e-005;-3e-005;-4e-005;-6e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;2e-005;2e-005;2e-005;3e-005;3e-005;3e-005;];
a_phi_s = [3e-005;3e-005;3e-005;4e-005;4e-005;4e-005;4e-005;4e-005;4e-005;4e-005;4e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;0;0;0;0;0;0;0;0;0;0;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;-1e-005;0;1e-005;2e-005;3e-005;3e-005;4e-005;5e-005;5e-005;6e-005;6e-005;6e-005;6e-005;6e-005;6e-005;6e-005;5e-005;5e-005;5e-005;5e-005;4e-005;4e-005;4e-005;4e-005;3e-005;3e-005;3e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;1e-005;1e-005;1e-005;0;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;-7e-005;-8e-005;-9e-005;-0.00011;-0.00012;-0.00014;-0.00015;-0.00016;-0.00017;-0.00018;-0.00019;-0.0002;-0.0002;-0.0002;-0.00021;-0.00021;-0.00021;-0.00021;-0.00021;-0.0002;-0.00017;-0.00013;-8e-005;-1e-005;7e-005;0.00016;0.00026;0.00037;0.00046;0.00054;0.00061;0.00067;];
%a_sigma_phi_s = [3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;3e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;2e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;NaN;NaN;NaN;NaN;NaN;NaN;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;1e-005;2e-005;2e-005;2e-005;3e-005;];
%values from Sullivan et al 2006 (Applied Optics, in revision)

%interpolate literature phiT values to acs wavelengths
a_phi_t = interp1(wl_phi,phi_t,wl_a,'linear','extrap');
c_phi_t = interp1(wl_phi,phi_t,wl_c,'linear','extrap');
a_phi_s = interp1(wl_phi,a_phi_s,wl_a,'linear','extrap');
c_phi_s = interp1(wl_phi,c_phi_s,wl_c,'linear','extrap');
%a_sigma_phi_t = interp1(wl_phi,a_sigma_phi_s,wl_a,'linear','extrap');
%c_sigma_phi_t = interp1(wl_phi,c_sigma_phi_s,wl_c,'linear','extrap');

%correct acdata_raw for temp-dependent water absorbance, propagate error
%into del_raw.  Output acdata_t and del_t.
 
a_ts = a - (a_phi_t(ones(size(delta_t,1),1),:) .* delta_t(:,ones(size(a_phi_t,2),1)))...
  + (a_phi_s(ones(size(delta_s,1),1),:) .* delta_s(:,ones(size(a_phi_s,2),1)));
c_ts = c - (c_phi_t(ones(size(delta_t,1),1),:) .* delta_t(:,ones(size(c_phi_t,2),1)))...
  + (c_phi_s(ones(size(delta_s,1),1),:) .* delta_s(:,ones(size(c_phi_s,2),1)));

%c_ts = c - (c_phi_t .* delta_t + c_phi_s .* delta_s);
%a_del_t(:,1) = ((del_rawa(:,1)).^2 + (a_sigma_phi_t(:,1).*delta_t).^2).^(1/2);
%c_del_t(:,1) = ((del_rawc(:,1)).^2 + (c_sigma_phi_t(:,1).*delta_t).^2).^(1/2);
end