Index

Rundeck: E6TomaF40

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

rd_tjpl

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: 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.
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version: 1.0 (based on cheminit0C5_M23p & ds4p_chem_init_M23)

---

Declaration:

subroutine rd_tjpl(nj1)

Variables:

undef : used from constant

nj1 : integer, intent(in)

local copy of unit number to read

iw : integer

dummy loop variables

k : integer

dummy loop variables

j : integer

dummy loop variables

i : integer

dummy loop variables

jj : integer

dummy variable

nqqq : integer

minus no. additional J-values from X-sects (O2,O3P,O3D+NQQQ)

njval2 : integer

temporary test for NJVAL= its constant value...

out_line : character(len=300)

titlex : character*20

lq : integer