Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
init_rad | Module: | File: RAD_DRV.f |
Author : Original Development Team
Version:
Declaration:
subroutine init_rad(istart)
- rcomp1
- Module: RADPAR File: RADIATION.f
- orbpar
- tracers_minerals : used from runtimecontrols_mod
- 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
- 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
- kyearvm : used from radpar
- kyeare : used from radpar
- kjdaye : used from radpar
- madeps : used from radpar
- kyearr : used from radpar
- kjdayr : used from radpar
- itr : used from radpar
- nraero_aod : used from radpar
- Initial Value
= >NTRACE
- 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
- aer2 : used from photolysis
- miedx2 : used from photolysis
- nbfastj : used from photolysis
- nraero_rf : used from rad_com
- nraero_seasalt : used from rad_com
- nraero_koch : used from rad_com
- nraero_nitrate : used from rad_com
- nraero_dust : used from rad_com
- nraero_oma : used from rad_com
- nraero_amp : used from rad_com
- nraero_tomas : used from rad_com
- 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
- volc_mean : used from rad_com
- aero_yr : used from rad_com
- dust_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
- obliq : used from rad_com
- eccn : used from rad_com
- omegt : used from rad_com
- obliq_def : used from rad_com
- eccn_def : used from rad_com
- omegt_def : 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
- taero_aod_diag : 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_aod : used from rad_com
- ntrix_rf : used from rad_com
- wttr : used from rad_com
- variable_orb_par : used from rad_com
- orb_par_year_bp : used from rad_com
- orb_par : used from rad_com
- nrad : used from rad_com
- radiationsetorbit : used from rad_com
- chl_from_obio : used from rad_com
- chl_from_seawifs : used from rad_com
- njaero : used from rad_com
- nraero_aod_rsf : used from rad_com
- nraero_rf_rsf : used from rad_com
- tau_as : used from rad_com
- tau_cs : used from rad_com
- tau_dry : used from rad_com
- abstau_as : used from rad_com
- abstau_cs : used from rad_com
- abstau_dry : used from rad_com
- swfrc : used from rad_com
- lwfrc : 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
- save3daod : used from diag_com
- ntm : used from tracer_com
- n_bcia : used from tracer_com
- n_bcb : used from tracer_com
- n_no3p : used from tracer_com
- n_clay : used from tracer_com
- n_silt1 : used from tracer_com
- n_silt2 : used from tracer_com
- n_silt3 : used from tracer_com
- n_silt4 : used from tracer_com
- n_silt5 : used from tracer_com
- n_so4 : used from tracer_com
- n_seasalt1 : used from tracer_com
- n_seasalt2 : used from tracer_com
- n_ocb : used from tracer_com
- n_ocia : used from tracer_com
- n_isopp1a : used from tracer_com
- n_so4 : used from tracer_com
- n_vbsam2 : used from tracer_com
- diag_fc : used from rad_com
- save_dry_aod : used from trdiag_com
- trpdens : used from oldtracer_mod
- imdust : used from trdust_mod
- nsubclays : used from trdust_mod
- dryeffradminerals : used from trdust_mod
- subclayweights : used from trdust_mod
- calcsubclayweights : used from trdust_drv
- ntm_clay : used from tracer_com
- ntm_sil1 : used from tracer_com
- ntm_sil2 : used from tracer_com
- ntm_sil3 : used from tracer_com
- ntm_sil4 : used from tracer_com
- ntm_sil5 : used from tracer_com
- n_soildust : used from tracer_com
- nr_soildust : used from rad_com
- aermix : 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
- kg2mb : 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
- ls1 : used from resolution
- Initial Value
= >ls1_nominal
- mfix : used from resolution
- mfrac : used from resolution
- modrd : used from rad_com
- u0gas : used from radpar
- ulgas : used from radpar
- set_gases_internally : used from radpar
- 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
- fstopx : used from radpar
- fttopx : used from radpar
- l_rad_interact_aer : 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
- 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./)
- out_line :
character(len=300)
- skip :
character*6
- cosz_const :
real*8
- mvar :
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