Index

Rundeck: E6TomaF40

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

set_prof

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: set_prof to set up atmospheric profiles required by Fast-J2 using a doubled version of the level scheme used in the CTM. First pressure and z* altitude are defined, then O3 and T are taken from the supplied climatology and integrated to the CTM levels (may be overwritten with values directly from the CTM, if desired) and then aerosol profiles are constructed. Oliver Wild (04/07/99) Modifications by Apostolos Voulgarakis (Feb 2010) to take aerosol tracers from the model into account.
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi, Apostolos Voulgarakis
Version:

---

Declaration:

subroutine set_prof(nslon, nslat, surfacealbedo)

Variables:

lat2d_dg : used from geom

modeleclock : used from model_com

tau_as : used from rad_com

nraero_aod : used from radpar

Initial Value = >ntrace

trname : used from oldtracer_mod

dlogp : real*8, parameter

10.d0**(-2./16.)
Initial Value = 7.49894209d-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

pstd : real*8, dimension(nlevref+1)

Approximate pressures of levels for supplied climatology

skip_tracer : logical

logical to not define aer2 for a rad code tracer

surfacealbedo : real*8, intent(in)

l : integer

k : integer

i : integer

ii : integer

m : integer

j : integer

iclay : integer

n : integer

ll : integer

oref3 : real*8, dimension(nlevref)

tref3 : real*8, dimension(nlevref)

ydgrd : real*8

f0 : real*8

t0 : real*8

pb : real*8

pc : real*8

xc : real*8

scaleh : real*8