Index

Rundeck: E6TomaF40

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

miesct

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: MIESCT This is an adaption of the Prather rad transfer code. see comments.
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine miesct(nd)

Calls the following subroutines/functions:

blkslv

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
BLKSLV Solves the block tri-diagonal system: A(I)*X(I-1) + B(I)*X(I) + C(I)*X(I+1) = H(I)

gaussp

legnd0

Module: PHOTOLYSIS File: TRCHEM_fastj2.f
LEGND0 Calculates ORDINARY LEGENDRE fns of X (real) from P[0] = PL(1) = 1, P[1] = X, .... P[N-1] = PL(N)

Variables:

i : integer

id : integer

imm : integer

nd : integer

cmeq1 : real*8, parameter

Initial Value = 0.25D0