Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

opmie

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: OPMIE NEW Mie code for Js, only uses 8-term expansion, 4-Gauss pts.
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine opmie(kw, wavel, xqo2_2, xqo3_2, fmean)

Variables:

modeleclock : used from model_com

dtaux : real*8, allocatable, dimension(:)

Local optical depth of each CTM level

piray2 : real*8, allocatable, dimension(:)

Contribution of Rayleigh scattering to extinction

piaer2 : real*8, allocatable, dimension(:, :)

Contribution of Aerosol scattering to extinction

ttau : real*8, allocatable, dimension(:)

Optical depth of air vertically above each point

ftau : real*8, allocatable, dimension(:)

Attenuation of solar beam

fmean : real*8, intent(out), dimension(:)

Mean actinic flux at desired levels

zk : real*8

fractional increment in level

dttau : real*8

change in ttau per increment (linear, positive)

dpomega : real*8, dimension(2*m__)

change in pomega per increment (linear)

ftaulog : real*8

change in ftau per increment (exponential, normally < 1)

kw : integer

km : integer

i : integer

j : integer

k : integer

l : integer

ix : integer

j1 : integer

nd : integer

out_line : character(len=300)

xqo2_2 : real*8, intent(in), dimension(:)

xqo3_2 : real*8, intent(in), dimension(:)

qxmie : real*8, allocatable, dimension(:, :)

ssalb : real*8, allocatable, dimension(:, :)

xlaer : real*8, allocatable, dimension(:)

wavel : real*8, intent(in)

dpomega2 : real*8, dimension(2*m__)

xlo2 : real*8

xlo3 : real*8

xlray : real*8

xltau2 : real*8

zk2 : real*8

taudn : real*8

tauup : real*8

ftaulog2 : real*8

dttau2 : real*8