The next step is to get the flux and cross-section data for O2 and O3.
This is found in PS2_rad.dat, which is a
formatted array of #of data [n]; wave length [wv in nm];
solar flux [flux in photons/cm2sec];
O2 cross-section [sigmaO2 in cm+2]; O3 cross-section [sigmaO3 in cm+2].
The format for the array is format(i4,f7.2,3e14.7). You can either take
the radiation data array from the website or pick it up on GFDL's
anonymous ftp site. Note that the first line in the data file
contains the heading and is not data. You can either remove this
line or read around it outside of the DO loop you will set up to
read the 132 lines of data.
A sample code to read the data is given below:
-------open(unit=3, file='PS2_rad.dat', status='old')
-------read(3) *
-------do 1 = 1, 132
-------read(3,15) i,wv(i),flux(i),so2(i),so3(i)
---15 --format(i4,f7.2,3e14.7)
-------endo
Good luck and CU at 4.