Index

Rundeck: E6TomaF40

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

photoj

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: from jv_trop.f: FAST J-Value code, troposphere only (mjprather 6/96). Uses special wavelength quadrature spectral data (jv_spec.dat) that includes only 289 nm - 800 nm (later a single 205 nm add-on). Uses special compact Mie code based on Feautrier/Auer/Prather version.
Author : UCI (see note below), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine photoj(nslon, nslat, surfacealbedo)

Calls the following subroutines/functions:

set_prof

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
set_prof to set up atmospheric profiles required by Fast-J2 using a doubled version of the level scheme used in the CTM. First pressure and z* altitude are defined, then O3 and T are taken from the supplied climatology and integrated to the CTM levels (may be overwritten with values directly from the CTM, if desired) and then aerosol profiles are constructed. Oliver Wild (04/07/99) Modifications by Apostolos Voulgarakis (Feb 2010) to take aerosol tracers from the model into account.

jvalue

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
JVALUE Calculate the actinic flux at each level for the current SZA value.

prtatm

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
PRTATM Print out the atmosphere and calculate appropriate columns

jratet

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
JRATET Calculate and print J-values. Note that the loop in this routine only covers the jpnl levels actually needed by the CTM.

Variables:

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

radian : used from constant

nslat : integer, intent(in)

I and J spatial indicies passed from master chem

nslon : integer, intent(in)

I and J spatial indicies passed from master chem

k : integer

dummy loop variables

j : integer

dummy loop variables

i : integer

dummy loop variables

surfacealbedo : real*8, intent(in)

jay : logical

j_0 : integer

j_1 : integer