(OAD) Document for Ozone Mapping and Profiler Suite ... - NASA
(OAD) Document for Ozone Mapping and Profiler Suite ... - NASA
(OAD) Document for Ozone Mapping and Profiler Suite ... - NASA
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>OAD</strong> – OMPS TC EDR D37031<br />
Rev C5<br />
Page 22<br />
3) Using �aercor <strong>and</strong> fm, determine the st<strong>and</strong>ard ozone <strong>and</strong> temperature profile used in the<br />
table lookup.<br />
4) Use the EDR external temperature profile to determine the difference between the<br />
actual <strong>and</strong> st<strong>and</strong>ard temperature, �t, <strong>for</strong> all 11 layers.<br />
5) Use an actual ozone profile to determine the difference between the actual <strong>and</strong><br />
st<strong>and</strong>ard ozone profile, �x, <strong>for</strong> all layers <strong>for</strong> which there is an actual retrieval.<br />
6) Form the two sums:<br />
�<br />
layer<br />
0<br />
layer<br />
layer layer<br />
�<br />
layer<br />
( t<br />
( x<br />
layer<br />
� t<br />
� x<br />
)<br />
0<br />
layer<br />
dN<br />
dt<br />
)<br />
dN<br />
dx<br />
Calculate dxerr (error in ozone profile shape correction) <strong>and</strong> dterr (error in<br />
temperature shape correction (to be used in weighted average to obtain final<br />
ozone amount)<br />
Subroutines called by tpcor:<br />
prfind: determines profile index (the pointer that indexes the correct profile in the table);<br />
qvalue: determines table values<br />
qvprof: calculates q values. It calls the following subroutines:<br />
intlyrn: computes q values <strong>for</strong> selected lambda using the dn/dt table <strong>for</strong> the Northern<br />
Hemisphere.<br />
Intsou: computes q values <strong>for</strong> selected lambda using the dn/dt table <strong>for</strong> the Southern<br />
Hemisphere.<br />
2.1.2.13 Subroutine oznew.f<br />
Subroutine oznew <strong>for</strong>ms the equation<br />
r � N<br />
m<br />
<strong>and</strong> then solves <strong>for</strong> �:<br />
� N<br />
aercor<br />
2.1.2.14 Subroutine resadj.f<br />
� ( �<br />
�<br />
�<br />
layer<br />
cor<br />
� �<br />
( x<br />
� �<br />
aercor<br />
layer<br />
aercor<br />
� x<br />
) � �<br />
0<br />
layer<br />
�<br />
layer<br />
)<br />
layer<br />
( t<br />
dN<br />
dx<br />
layer<br />
layer<br />
r1��<br />
2 � r2��<br />
1<br />
�<br />
.<br />
� ��<br />
��<br />
��<br />
1<br />
2<br />
2<br />
1<br />
� t<br />
0<br />
layer<br />
� a � b�<br />
)<br />
dN<br />
dt<br />
To account <strong>for</strong> the change in calculated ozone value, adjust residues using the following<br />
<strong>for</strong>mula:<br />
layer<br />
�