Index

Rundeck: E6F40

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

radia

Module:

File: RAD_DRV.f

Summary: RADIA adds the radiation heating to the temperatures
Author : Original Development Team
Version:

---

Declaration:

subroutine radia

Calls the following subroutines/functions:

tropwmo

Module: Global File: ATM_UTILS.f
tropwmo calculates tropopause height according to WMO formula

coszs

coszt

rcompx

Module: RADPAR File: RADIATION.f

!

writer

writet

Variables:

lhe : used from constant

lhs : used from constant

twopi : used from constant

tf : used from constant

stbo : used from constant

rhow : used from constant

mair : used from constant

grav : used from constant

bysha : used from constant

pi : used from constant

radian : used from constant

areag : used from constant

pmtop : used from resolution

im : used from resolution

jm : used from resolution

lm : used from resolution

kradia : used from atm_com

lm_req : used from atm_com

p : used from atm_com

t : used from atm_com

q : used from atm_com

iu_rad : used from atm_com

req_fac_d : used from atm_com

seconds_per_day : used from timeconstants_mod

int_days_per_year : used from timeconstants_mod

byaml00 : used from atm_com

imaxj : used from geom

axyp : used from geom

byaxyp : used from geom

lat2d : used from geom

lon2d : used from geom

lx : used from radpar

tauwc0 : used from radpar

tauic0 : used from radpar

writer : used from radpar

rcompx : used from radpar

updghg : used from radpar

s00wm2 : used from radpar

ratls0 : used from radpar

s0 : used from radpar

jyearr : used from radpar

Initial Value = >JYEAR

jdayr : used from radpar

Initial Value = >JDAY

fulgas : used from radpar

use_tracer_chem : used from radpar

fs8opx : used from radpar

ft8opx : used from radpar

use_o3_ref : used from radpar

kyearg : used from radpar

kjdayg : used from radpar

planck_tmin : used from radpar

planck_tmax : used from radpar

jlat46 : used from radpar

Initial Value = >JLAT

ilon72 : used from radpar

Initial Value = >ILON

jgcm : used from radpar

igcm : used from radpar

l1 : used from radpar

lmr : used from radpar

Initial Value = >NL

plb : used from radpar

tlb : used from radpar

tlm : used from radpar

shl : used from radpar

rhl : used from radpar

ltopcl : used from radpar

tauwc : used from radpar

tauic : used from radpar

sizewc : used from radpar

sizeic : used from radpar

kdeliq : used from radpar

pocean : used from radpar

pearth : used from radpar

poice : used from radpar

plice : used from radpar

plake : used from radpar

cosz : used from radpar

pvt : used from radpar

tgo : used from radpar

tge : used from radpar

tgoi : used from radpar

tgli : used from radpar

tsl : used from radpar

wmag : used from radpar

wearth : used from radpar

agesn : used from radpar

snowd : used from radpar

snowoi : used from radpar

snowli : used from radpar

dalbsn : used from radpar

zsnwoi : used from radpar

zoice : used from radpar

zmp : used from radpar

fmp : used from radpar

flags : used from radpar

ls1_loc : used from radpar

snow_frac : used from radpar

zlake : used from radpar

tracer : used from radpar

fstopx : used from radpar

fttopx : used from radpar

chem_in : used from radpar

nraero_aod : used from radpar

Initial Value = >NTRACE

ftauc : used from radpar

loc_chl : used from radpar

fstasc : used from radpar

fttasc : used from radpar

trdflb : used from radpar

trnflb : used from radpar

truflb : used from radpar

trfcrl : used from radpar

chem_out : used from radpar

srdflb : used from radpar

srnflb : used from radpar

sruflb : used from radpar

srfhrl : used from radpar

plavis : used from radpar

planir : used from radpar

albvis : used from radpar

albnir : used from radpar

fsrnfg : used from radpar

srrvis : used from radpar

srrnir : used from radpar

sravis : used from radpar

sranir : used from radpar

srxvis : used from radpar

srdvis : used from radpar

btempw : used from radpar

sraext : used from radpar

srasct : used from radpar

sragcb : used from radpar

srdext : used from radpar

srdsct : used from radpar

srdgcb : used from radpar

srvext : used from radpar

srvsct : used from radpar

srvgcb : used from radpar

aesqex : used from radpar

aesqsc : used from radpar

aesqcb : used from radpar

co2outcol : used from radpar

aesqex_dry : used from radpar

aesqsc_dry : used from radpar

aesqcb_dry : used from radpar

srxnir : used from radpar

srdnir : used from radpar

modrd : used from rad_com

nrad : used from rad_com

rqt : used from rad_com

srhr : used from rad_com

trhr : used from rad_com

fsf : used from rad_com

cosz1 : used from rad_com

s0x : used from rad_com

rsdist : used from rad_com

nradfrc : used from rad_com

ch4x_radoverchem : used from rad_com

snoage : used from rad_com

plb0 : used from rad_com

shl0 : used from rad_com

tchg : used from rad_com

alb : used from rad_com

fsrdir : used from rad_com

srvissurf : used from rad_com

srdn : used from rad_com

cfrac : used from rad_com

rcld : used from rad_com

chem_tracer_save : used from rad_com

rad_interact_aer : used from rad_com

kliq : used from rad_com

rhfix : used from rad_com

cldx : used from rad_com

ghg_yr : used from rad_com

co2x : used from rad_com

n2ox : used from rad_com

ch4x : used from rad_com

cfc11x : used from rad_com

cfc12x : used from rad_com

xghgx : used from rad_com

rad_forc_lev : used from rad_com

ntrix_aod : used from rad_com

ntrix_rf : used from rad_com

wttr : used from rad_com

cloud_rad_forc : used from rad_com

cc_cdncx : used from rad_com

od_cdncx : used from rad_com

cdncl : used from rad_com

dalbsnx : used from rad_com

rad_to_chem : used from rad_com

trsurf : used from rad_com

dirvis : used from rad_com

fsrdif : used from rad_com

dirnir : used from rad_com

difnir : used from rad_com

aer_rad_forc : used from rad_com

clim_interact_chem : used from rad_com

tausumw : used from rad_com

tausumi : used from rad_com

taero_aod_diag : used from rad_com

chl_from_obio : used from rad_com

chl_from_seawifs : used from rad_com

tauss : used from clouds_com

taumc : used from clouds_com

svlhx : used from clouds_com

rhsav : used from clouds_com

svlat : used from clouds_com

cldsav : used from clouds_com

cldmc : used from clouds_com

cldss : used from clouds_com

csizmc : used from clouds_com

csizss : used from clouds_com

llow : used from clouds_com

lmid : used from clouds_com

lhi : used from clouds_com

fss : used from clouds_com

taussip : used from clouds_com

csizssip : used from clouds_com

qlss : used from clouds_com

qiss : used from clouds_com

qlmc : used from clouds_com

qimc : used from clouds_com

get_cld_overlap : used from clouds_com

ia_rad : used from diag_com

jreg : used from diag_com

aij : used from diag_com

Initial Value = >aij_loc

aijl : used from diag_com

Initial Value = >aijl_loc

ntype : used from diag_com

ftype : used from diag_com

itocean : used from diag_com

itlake : used from diag_com

itearth : used from diag_com

itlandi : used from diag_com

itoice : used from diag_com

itlkice : used from diag_com

adiurn : used from diag_com

Initial Value = >adiurn_loc

ndiuvar : used from diag_com

ia_rad_frc : used from diag_com

iwrite : used from diag_com

jwrite : used from diag_com

itwrite : used from diag_com

ndiupt : used from diag_com

ijdd : used from diag_com

aflx_st : used from diag_com

hr_in_day : used from diag_com

hr_in_month : used from diag_com

pk : used from atm_com

pedn : used from atm_com

pmid : used from atm_com

pdsig : used from atm_com

ltropo : used from atm_com

ma : used from atm_com

byma : used from atm_com

si_atm : used from seaice_com

fearth : used from ghy_com

snowd_ij : used from ghy_com

Initial Value = >snowd

entcells : used from ent_com

ent_get_exports : used from ent_mod

n_covertypes : used from ent_mod

map_ent2giss : used from ent_drv

flake : used from lakes_com

dlake : used from lakes_com

asflx4 : used from fluxes

atmocn : used from fluxes

atmice : used from fluxes

atmgla : used from fluxes

atmlnd : used from fluxes

atmsrf : used from fluxes

flice : used from fluxes

fland : used from fluxes

focean : used from fluxes

grid : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

globalsum : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

coszt : used from rad_cosz0

coszs : used from rad_cosz0

dcdnc_est : used from aerparam_mod

bcdalbsn : used from aerparam_mod

starttimer : used from timerpackage_mod

Initial Value = > start

stoptimer : used from timerpackage_mod

Initial Value = > stop

get_param : used from dictionary_mod

is_set_param : used from dictionary_mod

ij_nintaerext : used from diag_com

ij_nintaersca : used from diag_com

ij_nintaerasy : used from diag_com

nintaerext : used from radpar

nintaersca : used from radpar

nintaerasy : used from radpar

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

per-layer opacity for cloud water,ice

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

per-layer opacity for cloud water,ice

dz : real*8

rho : real*8

u0gas : real*8

taulim : real*8

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

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

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

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

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

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

snfs : real*8, dimension(4, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

tnfs : real*8, dimension(4, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

snfsaerrf : real*8, dimension(18, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

tnfsaerrf : real*8, dimension(18, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

trhrs : real*8, dimension(lm_req, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

srhrs : real*8, dimension(lm_req, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

trhra : real*8, dimension(0:lm+lm_req, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

srhra : real*8, dimension(0:lm+lm_req, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

totcld : real*8, dimension(lm)

ss_cld : real*8, dimension(lm)

dcc_cdncl : real*8, dimension(lm)

dod_cdncl : real*8, dimension(lm)

i : integer

j : integer

l : integer

k : integer

kr : integer

lr : integer

jr : integer

ih : integer

ihm : integer

inch : integer

jk : integer

it : integer

iy : integer

iend : integer

n : integer

onoff_aer : integer

onoff_chem : integer

lfrc : integer

jtime : integer

n1 : integer

moddrf : integer

rot1 : real*8

rot2 : real*8

pland : real*8

css : real*8

cmc : real*8

depth : real*8

qss : real*8

taussl : real*8

tausslip : real*8

taumcl : real*8

elhx : real*8

cldcv : real*8

x : real*8

opnsky : real*8

csz2 : real*8

tauup : real*8

taudn : real*8

ptype4 : real*8, dimension(4)

taucl : real*8

wtlin : real*8

mstrat : real*8

stratq : real*8

strj : real*8

mstj : real*8

optdw : real*8

optdi : real*8

rsign_aer : real*8

rsign_chem : real*8

tauex5 : real*8

tauex6 : real*8

tausct : real*8

taugcb : real*8

dcdnc : real*8

qr : real*8, dimension(LM, grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)

cldinfo : real*8, dimension(LM, 3, grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)

tmps : real*8, dimension(8)

tmpt : real*8, dimension(8)

qsat : real*8

set_clayilli : logical

set_claykaol : logical

set_claysmec : logical

set_claycalc : logical

set_clayquar : logical

rdss : real*8, dimension(LM, grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)

rdmc : real*8, dimension(grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)

tmp : real*8, dimension(NDIUVAR)

nloc_diu_var : integer, parameter

Initial Value = 8

idx : integer, dimension(NLOC_DIU_VAR)

nloc_diu_varb : integer, parameter

Initial Value = 3

idxb : integer, dimension(NLOC_DIU_VARb)

aj_alb_inds : integer, dimension(8)

bydpreq : real*8, dimension(lm_req)

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer

j_0s : integer

j_1s : integer

have_south_pole : logical

have_north_pole : logical

out_line : character(len=300)

nij_before_j0 : integer

nij_after_j1 : integer

nij_after_i1 : integer

initial_ghg_setup : integer

pvt0 : real*8, dimension(N_COVERTYPES)

hvt0 : real*8, dimension(N_COVERTYPES)

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

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

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

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

flag_dsws : logical, dimension(:, :), pointer

rhodz : real*8

year : integer

dayofyear : integer

hour : integer

date : integer