Index

Rundeck: E6TomaF40

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

set_diag_rf

Module:

File: TRACERS_DRV.f

Summary: set_diag_rf saves shortwave and longwave forcing, for all-sky and clear-sky, at surface and TOA
Author : Kostas Tsigaridis
Version:

---

Declaration:

subroutine set_diag_rf(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

tracers_amp : used from runtimecontrols_mod

tracers_tomas : used from runtimecontrols_mod

tracers_dust : used from runtimecontrols_mod

tracers_minerals : used from runtimecontrols_mod

tracers_aerosols_seasalt : used from runtimecontrols_mod

tracers_aerosols_koch : used from runtimecontrols_mod

tracers_nitrate : used from runtimecontrols_mod

sname_strlen : used from mdiag_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_fc : used from trdiag_com

ijts_fcsub : used from trdiag_com

ia_rad_frc : used from diag_com

nradfrc : used from rad_com

diag_fc : used from rad_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(2)

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

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

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

stoasrf : character(len=10), parameter, dimension(2)

short name of toa/surf selector
Initial Value = (/' ','surf_'/)

ltoasrf : character(len=10), parameter, dimension(2)

long name of toa/surf selector
Initial Value = (/'TOA ','surface'/)

sswlw : character(len=10), parameter, dimension(2)

short name of swf/lwf selector
Initial Value = (/'swf_','lwf_'/)

lswlw : character(len=10), parameter, dimension(2)

long name of swf/lwf selector
Initial Value = (/'shortwave','longwave '/)

s : integer

index of sascs and lascs

l : integer

index of stoasrf and ltoasrf

f : integer

index of sswlw and lswlw

i : integer

combined index of s,l,f

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

flag :

to determine whether dust/minerals are the sole radiative tracers

spcname : character(len=20)

l_dust_standalone : logical