Index

Rundeck: E6TomaF40

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

sphere

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: SPHERE Calculation of spherical geometry; derive tangent heights, slant path lengths and air mass factor for each layer. Beyond 90 degrees, include treatment of emergent beam (where tangent height is below altitude J-value desired at).
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine sphere

Variables:

radius : used from constant

airmas : real*8

Inlined air mass factor function for top of atmosphere

htemp : real*8

dummy arguments to airmas function

ux : real*8

dummy arguments to airmas function

gmu : real*8

MU, cos(solar zenith angle)

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

Distance from centre of Earth to each point (cm)

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

Square of radius ratios

xl : real*8

Slant path between points

tanht : real*8

Tangent height for the current SZA

ii : integer

i : integer

j : integer

k : integer

zbyr : real*8

xmu1 : real*8

xmu2 : real*8

diff : real*8