Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

init_rad

Module:

File: RAD_DRV.f

Summary: init_RAD initialises radiation code
Author : Original Development Team
Version:

---

Declaration:

subroutine init_rad(istart)

Calls the following subroutines/functions:

rcomp1

Module: RADPAR File: RADIATION.f

Variables:

grav : used from constant

bysha : used from constant

twopi : used from constant

planet_name : used from constant

jm : used from resolution

lm : used from resolution

psf : used from resolution

t : used from atm_com

pk : used from atm_com

kradia : used from atm_com

lm_req : used from atm_com

dtsrc : used from model_com

iyear1 : used from model_com

modeleclock : used from model_com

master_yr : used from model_com

orbit : used from model_com

pednl00 : used from atm_com

grid : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

readt_parallel : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

lat_dg : used from geom

ptliso : used from radpar

ktrend : used from radpar

lmr : used from radpar

Initial Value = >NL

plb : used from radpar

ls1_loc : used from radpar

planck_tmin : used from radpar

planck_tmax : used from radpar

transmission_corrections : used from radpar

kcldem : used from radpar

ksialb : used from radpar

ksolar : used from radpar

shl : used from radpar

snoage_fac_max : used from radpar

kzsnow : used from radpar

kyears : used from radpar

kjdays : used from radpar

madluv : used from radpar

kyearg : used from radpar

kjdayg : used from radpar

madghg : used from radpar

kyearo : used from radpar

kjdayo : used from radpar

mado3m : used from radpar

kyeara : used from radpar

kjdaya : used from radpar

madaer : used from radpar

kyeard : used from radpar

kjdayd : used from radpar

maddst : used from radpar

kyearv : used from radpar

kjdayv : used from radpar

madvol : used from radpar

kyeare : used from radpar

kjdaye : used from radpar

madeps : used from radpar

kyearr : used from radpar

kjdayr : used from radpar

kcldep : used from radpar

itr : used from radpar

ntrace : used from radpar

fs8opx : used from radpar

ft8opx : used from radpar

trrdry : used from radpar

krhtra : used from radpar

traden : used from radpar

refdry : used from radpar

rcomp1 : used from radpar

writer : used from radpar

writet : used from radpar

fstasc : used from radpar

fttasc : used from radpar

fttaer : used from radpar

fstaer : used from radpar

kggvdf : used from radpar

kpgrad : used from radpar

klatz0 : used from radpar

kghgzd : used from radpar

epscon : used from radpar

h2o_ppm : used from radpar

co2_ppm : used from radpar

ch4_ppm : used from radpar

rqt : used from rad_com

s0x : 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

o2x : used from rad_com

no2x : used from rad_com

n2cx : used from rad_com

yghgx : used from rad_com

so2x : used from rad_com

ch4x_radoverchem : used from rad_com

snoage_def : used from rad_com

s0_yr : used from rad_com

s0_day : used from rad_com

ghg_yr : used from rad_com

ghg_day : used from rad_com

volc_yr : used from rad_com

volc_day : used from rad_com

aero_yr : used from rad_com

o3_yr : used from rad_com

h2obych4 : used from rad_com

dh2o : used from rad_com

h2ostratx : used from rad_com

o3x : used from rad_com

rhfix : used from rad_com

cldx : used from rad_com

ref_mult : used from rad_com

cosz1 : used from rad_com

cc_cdncx : used from rad_com

od_cdncx : used from rad_com

cdncl : used from rad_com

pcdnc : used from rad_com

vcdnc : used from rad_com

cloud_rad_forc : used from rad_com

cloud_aer_o3_rad_forc : used from rad_com

aer_rad_forc : used from rad_com

plb0 : used from rad_com

shl0 : used from rad_com

albsn_yr : used from rad_com

dalbsnx : used from rad_com

nradfrc : used from rad_com

rad_interact_aer : used from rad_com

clim_interact_chem : used from rad_com

rad_forc_lev : used from rad_com

ntrix : used from rad_com

wttr : used from rad_com

nrad_clay : used from rad_com

nrad : used from rad_com

radiationsetorbit : used from rad_com

cosz_init : used from rad_cosz0

llow : used from clouds_com

iwrite : used from diag_com

jwrite : used from diag_com

itwrite : used from diag_com

aermix : used from aerparam_mod

depobc : used from aerparam_mod

depobc_1990 : used from aerparam_mod

abstractorbit : used from abstractorbit_mod

gasc : used from constant

tf : used from constant

mair : used from constant

mwat : used from constant

pi : used from constant

lhe : used from constant

lhs : used from constant

mb2kg : used from constant

kapa : used from constant

q : used from atm_com

p : used from atm_com

pmid : used from atm_com

pedn : used from atm_com

pdsig : used from atm_com

pek : used from atm_com

ma : used from atm_com

byma : used from atm_com

ltropo : used from atm_com

aml00 : used from atm_com

byaml00 : used from atm_com

req_fac : used from atm_com

kradia : used from atm_com

lm_req : used from atm_com

im : used from resolution

plbot : used from resolution

ptop : used from resolution

ls1 : used from resolution

modrd : used from rad_com

u0gas : used from radpar

ulgas : used from radpar

set_gases_internally : used from radpar

fulgas : used from radpar

dir_solar_spec : used from planet_rad

file_solar_spec : used from planet_rad

dir_spectral : used from planet_rad

file_spectral_lw : used from planet_rad

file_spectral_sw : used from planet_rad

file_aer_opt_prop_lw : used from planet_rad

file_aer_opt_prop_sw : used from planet_rad

solar_constant : used from planet_rad

i_cloud_ice_size_scheme : used from planet_rad

l_cloud : used from planet_rad

control_lw : used from planet_rad

control_sw : used from planet_rad

l_co2_lw : used from lw_control

l_o2_lw : used from lw_control

l_no2_lw : used from lw_control

l_n2o_lw : used from lw_control

l_ch4_lw : used from lw_control

l_cfc11_lw : used from lw_control

l_cfc12_lw : used from lw_control

l_so2_lw : used from lw_control

l_o3_lw : used from lw_control

l_aerosol_lw : used from lw_control

l_co2_sw : used from sw_control

l_o2_sw : used from sw_control

l_no2_sw : used from sw_control

l_n2o_sw : used from sw_control

l_ch4_sw : used from sw_control

l_cfc11_sw : used from sw_control

l_cfc12_sw : used from sw_control

l_so2_sw : used from sw_control

l_o3_sw : used from sw_control

l_aerosol_sw : used from sw_control

set_aerosols_internally : 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

srbext : used from radpar

srbsct : used from radpar

srbgcb : used from radpar

traalk : used from radpar

trdalk : used from radpar

trvalk : used from radpar

trbalk : used from radpar

keepal : used from radpar

srbalb : used from radpar

srxalb : used from radpar

ip_h2o : used from radpar

ip_co2 : used from radpar

ip_o3 : used from radpar

ip_o2 : used from radpar

ip_no2 : used from radpar

ip_n2o : used from radpar

ip_ch4 : used from radpar

ip_cfc11 : used from radpar

ip_cfc12 : used from radpar

ip_n2c : used from radpar

ip_xghg : used from radpar

ip_yghg : used from radpar

ip_so2 : used from radpar

gas_names : used from radpar

par_open : used from pario

par_close : used from pario

read_data : used from pario

read_dist_data : used from pario

atmsrf : used from fluxes

asflx4 : used from fluxes

focean : used from fluxes

fland : used from fluxes

flice : used from fluxes

atmocn : used from fluxes

atmice : used from fluxes

atmgla : used from fluxes

atmlnd : used from fluxes

fearth : used from ghy_com

flake : used from lakes_com

si_atm : used from seaice_com

svlhx : used from clouds_com

svlat : used from clouds_com

rhsav : used from clouds_com

istart : integer, intent(in)

l : integer

lr : integer

n1 : integer

n : integer

nn : integer

iu2 : integer

nrfun : integer, dimension(14)

indices of unit numbers for radiation routines

plbx : real*8, dimension(LM+1)

pyear : real*8

runstr : character*5, dimension(14)

names of files for radiation routines
Initial Value = (/"RADN1","RADN2","RADN3", "RADN4","RADN5","RADN6","RADN7","RADN8", "RADN9","RADNA","RADNB","RADNC","RADND", "RADNE"/)

iu : integer

donotread : integer

status : integer

qbin : logical, dimension(14)

true if files for radiation input files are binary
Initial Value = (/.TRUE.,.TRUE.,.FALSE.,.TRUE.,.TRUE.,.TRUE. ,.TRUE.,.TRUE.,.FALSE.,.TRUE.,.TRUE.,.TRUE.,.TRUE.,.TRUE./)

check_netcdf : logical, dimension(14)

.TRUE. if NetCDF check should be performed on file
Initial Value = (/ .FALSE. , .TRUE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. , .FALSE. /)

file_is_netcdf : logical, dimension(14)

Initial Value = .FALSE.

l_uniform_ghg : logical

Initial Value = .FALSE.

out_line : character(len=300)

skip : character*6

cosz_const : real*8

gasnames : character(len=6), dimension(13)

fid : integer

igas : integer

szadeg : real*8

s0cosz : real*8

s0_tmp : real*8

cosz_tmp : real*8

tloc : real*8

rad_scm_int : integer

rad_scm : logical

Initial Value = .false.

qsat : real*8

i : integer

j : integer

i_0 : integer

i_1 : integer

j_0 : integer

j_1 : integer