Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
get_wash_factor | Module: | File: TRACERS_DRV.f |
Author : Dorothy Koch (modelEifications by Greg Faluvegi)
Version:
Declaration:
subroutine get_wash_factor(ntx, b_beta_dt, prec, fq, temp, lhx, wmxtr, fcloud, tm, trpr, thlaw, pl, ntix, below_cloud )
- nwater : used from oldtracer_mod
- ngas : used from oldtracer_mod
- npart : used from oldtracer_mod
- tr_wd_type : used from oldtracer_mod
- tr_rkd : used from oldtracer_mod
- tr_dhd : used from oldtracer_mod
- rc_washt : used from oldtracer_mod
- trname : used from oldtracer_mod
- ntm : used from tracer_com
- aero_count : used from tracer_com
- water_count : used from tracer_com
- hlaw_count : used from tracer_com
- aero_list : used from tracer_com
- water_list : used from tracer_com
- hlaw_list : used from tracer_com
- bygasc : used from constant
- lhe : used from constant
- mair : used from constant
- teeny : used from constant
- pi : used from constant
- fq :
real*8, intent(inout), dimension(ntm)
- fraction of tracer scavenged by below-cloud precipitation
- rc_wash :
- aerosol washout rate constant (mm-1)
- prec :
real*8, intent(in)
- precipitation amount from layer above for washout (mm)
- b_beta_dt :
real*8, intent(in)
- precipitating grid box fraction from lowest
- n :
integer
- index for tracer number loop
- ntx :
integer, intent(in)
- ntix :
integer, intent(in), dimension(NTM)
- thlaw :
real*8, intent(out), dimension(ntm)
- temp :
real*8, intent(in)
- lhx :
real*8, intent(in)
- wmxtr :
real*8, intent(in)
- fcloud :
real*8, intent(in)
- tm :
real*8, intent(in), dimension(NTM)
- pl :
real*8, intent(in)
- trpr :
real*8, intent(in), dimension(NTM)
- by298k :
real*8, parameter
- Initial Value
= 3.3557D-3
- ppas :
real*8
- tfac :
real*8
- ssfac0 :
real*8
- ssfac :
real*8, dimension(NTM)
- bb_tmp :
real*8
- ihlaw :
integer
- iaero :
integer
- below_cloud :
logical