03.12.2012 Views

(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

SHOW MORE
SHOW LESS

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 />

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!