Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
radia | Module: | File: RAD_DRV.f |
Author : Original Development Team
Version:
Declaration:
subroutine radia
- 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
- 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
- snowe : 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
- ntrace : used from radpar
- fstopx : used from radpar
- fttopx : used from radpar
- chem_in : used from radpar
- 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
- trdflb_clear : used from radpar
- trnflb_clear : used from radpar
- truflb_clear : used from radpar
- srdflb : used from radpar
- srnflb : used from radpar
- sruflb : used from radpar
- srfhrl : used from radpar
- srdflb_clear : used from radpar
- srnflb_clear : used from radpar
- sruflb_clear : 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
- ttausv : 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
- srxnir : used from radpar
- srdnir : used from radpar
- npd_layer : used from planet_rad
- p_level : used from planet_rad
- t_layer : used from planet_rad
- w_cloud_l : used from planet_rad
- frac_st_water_l : used from planet_rad
- frac_st_ice_l : used from planet_rad
- frac_cnv_water_l : used from planet_rad
- frac_cnv_ice_l : used from planet_rad
- mix_ratio_st_water_l : used from planet_rad
- mix_ratio_st_ice_l : used from planet_rad
- mix_ratio_cnv_water_l : used from planet_rad
- mix_ratio_cnv_ice_l : used from planet_rad
- dim_char_st_water_l : used from planet_rad
- dim_char_st_ice_l : used from planet_rad
- dim_char_cnv_water_l : used from planet_rad
- dim_char_cnv_ice_l : used from planet_rad
- frac_area_st_l : used from planet_rad
- frac_area_cnv_l : used from planet_rad
- cld_scaling : used from planet_rad
- cos_zenith : used from planet_rad
- solar_constant : used from planet_rad
- solar_irrad : used from planet_rad
- tot_cloud_cover : used from planet_rad
- l_clear_lw : used from lw_control
- l_clear_sw : used from sw_control
- truptoa : used from radpar
- sruptoa : used from radpar
- srdntoa : used from radpar
- n_band_lw : used from planet_rad
- n_band_sw : used from planet_rad
- i_cloud_ice_size_scheme : used from planet_rad
- 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 : used from rad_com
- wttr : used from rad_com
- cloud_rad_forc : used from rad_com
- cloud_aer_o3_rad_forc : used from rad_com
- cc_cdncx : used from rad_com
- od_cdncx : used from rad_com
- cdncl : used from rad_com
- nrad_clay : 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
- 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
- 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
- w_cloud : used from clouds_com
- frac_st_water : used from clouds_com
- frac_st_ice : used from clouds_com
- frac_cnv_water : used from clouds_com
- frac_cnv_ice : used from clouds_com
- mix_ratio_st_water : used from clouds_com
- mix_ratio_st_ice : used from clouds_com
- mix_ratio_cnv_water : used from clouds_com
- mix_ratio_cnv_ice : used from clouds_com
- dim_char_st_water : used from clouds_com
- dim_char_st_ice : used from clouds_com
- dim_char_cnv_water : used from clouds_com
- dim_char_cnv_ice : used from clouds_com
- frac_area_st : used from clouds_com
- frac_area_cnv : 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
- hdiurn : used from diag_com
- Initial Value
= >hdiurn_loc
- 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
- 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
- depobc : used from aerparam_mod
- depobc_1990 : 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
- calc_zenith_angle : used from zenith_mod
- u0gas :
real*8
- taulim :
real*8
- xdalbs :
real*8
- sumda :
real*8
- tauda :
real*8
- fsnow :
real*8
- sumda_psum :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- tauda_psum :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- 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)
- 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)
- pcldhigh :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- pcldlow :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- pcldmid :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- accswcrf :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- acclwcrf :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- swuptoacs :
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)
- 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
- pland :
real*8
- css :
real*8
- cmc :
real*8
- depth :
real*8
- qss :
real*8
- taussl :
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)
- 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
- frac_cld_water :
real*8
- frac_cld_ice :
real*8
- icf :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)
- water,ice cloud fraction (conv+strat)
- wcf :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)
- water,ice cloud fraction (conv+strat)
- icmmr :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)
- liquid,ice water mass mixing ratio (conv+strat)
- wcmmr :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)
- liquid,ice water mass mixing ratio (conv+strat)
- icsiz :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)
- liquid,ice particle effective radius weighted by wcmmr,icmmr (conv+strat)
- wcsiz :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm)
- liquid,ice particle effective radius weighted by wcmmr,icmmr (conv+strat)
- reff_ice :
real*8