Index

Rundeck: E6TomaF40

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

gen

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: GEN Generates coefficient matrices for the block tri-diagonal system: A(I)*X(I-1) + B(I)*X(I) + C(I)*X(I+1) = H(I)
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine gen(id, nd)

Variables:

id : integer

id0 : integer

id1 : integer

im : integer

i : integer

j : integer

k : integer

mstart : integer

nd : integer

sum0 : real*8

sum1 : real*8

sum2 : real*8

sum3 : real*8

deltau : real*8

d1 : real*8

d2 : real*8

surfac : real*8

ttmp : real*8, dimension(8)