Index

Rundeck: E6TomaF40

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

get_aircraft_tracer

Module:

File: TRACERS.f

Summary: get_aircraft_tracer to define the 3D source of tracers from aircraft
Author : Drew Shindell? / Greg Faluvegi / Jean Learner
Version:

---

Declaration:

subroutine get_aircraft_tracer (ntracer, filename, year, xday, phi, need_read, aircstream)

Variables:

im : used from resolution

jm : used from resolution

lm : used from resolution

itime : used from model_com

master_yr : used from model_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

bygrav : used from constant

openunit : used from filemanager

closeunit : used from filemanager

is_fbsa : used from filemanager

tr3dsource : used from fluxes

axyp : used from geom

itime_tr0 : used from oldtracer_mod

trname : used from oldtracer_mod

set_first_aircraft : used from oldtracer_mod

first_aircraft : used from oldtracer_mod

ntm_chem_beg : used from tracer_com

ntm_chem_end : used from tracer_com

naircraft : used from tracer_com

aer_int_yr : used from tracer_com

so2_int_yr : used from tracer_com

nh3_int_yr : used from tracer_com

bc_int_yr : used from tracer_com

oc_int_yr : used from tracer_com

is_set_param : used from dictionary_mod

get_param : used from dictionary_mod

o3_yr : used from rad_com

read_stream : used from timestream_mod

timestream : used from timestream_mod

init_stream : used from timestream_mod

laircr : integer, parameter

the number of layers of aircraft data read from file
Initial Value = 25

aircraft_tyr2 : integer

the starting and ending years
Initial Value = 0

aircraft_tyr1 : integer

the starting and ending years
Initial Value = 0

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

3D source of tracer from aircraft (on model levels)

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

the name of the aircraft source file for this tracer

ntracer : integer, intent(in)

the index of the tracer in current call in ntm arrays

year : integer, intent(in)

xday : integer, intent(in)

xyear : integer

phi : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm), intent(in)

need_read : logical, intent(in)

fileunit : integer

l : integer

i : integer

j : integer

k : integer

ll : integer