Index

Rundeck: E6TomaF40

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

prtatm

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: PRTATM Print out the atmosphere and calculate appropriate columns
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine prtatm(nfastjq, nslon, nslat, jay)

Variables:

lat2d_dg : used from geom

modeleclock : used from model_com

dlogp2 : real*8, parameter

10.d0**(-1./16.)
Initial Value = 8.65964323d-1

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

nfastjq : integer, intent(in)

Print out 1=column totals only, 2=

i : integer

k : integer

m : integer

l : integer

out_line : character(len=300)

out_line2 : character(len=600)

jay : logical

colo2 : real*8, allocatable, dimension(:)

colo3 : real*8, allocatable, dimension(:)

colax : real*8, allocatable, dimension(:, :)

climat : real*8, dimension(9)

zkm : real*8

zstar : real*8

pjc : real*8

ydgrd : real*8