Index

Rundeck: E6TomaF40

Created: Sat May 18 03:30:40 EDT 2024

read_aero

Module:

File: TRACERS_SPECIAL_Shindell.f

Summary: read_aero, read in monthly mean fields of SO2 concentration or DMS concentration or sulfate surface area for use in chemistry. This source is not applied directly to the tracer mass like other 3D sources are but used for e.g. HOx, N2O5 chemistry. call it like so: call read_aero(dms_offline,'DMS_FIELD') call read_aero(sulfate,'SULFATE_SA') call read_aero(so2_offline,'SO2_FIELD')
Author : Drew Shindell / Greg Faluvegi
Version:

---

Declaration:

subroutine read_aero(field, fn)

Variables:

lm : used from resolution

im : used from resolution

jm : used from resolution

pmidl00 : used from atm_com

modeleclock : used from model_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

openunit : used from filemanager

closeunit : used from filemanager

lsulf : used from tracer_sources

field : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)

nmons :

: number of monthly input files

psulf : real*8, parameter, dimension(lsulf)

pressure levels of the input file
Initial Value = (/ 0.9720D+03,0.9445D+03,0.9065D+03, 0.8515D+03,0.7645D+03,0.6400D+03,0.4975D+03,0.3695D+03, 0.2795D+03,0.2185D+03,0.1710D+03,0.1335D+03,0.1016D+03, 0.7120D+02,0.4390D+02,0.2470D+02,0.1390D+02,0.7315D+01, 0.3045D+01,0.9605D+00,0.3030D+00,0.8810D-01,0.1663D-01/)

fn : character(len=*), intent(in)

ncalls : integer, parameter

Initial Value = 3

mon_units : integer, dimension(ncalls)

i : integer

j : integer

iu : integer

k : integer

l : integer

nc : integer

title : character*80

out_line : character(len=300)

mon_bins : logical, dimension(ncalls)

Initial Value = (/.true.,.true.,.true./)

srclout : real*8, dimension(lm)

srclin : real*8, dimension(lsulf)

src : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lsulf, ncalls)

trans_emis : logical

Initial Value = .false.

j_1 : integer

j_0 : integer

j_0h : integer

j_1h : integer

i_0 : integer

i_1 : integer