Index

Rundeck: E6TomaF40

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

set_diag_aod

Module:

File: TRACERS_DRV.f

Summary: set_diag_aod saves extinction, scattering and asymmetry parameter diags
Author : Dorothy Koch, modified by Kostas Tsigaridis
Version:

---

Declaration:

subroutine set_diag_aod(n, k, n_subclasses)

Variables:

k : integer, intent(inout), integer, intent(inout)

n : integer, intent(in), integer, intent(in)

n_subclasses : integer, optional, intent(in), integer, optional, intent(in)

optional argument for the number of sub classes of a given

trname : used from oldtracer_mod

sname_strlen : used from mdiag_com

diag_rad : used from trdiag_com

ijts_tau : used from trdiag_com

ijts_sqex : used from trdiag_com

ijts_sqsc : used from trdiag_com

ijts_sqcb : used from trdiag_com

ia_ijts : used from trdiag_com

sname_ijts : used from trdiag_com

lname_ijts : used from trdiag_com

dname_ijts : used from trdiag_com

ijts_power : used from trdiag_com

units_ijts : used from trdiag_com

scale_ijts : used from trdiag_com

ijts_hasarea : used from trdiag_com

ijts_tausub : used from trdiag_com

ijts_sqexsub : used from trdiag_com

ijts_sqscsub : used from trdiag_com

ijts_sqcbsub : used from trdiag_com

save_dry_aod : used from trdiag_com

ia_rad : used from diag_com

k : integer, intent(inout), integer, intent(inout)

n_subclasses : integer, optional, intent(in), integer, optional, intent(in)

optional argument for the number of sub classes of a given

n : integer, intent(in), integer, intent(in)

sascs : character(len=10), parameter, dimension(3)

short name of all-sky/clear-sky selector
Initial Value = (/' ','CS_ ','DRY_'/)

lascs : character(len=10), parameter, dimension(3)

long name of all-sky/clear-sky selector
Initial Value = (/' ','clear sky','dry aeros'/)

s : integer

index of sascs and lascs

kr : integer

index of solar bands

skr : character(len=1)

value of kr as a string

sn1 : character(len=1)

value of n1 as a string

unit_string : character*50

dname : character(len=sname_strlen), parameter

Initial Value = 'clrsky'

n1 : integer

n_sub : integer