Index

Rundeck: E6TomaF40

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

inphot

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: inphot initialise photolysis rate data, called directly from the cinit routine in ASAD. Currently use to read the JPL spectral data and standard O3 and T profiles and to set the appropriate reaction index.
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version: 1.0 (based on cheminit0C5_M23p & ds4p_chem_init_M23)

---

Declaration:

subroutine inphot

Calls the following subroutines/functions:

rd_tjpl

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
RD_TJPL Read wavelength bins, solar fluxes, Rayleigh parameters, T-dependent cross sections and Rayleigh/aerosol scattering phase functions with temperature dependences. Current data originates from JPL'97.

rd_prof

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
rd_prof input T & O3 reference profiles

Variables:

openunit : used from filemanager

closeunit : used from filemanager

ipr : integer

Photolysis reaction counter

cline : character*120

dummmy text

i : integer

dummy loop variable

iu_data : integer

temporary unit number

temp1 : real*8

temp variable to read in jfacta

temp2 : character*7

temp variable to read in jlabel

l : integer

out_line : character(len=300)