@@ -87,19 +87,19 @@ subroutine ephoto
8787 real :: fac,e1,e2,y,r1,r2
8888
8989 nnn = (/ 5 ,4 ,6 / )
90- tpot(1 :nst,1 ) = (/ 13.61 , 16.93 , 18.63 , 28.50 , 40.00 , 0.00 / )
91- tpot(1 :nst,2 ) = (/ 12.07 , 16.10 , 18.20 , 20.00 , 0.00 , 0.00 / )
92- tpot(1 :nst,3 ) = (/ 15.60 , 16.70 , 18.80 , 30.00 , 34.80 , 25.00 / )
93- auge = (/ 500 .,500 .,360 ./ )
94- augl = (/ 24 .,24 .,33 ./ )
95- bso2(1 :12 ) = 0 .
96- bso2(13 ) = .01
97- bso2(14 ) = .03
98- bso2(15 :21 ) = .10
99- bso2(22 :29 ) = .07
100- bso2(30 :34 ) = .03
101- bso2(35 :39 ) = .01
102- bso2(40 :lmax) = 0 .
90+ tpot(1 :nst,1 ) = (/ 13.61 , 16.93 , 18.63 , 28.50 , 40.00 , 0.00 / ) ! ionization potential for O, eV [4S, 2Do, 2Po, 4Pe, 2Pe]
91+ tpot(1 :nst,2 ) = (/ 12.07 , 16.10 , 18.20 , 20.00 , 0.00 , 0.00 / ) ! ionization potential for O2, eV [X, a+A, b, dissoc.]
92+ tpot(1 :nst,3 ) = (/ 15.60 , 16.70 , 18.80 , 30.00 , 34.80 , 25.00 / ) ! ionization potential for N2, eV [X, A, B, C, F, dissoc.]
93+ auge = (/ 500 .,500 .,360 ./ ) ! mean energy of Auger electrons for O, O2, N2; eV
94+ augl = (/ 24 .,24 .,33 ./ ) ! wavelength threshold for Auger electrons for O, O2, N2; Angstroms
95+ bso2(1 :12 ) = 0.0 ! yield of O(1S) from dissociation of O2
96+ bso2(13 ) = 0 .01
97+ bso2(14 ) = 0 .03
98+ bso2(15 :21 ) = 0 .10
99+ bso2(22 :29 ) = 0 .07
100+ bso2(30 :34 ) = 0 .03
101+ bso2(35 :39 ) = 0 .01
102+ bso2(40 :lmax) = 0.0
103103
104104! Zero arrays:
105105
@@ -110,13 +110,13 @@ subroutine ephoto
110110
111111! Calculate attenuated solar flux at all altitudes and wavelengths:
112112
113- do l= 1 ,lmax
114- do j= 1 ,jmax
115- tau(l)= 0 .
116- do i= 1 ,nmaj
117- tau(l)= tau(l)+ sigabs(i,l)* zcol(i,j)
113+ do l= 1 ,lmax ! for all wavelengths
114+ do j= 1 ,jmax ! for all altitudes
115+ tau(l)= 0 . ! initialize optical depth
116+ do i= 1 ,nmaj ! for all species
117+ tau(l)= tau(l)+ sigabs(i,l)* zcol(i,j) ! total optical depth
118118 enddo
119- if (tau(l) < 20 .) then
119+ if (tau(l) < 20 .) then ! optical depth cutoff: 20.0, i.e. exp(-20) = 2.1e-9 ~ 0
120120 flux(l,j)= sflux(l)* exp (- tau(l))
121121 else
122122 flux(l,j) = 0.0
0 commit comments