| Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
RADPAR | File: RADIATION.f |
Author : A. Lacis/V. Oinas/R. Ruedy
Version:
Subroutines:
- ao3abs
- getaer
- getbak
- getdst
- geteps
- getgas
- getmie
- geto2a
- getqva
- getvol
- rcomp1
- rcompt
- rcompx
- set_planet_alb_param
- setaer
- setbak
- setdst
- setgas
- setghg
- seto2a
- setqva
- setvol
- upddst
- updeps
- updghg
- updvol
- writer
- writet
Global Variables:
- po2 : used from constant
- avog : used from constant
- mair : used from constant
- grav : used from constant
- loschmidt_constant : used from constant
- lm_req : used from atm_com
- lm_gcm : used from resolution
- Initial Value
= >lm - lx :
integer, parameter
- max.number of vertical layers of the radiation (1D)-model
Initial Value= lm_gcm+lm_req
Used by: | :radia |
- mrelay :
- if not 0, gases/aerosols are repartitioned to new layering
- keep10 :
- if =10 N2 is kept, not repartitioned (only if MRELAY>0)
- no3col :
- if >0 ozone is rescaled before repartitioning if MRELAY>0
- ro3col :
integer::mrelay=0, keep10=0, no3col=0;real*8
- = rescaled column amount of O3 if NO3COL>0 (if MRELAY>0)
Initial Value= 1. - tlgrad :
real*8
- if >=0 tlt=tlm+dT*TLGRAD, tlb=tlm-dT*TLGRAD where
Initial Value= 1. - ptliso :
real*8
- tlt=tlb=tlm above PTLISO mb independent of TLGRAD
Initial Value= 2.5d0
Used by: | :init_rad |
- mlon72 :
integer, parameter
- horizontal grid dimensions referred to in this model
Initial Value= 72 - mlat46 :
integer, parameter
- horizontal grid dimensions referred to in this model
Initial Value= 46 - jnorth :
integer, parameter
- latitude index defining northern hemisphere : jlat>jnorth
Initial Value= MLAT46/2 - dlat46 :
real*8, parameter, dimension(46)
- latitudes of box centers (degrees)
Initial Value= (/ -90.,-86.,-82.,-78.,-74.,-70.,-66.,-62.,-58.,-54.,-50.,-46., -42.,-38.,-34.,-30.,-26.,-22.,-18.,-14.,-10., -6., -2., 2., 6., 10., 14., 18., 22., 26., 30., 34., 38., 42., 46., 50., 54., 58., 62., 66., 70., 74., 78., 82., 86., 90./) - lastvc :
integer
- if >= 0 picks sample atmosph. and ground data, OFFLINE only
Initial Value= -123456 - cosz :
real*8
- cosine of zenith angle (1)
Used by: | :radia |
- ilon :
integer
- lat,lon index w.r.to 72x46 lon-lat grid
- jlat :
integer
- lat,lon index w.r.to 72x46 lon-lat grid
- igcm :
integer
- host GCM grid indices
Used by: | :radia |
- jgcm :
integer
- host GCM grid indices
Used by: | :radia |
- l1 :
integer
- highest and lowest above ground layer
Used by: | :radia |
- nl :
integer
- highest and lowest above ground layer
- ls1_loc :
integer
- local tropopause level, used to limit H2O-scaling
Used by: | :init_rad | :radia |
- jday :
integer
- current year, Julian date
Initial Value= 1 - jyear :
integer
- current year, Julian date
Initial Value= 1980 - plb :
real*8, dimension(lx+1)
- layer pressure (mb) at bottom of layer
Used by: | :init_rad | :radia |
- hlb :
real*8, dimension(lx+1)
- height (km) at bottom of layer - currently NOT Used
- tlm :
real*8, dimension(lx)
- mean layer temperature (K)
Used by: | :radia |
- tlt :
real*8, dimension(lx)
- bottom,top layer temperature (K) - derived from TLm
- tlb :
real*8, dimension(lx+1)
- bottom,top layer temperature (K) - derived from TLm
Used by: | :radia |
- rhl :
real*8, dimension(lx)
- layer specific,relative humidity (1)
Used by: | :radia |
- shl :
real*8, dimension(lx)
- layer specific,relative humidity (1)
Used by: | :init_rad | :radia |
- keeprh :
integer
- if 0: find RH from SH, 1: find SH from RH, 2: keep both
Initial Value= 2 - ulgas :
real*8, dimension(LX, 13)
- current gas amounts, 13 types (cm atm) (in getgas)
Used by: | :init_rad |
- tauic :
real*8, dimension(LX)
- opt.depth of water,ice cloud layer (1)
Used by: | :radia |
- tauwc :
real*8, dimension(LX)
- opt.depth of water,ice cloud layer (1)
Used by: | :radia |
- sizeic :
real*8, dimension(LX)
- particle size of water,ice clouds (micron)
Used by: | :radia |
- sizewc :
real*8, dimension(LX)
- particle size of water,ice clouds (micron)
Used by: | :radia |
- cldeps :
real*8, dimension(LX)
- cloud heterogeneity; is computed using KCLDEP,EPSCON
- epscon :
- cldeps=EPSCON if KCLDEP=1
Used by: | :init_rad |
- kcldep :
real*8::epscon=0.;integer
- KCLDEP=0->CLDEPS=0, 1->=EPSCON, 2->as is, 3,4->isccp
Initial Value= 4
Used by: | :init_rad |
- h2o_ppm :
real*8
- ,... Abundances in PPM for H2O, CO2, CH4
Initial Value= -1d+0
Used by: | :init_rad |
- kdeliq :
integer, dimension(LX, 4)
- Flag for dry(0) or wet(1) air deliquescence
Used by: | :radia |
- co2_ppm :
real*8
- Initial Value
= -1d+0
Used by: | :init_rad |
- ch4_ppm :
real*8
- Initial Value
= -1d+0
Used by: | :init_rad |
- krhdtk :
integer
- if 1, RHlevel for deliquescence is temperature dependent
Initial Value= 1 - srxalb :
real*8, dimension(6)
- diffuse,direct surface albedo (1); see KEEPAL
Used by: | :init_rad |
- srbalb :
real*8, dimension(6)
- diffuse,direct surface albedo (1); see KEEPAL
Used by: | :init_rad |
- keepal :
integer
- if 0, SRBALB,SRXALB are computed in SET/GETSUR
Initial Value= 0
Used by: | :init_rad |
- dalbsn :
real*8
Used by: | :radia |
- pvt :
real*8, dimension(12)
- frac. of surf.type (bareWhite+veg*8+bareDark+ocn)(1)
Used by: | :radia |
- agesn :
real*8, dimension(3)
- 1-3 age of snow (over soil,oice,land ice) (days)
Used by: | :radia |
- snowli :
real*8
- amount of snow (over soil,land ice) (kg/m^2)
Used by: | :radia |
- snowe :
real*8
- amount of snow (over soil,land ice) (kg/m^2)
Used by: | :radia |
- snowoi :
real*8
- amount of snow (over ocean/lake ice) (kg/m^2)
Used by: | :radia |
- wearth :
real*8
- soil wetness (1)
Used by: | :radia |
- wmag :
real*8
- wind speed (m/s)
Used by: | :radia |
- pocean :
real*8
- fraction of box covered by ocean or lake (1)
Used by: | :radia |
- plake :
real*8
- fraction of box covered by lake (1)
Used by: | :radia |
- pearth :
real*8
- fraction of box covered by soil (1)
Used by: | :radia |
- poice :
real*8
- fraction of box covered by ocean/lakeice (1)
Used by: | :radia |
- plice :
real*8
- fraction of box covered by glacial ice (1)
Used by: | :radia |
- tgo :
real*8
- top layer water temperature (K) of ocean/lake
Used by: | :radia |
- tgli :
real*8
- top layer ground temperature (K) soil,seaice,landice
Used by: | :radia |
- tgoi :
real*8
- top layer ground temperature (K) soil,seaice,landice
Used by: | :radia |
- tge :
real*8
- top layer ground temperature (K) soil,seaice,landice
Used by: | :radia |
- tsl :
real*8
- surface air temperature (K)
Used by: | :radia |
- ksialb :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kzsnow :
integer
- =1 for snow/ice albedo zenith angle dependence
Initial Value= 1
Used by: | :init_rad |
- zsnwoi :
real*8
- depth of snow over ocean ice (m)
Used by: | :radia |
- zoice :
real*8
- depth of ocean ice (m)
Used by: | :radia |
- zmp :
real*8
- depth of melt pond (m)
Used by: | :radia |
- fmp :
real*8
- fraction of melt pond area (1)
Used by: | :radia |
- zlake :
real*8
- lake depth (m)
Used by: | :radia |
- flags :
logical*4
- true if snow is wet
Used by: | :radia |
- snow_frac :
real*8, dimension(2)
- (2) fraction of snow over bare(1),vegetated(2) soil (1)
Used by: | :radia |
- snoage_fac_max :
real*8
- max snow age reducing-factor for sea ice albedo
Initial Value= .5d0
Used by: | :init_rad |
- itrmax :
integer, parameter
- maximum number of optional tracers
Initial Value= 50
Used by: | RAD_COM |
- tracer :
real*8, dimension(LX, ITRMAX)
- array to add up to ITRMAX additional aerosol species
Used by: | :radia |
- fttopx :
real*8, dimension(ITRMAX)
- switches on/off aerosol for diagnostics (solar,thermal component)
Used by: | :radia |
- fstopx :
real*8, dimension(ITRMAX)
- switches on/off aerosol for diagnostics (solar,thermal component)
Used by: | :radia |
- ftasc :
- scales optional aerosols (solar,thermal component)
- fstasc :
real*8, dimension(itrmax)
- scales optional aerosols (solar,thermal component)
Initial Value= 1.d0
Used by: | :init_rad | :radia |
- chem_in :
real*8, dimension(2, LX)
- column variable for importing ozone(1) and methane(2)
Used by: | :radia |
- use_tracer_chem :
integer, dimension(2)
- :set U0GAS(L, )=chem_IN( ,L), L=L1,use_tracer_chem( )
Used by: | :radia |
- use_o3_ref :
integer
- Initial Value
= 0
Used by: | :radia |
- loc_chl :
real*8
- local chlorophyll value (unit?) for albedo calculation (optional)
Used by: | :radia |
- u0gas :
real*8, dimension(LX, 13)
- reference gas amounts, 13 types (cm atm) (in setgas)
Used by: | :init_rad |
- set_gases_internally :
logical
- Initial Value
= .true.
Used by: | :init_rad |
- set_aerosols_internally :
logical
- Initial Value
= .true.
Used by: | :init_rad |
- trnflb :
real*8, dimension(LX+1)
- Thrml down,up,net Flux at Layr Bottom (W/m2)
Used by: | :radia |
- truflb :
real*8, dimension(LX+1)
- Thrml down,up,net Flux at Layr Bottom (W/m2)
Used by: | :radia |
- trdflb :
real*8, dimension(LX+1)
- Thrml down,up,net Flux at Layr Bottom (W/m2)
Used by: | :radia |
- trnflb_clear :
real*8, dimension(LX+1)
- Clear-sky versions
Used by: | :radia |
- truflb_clear :
real*8, dimension(LX+1)
- Clear-sky versions
Used by: | :radia |
- trdflb_clear :
real*8, dimension(LX+1)
- Clear-sky versions
Used by: | :radia |
- srnflb :
real*8, dimension(LX+1)
- Solar down,up,net Flux at Layr Bottom (W/m2)
Used by: | :radia |
- sruflb :
real*8, dimension(LX+1)
- Solar down,up,net Flux at Layr Bottom (W/m2)
Used by: | :radia |
- srdflb :
real*8, dimension(LX+1)
- Solar down,up,net Flux at Layr Bottom (W/m2)
Used by: | :radia |
- srnflb_clear :
real*8, dimension(LX+1)
- Clear-sky versions
Used by: | :radia |
- sruflb_clear :
real*8, dimension(LX+1)
- Clear-sky versions
Used by: | :radia |
- srdflb_clear :
real*8, dimension(LX+1)
- Clear-sky versions
Used by: | :radia |
- srfhrl :
real*8, dimension(LX)
- layer LW Cooling Rate,SW Heating Rate (W/m2)
Used by: | :radia |
- trfcrl :
real*8, dimension(LX)
- layer LW Cooling Rate,SW Heating Rate (W/m2)
Used by: | :radia |
- sr :
- .VIS,SR.NIR SW fluxes in vis,near-IR domain (W/m2)
- pla :
- ...,ALB... planetary and surface albedos (1)
- tr :
- ...W,WINDZF fluxes in the window region (W/m2)
- windzt :
real*8, dimension(3)
- Brightness temperature in the window region (K)
- btempw :
real*8
- Brightness temperature in the window region (K)
Used by: | :radia |
- sk :
- ...,SRK... Spectral breakdown of fluxes/heat.rates (W/m2)
- ftrufg :
real*8, dimension(4)
- surface type fractions of SW,LW fluxes (W/m2)
- fsrnfg :
real*8, dimension(4)
- surface type fractions of SW,LW fluxes (W/m2)
Used by: | :radia |
- dtrufg :
real*8, dimension(4)
- not used (W/m2)
- ltopcl :
integer
- bottom and top cloud level (lbot < ltop)
Used by: | :radia |
- lbotcl :
integer
- bottom and top cloud level (lbot < ltop)
- chem_out :
real*8, dimension(LX, 5)
- column variable for exporting radiation code quantities
Initial Value= 0d0
Used by: | :radia |
- ttausv :
real*8, dimension(LX, ITRMAX)
- saves special aerosol optical thickness for diagnostic
Used by: | :radia |
- aesqex :
real*8, dimension(lx, 6, itrmax)
- saves extinction aerosol optical thickness
Used by: | :radia |
- aesqsc :
real*8, dimension(lx, 6, itrmax)
- saves scattering aerosol optical thickness
Used by: | :radia |
- aesqcb :
real*8, dimension(lx, 6, itrmax)
- saves aerosol scattering asymmetry factor
Used by: | :radia |
- srivis :
real*8
- srovis :
real*8
- plavis :
real*8
Used by: | :radia |
- srinir :
real*8
- sronir :
real*8
- planir :
real*8
Used by: | :radia |
- srdvis :
real*8
Used by: | :radia |
- sruvis :
real*8
- albvis :
real*8
Used by: | :radia |
- srdnir :
real*8
Used by: | :radia |
- srunir :
real*8
- albnir :
real*8
Used by: | :radia |
- srtvis :
real*8
- srrvis :
real*8
Used by: | :radia |
- sravis :
real*8
Used by: | :radia |
- srtnir :
real*8
- srrnir :
real*8
Used by: | :radia |
- sranir :
real*8
Used by: | :radia |
- trdfgw :
real*8
- trufgw :
real*8
- truftw :
real*8
- srxvis :
real*8
Used by: | :radia |
- srxnir :
real*8
Used by: | :radia |
- windzf :
real*8, dimension(3)
- totlzf :
real*8, dimension(3)
- totlzt :
real*8, dimension(3)
- srkinc :
real*8, dimension(16)
- srkalb :
real*8, dimension(16)
- srkgax :
real*8, dimension(16, 4)
- srkgad :
real*8, dimension(16, 4)
- skfhrl :
real*8, dimension(lx, 17)
- skdflb :
real*8, dimension(lx+1, 17)
- skuflb :
real*8, dimension(lx+1, 17)
- sknflb :
real*8, dimension(lx+1, 17)
- truptoa :
real*8, allocatable, dimension(:)
Used by: | :radia |
- sruptoa :
real*8, allocatable, dimension(:)
Used by: | :radia |
- srdntoa :
real*8, allocatable, dimension(:)
Used by: | :radia |
- sraext :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srasct :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- sragcb :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srbext :
real*8, dimension(lx, 6)
Used by: | :init_rad |
- srbsct :
real*8, dimension(lx, 6)
Used by: | :init_rad |
- srbgcb :
real*8, dimension(lx, 6)
Used by: | :init_rad |
- srdext :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srdsct :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srdgcb :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srvext :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srvsct :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srvgcb :
real*8, dimension(lx, 6)
Used by: | :init_rad | :radia |
- srcext :
real*8, dimension(lx, 6)
- srcsct :
real*8, dimension(lx, 6)
- srcgcb :
real*8, dimension(lx, 6)
- srcpi0 :
real*8, dimension(lx, 6)
- dblext :
real*8, dimension(lx+1, 6)
- dblsct :
real*8, dimension(lx+1, 6)
- dblgcb :
real*8, dimension(lx+1, 6)
- dblpi0 :
real*8, dimension(lx+1, 6)
- trtauk :
real*8, dimension(lx, 33)
- trgxlk :
real*8, dimension(lx, 33)
- trcalk :
real*8, dimension(lx, 33)
- traalk :
real*8, dimension(lx, 33)
Used by: | :init_rad |
- trbalk :
real*8, dimension(lx, 33)
Used by: | :init_rad |
- trdalk :
real*8, dimension(lx, 33)
Used by: | :init_rad |
- trvalk :
real*8, dimension(lx, 33)
Used by: | :init_rad |
- dflb :
real*8, dimension(LX+1, 33)
- uflb :
real*8, dimension(LX+1, 33)
- trctca :
real*8, dimension(33)
- dfsl :
real*8, dimension(33)
- ufsl :
real*8, dimension(33)
- txctpg :
real*8, dimension(33)
- tsctpg :
real*8, dimension(33)
- tgctpg :
real*8, dimension(33)
- avh2s :
real*8, dimension(33)
- trgalb :
real*8, dimension(33)
- bgfemt :
real*8, dimension(33)
- bgfemd :
real*8, dimension(33)
- pl :
real*8, dimension(lx)
- dpl :
real*8, dimension(lx)
- o2fhrl :
real*8, dimension(lx)
- sraxnl :
real*8, dimension(lx)
- srasnl :
real*8, dimension(lx)
- sragnl :
real*8, dimension(lx)
- o2fhrb :
real*8, dimension(lx)
- bxa :
real*8, dimension(7)
- prnb :
real*8, dimension(6, 4)
- prnx :
real*8, dimension(6, 4)
- q55h2s :
real*8
- qvh2s :
real*8, dimension(6)
- svh2s :
real*8, dimension(6)
- gvh2s :
real*8, dimension(6)
- xtru :
real*8, dimension(LX, 4)
- xtrd :
real*8, dimension(LX, 4)
- dxaeru :
real*8, dimension(LX, 4, 4, LX+4)
- dxaerd :
real*8, dimension(LX, 4, 4, LX+4)
- ip24c9 :
integer, dimension(LX)
- srcqpi :
real*8, dimension(6, 15)
- trcqpi :
real*8, dimension(33, 15)
- traqab :
real*8, dimension(33, 11)
- trbqab :
real*8, dimension(33, 10)
- trcqab :
real*8, dimension(33, 15)
- trdqab :
real*8, dimension(33, 25)
- norder :
integer, dimension(16)
- nmwava :
integer, dimension(16)
- nmwavb :
integer, dimension(16)
- dks0 :
real*8, parameter, dimension(16)
- Initial Value
= (/ .010, .030, .040, .040, .040, .002, .004, .013, .002, .003, .003, .072, .200, .480, .050, .011/) - nkslam :
integer
- Initial Value
= 14 - kslam :
integer, parameter, dimension(16)
- Initial Value
= (/1,1,2,2,5,5,5,5,1,1,1,3,4,6,6,1/) - hlb0 :
real*8, dimension(LX+1)
- plb0 :
real*8, dimension(LX+1)
- tlm0 :
real*8, dimension(LX)
- u0gas3 :
real*8, dimension(LX)
- tkpfw :
real*8, dimension(630)
- tkpft :
real*8, dimension(900)
- ao3 :
real*8, dimension(460)
- fpxco2 :
real*8, dimension(LX)
- fpxozo :
real*8, dimension(LX)
- trax :
real*8, dimension(LX, 33, 5)
- dbln :
real*8, dimension(30)
- tclmin :
real*8
- qxdust :
real*8, dimension(:, :), allocatable
- qsdust :
real*8, dimension(:, :), allocatable
- qcdust :
real*8, dimension(:, :), allocatable
- atdust :
real*8, dimension(:, :), allocatable
- planck_tmax :
integer
- temperature range for Planck function
Initial Value= 800
Used by: | :init_rad | :radia |
- planck_tmin :
integer
- temperature range for Planck function
Initial Value= 1
Used by: | :init_rad | :radia |
- qdst55 :
real*8, dimension(:), allocatable
- transmission_corrections :
logical
- whether to apply correction factors
Used by: | :init_rad |
- ngux :
integer
- ntx :
integer, parameter
- Initial Value
= 8 - npx :
integer, parameter
- Initial Value
= 19 - tautbl :
real*8, allocatable, dimension(:, :, :)
- tauwv0 :
real*8, allocatable, dimension(:, :, :)
- taug20 :
real*8, allocatable, dimension(:, :, :)
- taug30 :
real*8, allocatable, dimension(:, :, :)
- igasx :
integer, allocatable, dimension(:)
- kgx :
integer, allocatable, dimension(:)
- nux :
integer, allocatable, dimension(:)
- igux :
integer, allocatable, dimension(:)
- ngas :
integer
- nmol :
integer
- ip_h2o :
integer
- Initial Value
= 1
Used by: | :daily_rad | :init_rad |
- ip_co2 :
integer
- Initial Value
= 2
Used by: | :daily_rad | :init_rad |
- ip_o3 :
integer
- Initial Value
= 3
Used by: | :daily_rad | :init_rad |
- ip_o2 :
integer
- Initial Value
= 4
Used by: | :daily_rad | :init_rad |
- ip_no2 :
integer
- Initial Value
= 5
Used by: | :daily_rad | :init_rad |
- ip_n2o :
integer
- Initial Value
= 6
Used by: | :daily_rad | :init_rad |
- ip_ch4 :
integer
- Initial Value
= 7
Used by: | :daily_rad | :init_rad |
- ip_cfc11 :
integer
- Initial Value
= 8
Used by: | :daily_rad | :init_rad |
- ip_cfc12 :
integer
- Initial Value
= 9
Used by: | :daily_rad | :init_rad |
- ip_n2c :
integer
- Initial Value
= 10
Used by: | :daily_rad | :init_rad |
- ip_xghg :
integer
- Initial Value
= 11
Used by: | :daily_rad | :init_rad |
- ip_yghg :
integer
- Initial Value
= 12
Used by: | :daily_rad | :init_rad |
- ip_so2 :
integer
- Initial Value
= 13
Used by: | :daily_rad | :init_rad |
- gas_names :
character(len=6), dimension(13)
Used by: | :init_rad |
- ip_map_old :
integer, dimension(13)
- h2o :
real*8, dimension(100)
- fco2 :
real*8, dimension(100)
- planck :
real*8, dimension(1:800, 33)
- xkcfc :
real*8, allocatable, dimension(:, :, :)
- ulox :
real*8, allocatable, dimension(:, :)
- dux :
real*8, allocatable, dimension(:, :)
- xtfac :
real*8, allocatable, dimension(:, :)
- nlcf :
integer, parameter, private
- Initial Value
= 43 - nwvcf :
integer, parameter, private
- Initial Value
= 9 - nucf :
integer, parameter, private
- Initial Value
= 7 - nrcf :
integer, parameter, private
- Initial Value
= 3 - xtu0 :
real*8, dimension(nlcf, nrcf)
- xtd0 :
real*8, dimension(nlcf, nrcf)
- xtrup :
real*8, dimension(nlcf, nwvcf, nrcf)
- xtrdn :
real*8, dimension(nlcf, nwvcf, nrcf)
- dxup13 :
real*8, dimension(nlcf, nwvcf, nrcf)
- dxdn13 :
real*8, dimension(nlcf, nwvcf, nrcf)
- dxup2 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxup3 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxup6 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxup7 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxup8 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxup9 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxdn2 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxdn3 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxdn6 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxdn7 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxdn8 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- dxdn9 :
real*8, dimension(nlcf, nwvcf, nucf, nrcf)
- h2ocn8 :
real*8, dimension(33, 8, 14)
- h2ocf8 :
real*8, dimension(33, 8, 5)
- sraqex :
real*8, dimension( 6, 11)
- sraqsc :
real*8, dimension( 6, 11)
- sraqcb :
real*8, dimension( 6, 11)
- q55a11 :
real*8, dimension(11)
- traqex :
real*8, dimension(33, 11)
- traqsc :
real*8, dimension(33, 11)
- traqcb :
real*8, dimension(33, 11)
- refa11 :
real*8, dimension(11)
- srbqex :
real*8, dimension( 6, 10)
- srbqsc :
real*8, dimension( 6, 10)
- srbqcb :
real*8, dimension( 6, 10)
- q55b10 :
real*8, dimension(10)
- trbqex :
real*8, dimension(33, 10)
- trbqsc :
real*8, dimension(33, 10)
- trbqcb :
real*8, dimension(33, 10)
- refb10 :
real*8, dimension(10)
- srcqex :
real*8, dimension( 6, 15)
- srcqsc :
real*8, dimension( 6, 15)
- srcqcb :
real*8, dimension( 6, 15)
- q55c15 :
real*8, dimension(15)
- trcqex :
real*8, dimension(33, 15)
- trcqsc :
real*8, dimension(33, 15)
- trcqcb :
real*8, dimension(33, 15)
- refc15 :
real*8, dimension(15)
- trcqal :
real*8, dimension(33, 15)
- vefc15 :
real*8, dimension(15)
- vefa11 :
real*8, dimension( 11)
- vefb10 :
real*8, dimension(10)
- srdqex :
real*8, dimension( 6, 25)
- srdqsc :
real*8, dimension( 6, 25)
- srdqcb :
real*8, dimension( 6, 25)
- q55d25 :
real*8, dimension(25)
- yrdqex :
real*8, dimension( 6, 25)
- yrdqsc :
real*8, dimension( 6, 25)
- yrdqcb :
real*8, dimension( 6, 25)
- y55d25 :
real*8, dimension(25)
- trdqex :
real*8, dimension(33, 25)
- trdqsc :
real*8, dimension(33, 25)
- trdqcb :
real*8, dimension(33, 25)
- refd25 :
real*8, dimension(25)
- trdqal :
real*8, dimension(33, 25)
- vefd25 :
real*8, dimension(25)
- srvqex :
real*8, dimension( 6, 20, 6)
- srvqsc :
real*8, dimension( 6, 20, 6)
- srvqcb :
real*8, dimension( 6, 20, 6)
- trvqex :
real*8, dimension(33, 20, 6)
- trvqsc :
real*8, dimension(33, 20, 6)
- trvqcb :
real*8, dimension(33, 20, 6)
- trvqal :
real*8, dimension(33, 20, 6)
- q55v20 :
real*8, dimension(20, 6)
- refv20 :
real*8, dimension(20, 6)
- vefv20 :
real*8, dimension(20, 6)
- sruqex :
real*8, dimension( 6, 120)
- sruqsc :
real*8, dimension( 6, 120)
- sruqcb :
real*8, dimension( 6, 120)
- q55u22 :
real*8, dimension(120)
- truqex :
real*8, dimension(33, 120)
- truqsc :
real*8, dimension(33, 120)
- truqcb :
real*8, dimension(33, 120)
- refu22 :
real*8, dimension(120)
- truqal :
real*8, dimension(33, 120)
- vefu22 :
real*8, dimension(120)
- trsqal :
real*8, dimension(33, 25)
- vefs25 :
real*8, dimension(25)
- srsqex :
real*8, dimension( 6, 25)
- srsqsc :
real*8, dimension( 6, 25)
- srsqcb :
real*8, dimension( 6, 25)
- q55s25 :
real*8, dimension(25)
- trsqex :
real*8, dimension(33, 25)
- trsqsc :
real*8, dimension(33, 25)
- trsqcb :
real*8, dimension(33, 25)
- refs25 :
real*8, dimension(25)
- srqv :
real*8, dimension( 6, 20)
- srsv :
real*8, dimension( 6, 20)
- srgv :
real*8, dimension( 6, 20)
- q55v :
real*8, dimension( 20)
- refv :
real*8, dimension(20)
- trqv :
real*8, dimension(33, 20)
- trsv :
real*8, dimension(33, 20)
- trgv :
real*8, dimension(33, 20)
- trav :
real*8, dimension(33, 20)
- vefv :
real*8, dimension(20)
- ppmv_to_cm_at_stp :
real*8, parameter
- Conversion factor for conversion from PPMV to cm at
Initial Value= 1.0D-05*avog/ (grav*mair*loschmidt_constant) - rijtpg :
real*8, dimension(6, 49, 17, 21)
- fdxtpg :
real*8, dimension(3, 49, 17, 21)
- femtpg :
real*8, dimension(3, 49, 17, 21)
- h2o_mmr_to_cm_at_stp :
real*8, parameter
- Conversion factor for conversion from mass
Initial Value= ppmv_to_cm_at_stp* 1.0D+6*mair/18.0153D0 - madxxx :
- Model Add-on Data of Extended Climatology Enable Parameter
- mado3m :
integer
- Initial Value
= 1
Used by: | :init_rad |
- madaer :
integer
- Initial Value
= 0
Used by: | :init_rad |
- maddst :
integer
- Initial Value
= 0
Used by: | :init_rad |
- madvol :
integer
- Initial Value
= 0
Used by: | :init_rad |
- madeps :
integer
- Initial Value
= 0
Used by: | :init_rad |
- madluv :
integer
- Initial Value
= 1
Used by: | :init_rad |
- madghg :
integer
- Initial Value
= 1
Used by: | :init_rad |
- madsur :
integer
- Initial Value
= 0 - madbak :
integer
- Initial Value
= 0 - kjdayx :
- if both are 0 : data are updated to current yr/day
- kyearx :
- if both are 0 : data are updated to current yr/day
- mado2a :
integer
- Initial Value
= 1 - kyears :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kjdays :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kyearg :
integer
- Initial Value
= 0
Used by: | :init_rad | :radia |
- kjdayg :
integer
- Initial Value
= 0
Used by: | :init_rad | :radia |
- kyearo :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kjdayo :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kyeara :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kjdaya :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kyeard :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kjdayd :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kyearv :
integer
- Initial Value
= 0
Used by: | :daily_rad | :init_rad |
- kjdayv :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kyeare :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kjdaye :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kyearr :
integer
- Initial Value
= 0
Used by: | :init_rad |
- kjdayr :
integer
- Initial Value
= 0
Used by: | :init_rad |
- plba21 :
- Vert. Layering for tropospheric aerosols (reference)
- o3jday :
real*8, dimension(:, :, :), pointer
- o3jref :
real*8, dimension(:, :, :), pointer
- plba09 :
real*8, parameter, dimension(10)
- Vert. Layering for tropospheric aerosols/dust (reference)
Initial Value= (/ 1010.,934.,854.,720.,550.,390.,255.,150., 70., 10./) - plba20 :
real*8, parameter, dimension(21)
- Initial Value
= (/ 984.,964.,934.,884.,810.,710.,550.,390.,285.,210., 150.,110., 80., 55., 35., 20., 10., 3., 1.,0.3,0.1/) - plbaer :
real*8, dimension(:), pointer
- Initial Value
= > null() - a6jday :
real*8, dimension(:, :, :, :), pointer
- Initial Value
= > null() - tdust :
real*4, dimension(:, :, :, :, :), pointer
- ddjday :
real*8, dimension(:, :, :, :), allocatable
- imd :
integer
- jmd :
integer
- lmd :
integer
- nsized :
integer
- nmond :
integer
- redust :
real*8, dimension(:), pointer
- rodust :
real*8, dimension(:), pointer
- plbdust :
real*8, dimension(:), pointer
- taucon :
real*8, dimension(8)
- fdata :
real*8, dimension(80)
- gdata :
real*8, dimension(80)
- htflat :
real*8, dimension(49, 4)
- sizlat :
real*8, dimension(49)
- taulat :
real*8, dimension(49)
- v4taur :
real*8, dimension(:, :, :), allocatable
- jvolyi :
integer
- jvolye :
integer
- nvolmon :
integer
- eplmhc :
real*4, dimension(72, 46, 12, 4)
- ms0x :
integer, parameter
- first year, max.number of months for S0 history
Initial Value= 12*(1998-iy1S0+1) - iy1s0 :
integer, parameter
- first year, max.number of months for S0 history
Initial Value= 1882 - icycs0 :
integer, parameter
- solar cycle in yrs used to extend S0 history before 2000
Initial Value= 11 - icycs0f :
integer, parameter
- solar cycle in yrs used to extend S0 history after 2000
Initial Value= 12 - ksolar :
integer
- controls which data are used: <0 Thekaekara, else Lean:
Initial Value= 1
Used by: | :init_rad |
- eplow :
real*8, dimension(72, 46)
- epmid :
real*8, dimension(72, 46)
- ephig :
real*8, dimension(72, 46)
- epcol :
real*8, dimension(72, 46)
- ims0x :
integer
- yr1s0 :
real*4
- yr2s0 :
real*4
- uvlean :
real, allocatable, dimension(:, :)
- tsi1 :
real, allocatable, dimension(:)
- tsi2 :
real, allocatable, dimension(:)
- fslean :
real*8, dimension(190)
- w1lean :
real*8, dimension(190)
- s00wm2 :
real*8
- Initial Value
= 1366.2911d0
Used by: | :radia |
- s0 :
real*8
- Initial Value
= 1366.d0
Used by: | :radia | RAD_COM |
- ratls0 :
real*8
- Initial Value
= 1.
Used by: | :radia |
- wsolar :
real*8, dimension(190)
- fsolar :
real*8, dimension(190)
- wslean :
real*8, dimension(190)
- dslean :
real*8, dimension(190)
- frlean :
real*8, dimension(190)
- wthek :
real*8, parameter, dimension(190)
- Initial Value
= (/ .115,.120,.125,.130,.140,.150,.160,.170,.180,.190,.200, .210,.220,.225,.230,.235,.240,.245,.250,.255,.260,.265,.270,.275, .280,.285,.290,.295,.300,.305,.310,.315,.320,.325,.330,.335, .340,.345,.350,.355,.360,.365,.370,.375,.380,.385,.390, .395,.400,.405,.410,.415,.420,.425,.430,.435,.440,.445, .450,.455,.460,.465,.470,.475,.480,.485,.490,.495,.500, .505,.510,.515,.520,.525,.530,.535,.540,.545,.550,.555, .560,.565,.570,.575,.580,.585,.590,.595,.600,.605,.610, .620,.630,.640,.650,.660,.670,.680,.690,.700,.710,.720, .730,.740,.750,.760,.770,.780,.790,.800,.810,.820,.830, .840,.850,.860,.870,.880,.890,.900,.910,.920,.930,.940,.950,.960, 0.97,0.98,0.99,1.00,1.05,1.10,1.15,1.20,1.25,1.30,1.35,1.40,1.45, 1.50,1.55,1.60,1.65,1.70,1.75,1.80,1.85,1.90,1.95,2.00,2.10,2.20, 2.30,2.40,2.50,2.60,2.70,2.80,2.90,3.00,3.10,3.20,3.30,3.40,3.50, 3.60,3.70,3.80,3.90,4.00,4.10,4.20,4.30,4.40,4.50,4.60,4.70,4.80, 4.9, 5.0, 6.0, 7.0, 8.0, 9.0,10.0,11.0,12.0,13.0,14.0,15.00/) - krhtra :
integer, dimension(ITRMAX)
- (ITRMAX) 0/1 to make tracer aerosols rel.humid dependent
Initial Value= 1
Used by: | :init_rad |
- fthek :
real*8, parameter, dimension(190)
- Initial Value
= (/ .007,.900,.007,.007,.030,.070,.230,.630,1.25,2.71,10.7, 22.9,57.5,64.9,66.7,59.3,63.0,72.3,70.4,104.,130.,185.,232.,204., 222.,315.,482.,584.,514.,603.,689.,764.,830.,975.,1059.,1081., 1074.,1069.,1093.,1083.,1068.,1132.,1181.,1157.,1120.,1098.,1098., 1189.,1429.,1644.,1751.,1774.,1747.,1693.,1639.,1663.,1810.,1922., 2006.,2057.,2066.,2048.,2033.,2044.,2074.,1976.,1950.,1960.,1942., 1920.,1882.,1833.,1833.,1852.,1842.,1818.,1783.,1754.,1725.,1720., 1695.,1705.,1712.,1719.,1715.,1712.,1700.,1682.,1666.,1647.,1635., 1602.,1570.,1544.,1511.,1486.,1456.,1427.,1402.,1389.,1344.,1314., 1290.,1260.,1235.,1211.,1185.,1159.,1134.,1109.,1085.,1060.,1036., 1013.,990.,968.,947.,926.,908.,891.,880.,869.,858.,847.,837.,820., 803.,785.,767.,748.,668.,593.,535.,485.,438.,397.,358.,337.,312., 288.,267.,245.,223.,202.,180.,159.,142.,126.,114.,103., 90., 79., 69.0,62.0,55.0,48.0,43.0,39.0,35.0,31.0,26.0,22.6,19.2,16.6,14.6, 13.5,12.3,11.1,10.3, 9.5,8.70,7.80,7.10,6.50,5.92,5.35,4.86,4.47, 4.11,3.79,1.82,0.99,.585,.367,.241,.165,.117,.0851,.0634,.0481/) - srhqex :
real*8, dimension(6, 190, 4)
- srhqsc :
real*8, dimension(6, 190, 4)
- srhqcb :
real*8, dimension( 6, 190, 4)
- trhqab :
real*8, dimension(33, 190, 4)
- rhinfo :
real*8, dimension(190, 15, 4)
- srtqex :
real*8, dimension(6, 190, ITRMAX)
- srtqsc :
real*8, dimension(6, 190, ITRMAX)
- srtqcb :
real*8, dimension(6, 190, ITRMAX)
- trtqab :
real*8, dimension(33, 190, ITRMAX)
- rtinfo :
real*8, dimension(190, 15, ITRMAX)
- xwavo3 :
real*8, parameter, dimension(226)
- Initial Value
= (/ .2002,.2012,.2022,.2032,.2042,.2052,.2062,.2072,.2082, .2092,.2102,.2112,.2122,.2132,.2142,.2152,.2162,.2172,.2182,.2192, .2202,.2212,.2222,.2232,.2242,.2252,.2262,.2272,.2282,.2292,.2302, .2312,.2322,.2332,.2342,.2352,.2362,.2372,.2382,.2392,.2400,.2402, .2412,.2422,.2432,.2438,.2444,.2452,.2458,.2463,.2472,.2478,.2482, .2490,.2492,.2500,.2508,.2519,.2527,.2539,.2543,.2553,.2562,.2566, .2571,.2575,.2579,.2587,.2597,.2604,.2617,.2624,.2635,.2643,.2650, .2654,.2662,.2669,.2675,.2682,.2692,.2695,.2702,.2712,.2718,.2722, .2732,.2742,.2746,.2752,.2762,.2772,.2782,.2792,.2802,.2812,.2822, .2830,.2842,.2852,.2862,.2872,.2882,.2892,.2902,.2912,.2922,.2932, .2942,.2952,.2962,.2972,.2982,.2992,.2998, .3004,.3016,.3021,.3029,.3036,.3037,.3051,.3053,.3059, .3061,.3066,.3075,.3077,.3083,.3085,.3092,.3098,.3100,.3104,.3106, .3109,.3112,.3130,.3135,.3146,.3148,.3151,.3154,.3167,.3170,.3173, .3176,.3190,.3194,.3199,.3200,.3209,.3210,.3216,.3220,.3223,.3226, .3239,.3242,.3245,.3248,.3253,.3255,.3269,.3272,.3275,.3279,.3292, .3295,.3299,.3303,.3309,.3312,.3328,.3332,.3334,.3338,.3357,.3365, .3369,.3372,.3391,.3395,.3398,.3401,.3417,.3421,.3426,.3430,.3437, .3439,.3451,.3455,.3460,.3463,.3466,.3472,.3481,.3485,.3489,.3493, .3499,.3501,.3506,.3514,.3521,.3523,.3546,.3550,.3554,.3556,.3561, .3567,.3572,.3573,.3588,.3594,.3599,.3600,.3604,.3606,.3639,.3647, .3650,.3654,.3660/) - uva :
real*8, dimension(226)
- fuvko3 :
real*8, parameter, dimension(226)
- Initial Value
= (/ 8.3, 8.3, 8.1, 8.3, 8.6, 9.0, 9.7, 10.8, 11.7, 13.0, 14.3, 16.0, 18.0, 20.6, 23.0, 26.1, 29.3, 32.6, 36.9, 40.8, 46.9, 51.4, 56.7, 63.4, 69.1, 76.6, 84.0, 91.4, 99.9,110.0,118.0, 126.0,136.0,145.0,154.0,164.0,175.0,186.0,192.0,201.0,210.0,212.0, 221.0,230.0,239.0,248.0,250.0,259.0,264.0,264.0,273.0,277.0,275.0, 283.0,283.0,290.0,283.0,297.0,290.0,300.0,290.0,302.0,295.0,283.0, 293.0,290.0,286.0,297.0,281.0,280.0,271.0,275.0,254.0,264.0,250.0, 248.0,242.0,228.0,230.0,216.0,213.0,211.0,199.0,188.0,188.0,178.0, 169.0,153.0,155.0,148.0,136.0,127.0,117.0,108.0, 97.0, 88.7, 81.3, 78.7, 67.9, 61.4, 54.3, 49.6, 43.1, 38.9, 34.6, 30.2, 27.5, 23.9, 21.0, 18.6, 16.2, 14.2, 12.3, 10.7, 9.5, 8.880,7.520,6.960,6.160,5.810,5.910,4.310,4.430,4.130, 4.310,4.020,3.330,3.390,3.060,3.100,2.830,2.400,2.490,2.330,2.320, 2.120,2.200,1.436,1.595,1.074,1.138,1.068,1.262,0.818,0.948,0.860, 1.001,0.543,0.763,0.665,0.781,0.382,0.406,0.373,0.608,0.484,0.601, 0.209,0.276,0.259,0.470,0.319,0.354,0.131,0.223,0.185,0.339,0.080, 0.093,0.079,0.184,0.139,0.214,0.053,0.074,0.068,0.152,0.038,0.070, .0540000,.1030000,.0240000,.0382500,.0292500,.0550000,.0135000, .0155250,.0127500,.0188250,.0167250,.0262500,.0115500,.0140250, .0099750,.0115500,.0081000,.0104250,.0050100,.0057000,.0046650, .0073425,.0051825,.0055275,.0040575,.0077700,.0048900,.0054600, .0015375,.0017775,.0013275,.0014100,.0011550,.0023325,.0018825, .0019650,.0009600,.0013650,.0011925,.0013200,.0008925,.0009825, .0001350,.0006300,.0004500,.0006225,0.0/) - fulgas :
real*8, dimension(13)
- scales the various atmospheric constituents:
Initial Value= (/ 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0./)
Used by: | :daily_rad | :init_rad | :radia |
- cmano2 :
real*8, parameter, dimension(42)
- Initial Value
= (/ 8.66E-06,5.15E-06,2.85E-06,1.50E-06,9.89E-07,6.91E-07,7.17E-07, 8.96E-07,3.67E-06,4.85E-06,5.82E-06,6.72E-06,7.77E-06,8.63E-06, 8.77E-06,8.14E-06,6.91E-06,5.45E-06,4.00E-06,2.67E-06,1.60E-06, 8.36E-07,3.81E-07,1.58E-07,6.35E-08,2.57E-08,1.03E-08,4.18E-09, 1.66E-09,6.57E-10,2.58E-10,1.02E-10,4.11E-11,1.71E-11,7.73E-12, 9.07E-12,4.63E-12,2.66E-12,1.73E-12,1.28E-12,1.02E-12,1.00E-30/) - fgoldh :
real*8, dimension(5)
- scales background aerosols for Glb Ocn Land Desert Haze
Initial Value= (/ 1d0, .68d0, .32d0, 1.d-20, 1.d-20 /) - ftxaer :
- scales solar,thermal opt.depth for var. aerosols:
- fsxaer :
- scales solar,thermal opt.depth for var. aerosols:
- ftauc :
real*8
- factor to control cloud optical depth in radiation calc.
Used by: | :radia |
- fstaer :
real*8
- Initial Value
= 1.
Used by: | :init_rad |
- fsbaer :
real*8
- Initial Value
= 1. - fsaaer :
real*8
- Initial Value
= 1. - fsdaer :
real*8
- Initial Value
= 1. - fsvaer :
real*8
- Initial Value
= 1. - fttaer :
real*8
- Initial Value
= 1.
Used by: | :init_rad |
- ftbaer :
real*8
- Initial Value
= 1. - ftaaer :
real*8
- Initial Value
= 1. - ftdaer :
real*8
- Initial Value
= 1. - ftvaer :
real*8
- Initial Value
= 1. - pivmax :
real*8
- limits PI0 of volcanic aerosols
Initial Value= 1.0 - kcldem :
real*8::ecltra=1.;integer
- scales,enables full cloud scattering correction
Initial Value= 1
Used by: | :init_rad |
- ecltra :
- scales,enables full cloud scattering correction
- fcldsr :
real*8
- scales opt.depth of clouds - not used (yet)
Initial Value= 1. - fcldtr :
real*8
- scales opt.depth of clouds - not used (yet)
Initial Value= 1. - frayle :
real*8
- scales Rayleigh parameter
Initial Value= 1. - ksnorm :
integer
- rescale UV spectral flux distribution
Initial Value= 0 - uvwavl :
real*8, dimension(3)
- rescale UV spectral flux distribution
Initial Value= (/0.295d0, 0.310d0, 0.366d0/) - uvfact :
real*8, dimension(3)
- rescale UV spectral flux distribution
Initial Value= (/0.98011d0, 0.99467d0, 0.99795d0/) - kuvfac :
integer
- rescale UV spectral flux distribution
Initial Value= 0 - srcgsf :
real*8, dimension(3)
- Scaling Factors for Cloud Asymmetry Parameter for
Initial Value= (/ 1.000, 1.000, 1.000/) - tauic0 :
real*8
- lower limits for water/ice cloud opt.depths
Initial Value= 1d-3
Used by: | :radia |
- tauwc0 :
real*8
- lower limits for water/ice cloud opt.depths
Initial Value= 1d-3
Used by: | :radia |
- kpfozo :
integer
- if > 0 scale CO2,O3 to stand. vertical profile
Initial Value= 0 - kpfco2 :
integer
- if > 0 scale CO2,O3 to stand. vertical profile
Initial Value= 0 - kcnorm :
integer
- if > 0 renormalize aerosols,cloud albedos
Initial Value= 0 - kanorm :
integer
- if > 0 renormalize aerosols,cloud albedos
Initial Value= 0 - kwvcon :
integer
- ON/OFF flag for water vapor continuum absorption
Initial Value= 1 - kufco2 :
integer
- H2O,CO2 column absorb.scaling
Initial Value= 1 - kufh2o :
integer
- H2O,CO2 column absorb.scaling
Initial Value= 1 - kcforn :
integer
- H2O_ContSelf-Broadening,CO2_ContForeign-Broadening
Initial Value= 1 - kcself :
integer
- H2O_ContSelf-Broadening,CO2_ContForeign-Broadening
Initial Value= 1 - xcforn :
real*8
- scaling factors for Cont.Broadening (Deflt: Ma 2000)
Initial Value= 1. - xcself :
real*8
- scaling factors for Cont.Broadening (Deflt: Ma 2000)
Initial Value= 1. - ice012 :
integer
- pick ice droplet type: 0 liquid, 1 ice non-spher, 2 ice Mie
Initial Value= 1 - veff0 :
real*8
- effective volc. aerosol size distribution variance
Initial Value= 0.35d0 - norms0 :
integer
- if =1, Incident (TOA) Solar flux is normalized to equal S0
Initial Value= 1 - reff0 :
real*8
- Initial Value
= 0.30d0 - fonoff :
real*8
- if =1 fully turns on SW long-path H2O absorption correction
Initial Value= 1. - kwtrab :
integer
- controls WRITER-output (Mie-scattering info)
Initial Value= 0 - korder :
integer
- controls WRITER-output (Mie-scattering info)
Initial Value= 0 - agoldh :
real*8, dimension(11, 5)
- Initial Value
= reshape( (/ .005, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .020, .010, .010, .005, .0, .010, .0, .0, .005, .0, .0, .0, .0, .020, .005, .0, .010, .010, .0, .0, .015, .0, .0, .0, .0, .0, .0, .0, .020, .010, .0, .0, .0, .0, .0, .010, .0, .0, .0, .0, .0, .0, .005/ ),(/11,5/) ) - bgoldh :
real*8, dimension(11, 5)
- Initial Value
= reshape( (/ 20.0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, 1.00, 4.00, 1.00, 4.00, 1.00, 4.00, .0, .0, 1.00, .0, .0, .0, .0, 0.00, 2.00, .0, 4.00, 2.00, .0, .0, 0.00, .0, .0, .0, .0, .0, .0, .0, 2.00, 0.00, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, 0.00/ ),(/11,5/) ) - cgoldh :
real*8, dimension(11, 5)
- Initial Value
= reshape( (/ 3.00, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, .0, 1.00, 3.00, 2.00, 3.00, 1.00, 2.00, .0, .0, 1.00, .0, .0, .0, .0, 1.00, 3.00, .0, 1.00, 1.00, .0, .0, 1.00, .0, .0, .0, .0, .0, .0, .0, 1.00, 1.00, .0, .0, .0, .0, .0, 1.00, .0, .0, .0, .0, .0, .0, 1.00/ ),(/11,5/) ) - refdry :
real*8, dimension(8)
- Initial Value
= (/0.150, 1.000, 0.300, 0.200, 0.080, 0.080, 1.000,1.000/)
Used by: | :init_rad |
- q55dry :
real*8, dimension(8)
- Initial Value
= (/2.191, 2.499, 3.069, 3.010, 1.560, 1.560, 1.000,1.000/) - denaer :
real*8, dimension(8)
- Initial Value
= (/1.760, 2.165, 1.725, 1.500, 1.300, 1.300, 2.000,2.000/) - dustab :
real*8, parameter
- : specifies relative mixture of particles with Sinyuk 2003
Initial Value= 0.5 - fs8opx :
real*8, dimension(8)
- Initial Value
= (/1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.00/)
Used by: | :init_rad | :radia |
- ft8opx :
real*8, dimension(8)
- Initial Value
= (/1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.300, 1.00/)
Used by: | :init_rad | :radia |
- frsulf :
real*8, dimension(8)
- Initial Value
= (/0.000, 0.000, 0.000, 0.330, 0.000, 0.000, 0.000, 1.00/) - pi0max :
real*8, dimension(8)
- Initial Value
= (/1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.00/) - ktrend :
integer
- if > 0 table GHG concentrations (Trend G) are used for
Initial Value= 1
Used by: | :init_rad |
- ppmv80 :
real*8, dimension(13)
- reference GHG concentrations (ppm)
Initial Value= (/0d0, 337.90d0, 0d0,pO2*1.d6,0d0, .3012d0, 1.5470d0 ,.1666d-03,.3003d-03, 0d0, .978D-04, .0010D-10, .0420d0/) - ppmvk0 :
real*8, dimension(12)
- user set GHG concentrations (ppm), used if KTREND=0
Initial Value= (/0d0, 337.90d0, 0d0, 21.d4, 0d0, .3012d0, 1.5470d0 ,.1666d-03, .3003d-03, 0d0, .978D-04, 0.0010D-10/) - nghg :
integer, parameter
- nr. of well-mixed GHgases: CO2 N2O CH4 CFC-11 CFC-12 others
Initial Value= 6
Used by: | :ghghst | :gtrend |
- nyrsghg :
- max.number of years of prescr. greenhouse gas history
- ghgyr2 :
integer
- first and last year of GHG history
Used by: | :daily_ch4ox | :ghghst | :gtrend |
- ghgyr1 :
integer
- first and last year of GHG history
Used by: | :daily_ch4ox | :ghghst | :gtrend |
- xnow :
real*8, dimension(nghg+1)
- GHG-mixing ratios in ppm,ppm,ppm,ppb,ppb,ppb
- xref :
real*8, dimension(nghg+1)
- GHG-mixing ratios in ppm,ppm,ppm,ppb,ppb,ppb
Used by: | :daily_rad |
- ghgam :
real*8, allocatable, dimension(:, :)
- GHG-mixing ratios in ppm,ppm,ppm,ppb,ppb,ppb
Used by: | :daily_ch4ox | :ghghst | :gtrend |
- klatz0 :
integer
- control parameters for vertical GHG profiles
Initial Value= 1
Used by: | :init_rad |
- kpgrad :
integer
- control parameters for vertical GHG profiles
Initial Value= 1
Used by: | :init_rad |
- kggvdf :
integer
- control parameters for vertical GHG profiles
Initial Value= 0
Used by: | :init_rad |
- zh :
real*8, dimension(12)
- scale heights used for vertical profile (km)
Initial Value= (/8.0, 8.0,8.0, 8.0,8.0, 30., 50., 30., 30., 0.0, 30., 30./) - z0 :
real*8, dimension(12)
- scale heights used for vertical profile (km)
Initial Value= (/0.0, 0.0,0.0, 0.0,0.0, 16., 16., 16., 16., 0.0, 16., 16./) - ppmvdf :
real*8, dimension(12)
- frac. value at top of atmosphere (used if KGGVDF > 0)
Initial Value= (/1.0, 1.0, 1.0, 1.0, 1.0, 0.88888, 0.88888, 0.88888, 0.88888, 1.0, 0.88888, 0.88888/) - ppgrad :
real*8, dimension(12)
- Pole-to-Pole latitud.gradient for GHG (used if KPGRAD > 0)
Initial Value= (/0.0, 0.0, 0.0, 0.0, 0.0, 0.0100, 0.0900, 0.0600, 0.0600, 0.0, 0.0600, 0.0600/) - kghgzd :
integer
- Initial Value
= 1
Used by: | :init_rad |
- itr :
integer, dimension(itrmax)
- Initial Value
= 1
Used by: | :init_rad |
- ntrace :
integer
- Initial Value
= 0
Used by: | :init_rad | :radia |
- trrdry :
real*8, dimension(itrmax)
- Initial Value
= .1d0
Used by: | :init_rad |
- traden :
real*8, dimension(itrmax)
- Initial Value
= 1.d0
Used by: | :init_rad |
- fttasc :
real*8, dimension(itrmax)
- Initial Value
= 1.d0
Used by: | :init_rad | :radia |