Index

Rundeck: E6TomaF40

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

photo_acetone

Module:

File: TRCHEM_master.f

Summary: calculate photolysis rate for acetone geometrically taken from the UK Harwell Model
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version:

---

Declaration:

subroutine photo_acetone(i, j, sza)

Variables:

ls1 : used from resolution

Initial Value = >ls1_nominal

lm : used from resolution

modeleclock : used from model_com

pmid : used from atm_com

lat2d : used from geom

twopi : used from constant

pi : used from constant

radian : used from constant

teeny : used from constant

hours_per_day : used from timeconstants_mod

days_per_year : used from timeconstants_mod

dec : real*8

declination angle of the earth

lha : real*8

local hour angle

cc : real*8

COS(lat)*COS(dec)

ss : real*8

SIN(lat)*SIN(dec)

toplevelofchemistry : used from trchem_shindell_com

jacet : used from trchem_shindell_com

c1 : real*8, parameter

Initial Value = 9.269d-7

c2 : real*8, parameter

Initial Value = 1.563d0

c3 : real*8, parameter

Initial Value = 0.301d0

sec_func : real*8

jacet0 : real*8

sza : real*8, intent(in)

i : integer, intent(in)

j : integer, intent(in)

l : integer