Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
sulfdust | Module: | File: TRACER_HETCHEM.f |
Author :
Version:
Declaration:
subroutine sulfdust
- lm : used from resolution
- t : used from atm_com
- q : used from atm_com
- trm : used from tracer_com
- rxts : used from tracer_com
- rhet : 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
- ntm_clay : used from tracer_com
- ntm_sil1 : used from tracer_com
- ntm_sil2 : used from tracer_com
- ntm_sil3 : used from tracer_com
- rxts1 : used from tracer_com
- rxts2 : used from tracer_com
- rxts3 : used from tracer_com
- rxts4 : used from tracer_com
- lhe : used from constant
- byaxyp : used from geom
- byma : used from atm_com
- pmid : used from atm_com
- pk : used from atm_com
- pi : used from constant
- avog : used from constant
- byavog : used from constant
- gasc : used from constant
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_atm
- am_i_root : used from domain_decomp_atm
- erf : used from specialfunctions_mod
- trpdens : used from oldtracer_mod
- imdust : used from trdust_mod
- nsubclays : used from trdust_mod
- subclayweights : used from trdust_mod
- ndustbinsfull : used from trdust_mod
- radiusminerals : used from trdust_mod
- calcsubclayweights : used from trdust_drv
- ndtr :
integer, parameter
- Initial Value
= 7
- rxt :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm, ndtr)
- dusttx :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm, ndtr)
- dustnc :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, lm, ndtr)
- klo :
integer, parameter
- Initial Value
= 1000
- ip :
integer
- imd :
integer
- np1 :
integer
- np2 :
integer
- nh1 :
integer
- nh2 :
integer
- klook :
real(kind=8)
- phelp :
real(kind=8)
- look_p :
real(kind=8)
- look_t :
real(kind=8)
- hx :
real(kind=8)
- px :
real(kind=8)
- hp1 :
real(kind=8)
- hp2 :
real(kind=8)
- i :
integer
- j :
integer
- k :
integer
- nd :
integer
- l :
integer
- ll :
integer
- j_0 :
integer
- j_1 :
integer
- i_0 :
integer
- i_1 :
integer
- ktoa :
integer, parameter
- Initial Value
= 300
- alph1 :
real(kind=8), parameter
- Initial Value
= 0.000001d0
- alph2 :
real(kind=8), parameter
- Initial Value
= 0.0001d0
- mq1 :
real(kind=8), parameter
- Initial Value
= 64.d0/1000.d0
- xx :
real(kind=8), parameter
- Initial Value
= 0.d0
- bolz :
real(kind=8), parameter
- Initial Value
= 1.3807d-23
- mgas :
real(kind=8), parameter
- Initial Value
= 28.97d0 /1000.d0
- diaq :
real(kind=8), parameter
- Initial Value
= 4.5d-10
- qsat :
real*8
- rh :
real*8
- te :
real*8
- temp :
real*8
- kn :
real(kind=8), dimension(rhet)
- mdc :
real(kind=8), dimension(rhet)
- kdj :
real(kind=8), dimension(2)
- lamb :
real(kind=8), dimension(rhet)
- wrk :
real(kind=8), dimension(rhet)
- vsp :
real(kind=8), dimension(rhet)
- lsig0 :
real(kind=8)
- drada :
real(kind=8)
- dn :
real(kind=8)
- roh :
real(kind=8)
- entereda :
logical, save
- Initial Value
= .false.
- rada :
real(kind=8), save, dimension(ktoa)
- ntix_dust :
integer, dimension(ndtr)
- index for mapping advected dust bins onto ndtr dust bins in
- look :
real(kind=8), save, dimension(11, klo, 2)
- rrange :
real(kind=8), save
- md_look :
real(kind=8), save, dimension(klo)
- dradi :
real(kind=8), dimension(ndustbinsfull)
- dust radii for sulfate uptake [m]
- rop :
real(kind=8), dimension(ndtr)
- dust particle density [kg/m^3]
- wttr_dust :
real(kind=8), dimension(ndtr)
- weighting array for mass in dust bins