Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

updateaerosol2

Module: AERPARAM_MOD

File: READ_AERO.f

Summary: updateAerosol2 reads aerosol file(s) and calculates A6JDAY(lma,6,:,:) (dry aerosol Tau) for current day, year. On startup, it allocates a6jday and plbaer, and reads plbaer. Note that jYearA may be negative, which is the Model E method for indicating that the data for abs(jYearA) is to be used for all years (this matters when time-interpolating between December and January).
Author :
Version:

---

Declaration:

subroutine updateaerosol2(jyeara, jjdaya, a6jday, plbaer)

Variables:

grid : used from domain_decomp_atm

jdmidofm : used from model_com

init_stream : used from timestream_mod

read_stream : used from timestream_mod

reset_stream_properties : used from timestream_mod

get_by_index : used from timestream_mod

par_open : used from pario

par_close : used from pario

read_dist_data : used from pario

read_data : used from pario

get_dimlen : used from pario

get_dimlens : used from pario

jyeara : integer, intent(in)

current year; negative if the same year is to be repeated

jjdaya : integer, intent(in)

current day

a6jday : real*8, pointer, dimension(:, :, :, :)

optical depth for 6 aerosol types

plbaer : real*8, dimension(:), pointer

pressures of layer interfaces in aerosol datafiles

m : integer

mi : integer

mj : integer

i : integer

j : integer

l : integer

n : integer

jyearx : integer

wtmi : real*8

wtmj : real*8

xsslt : real*8

dp : real*8

mindp : real*8

init : logical, save

Initial Value = .false.

cyclic : logical

dlens : integer, dimension(7)

i_0 : integer

i_1 : integer

j_0 : integer

j_1 : integer

fid : integer

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

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