Index

Rundeck: E6TomaF40

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

jratet

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: JRATET Calculate and print J-values. Note that the loop in this routine only covers the jpnl levels actually needed by the CTM.
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine jratet(solf, nslat, nslon)

Variables:

im : used from resolution

i : integer

j : integer

k : integer

l : integer

nslon : integer

nslat : integer

jgas : integer

qo2tot : real*8

qo3tot : real*8

qo31d : real*8

qo33p : real*8

qqqt : real*8

solf : real*8

tfact : real*8

valj : real*8, dimension(njval)