Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

dust_emission_constraints

Module:

File: TRDUST.f

Summary: local constrainsts for dust tracer emission valid for all dust bins
Author : Jan Perlwitz, Reha Cakmur, Ina Tegen
Version:

---

Declaration:

subroutine dust_emission_constraints(itype, wsgcm, pbl_args)

Variables:

dtsrc : used from model_com

nisurf : used from fluxes

t_pbl_args : used from socpbl

imdust : used from trdust_mod

lim : used from trdust_mod

ljm : used from trdust_mod

lkm : used from trdust_mod

table : used from trdust_mod

x1 : used from trdust_mod

x2 : used from trdust_mod

x3 : used from trdust_mod

wsubtke_dust_on : used from trdust_mod

wsubwd_dust_on : used from trdust_mod

wsubwm_dust_on : used from trdust_mod

wsginterp : used from trdust_drv

itype : integer, intent(in)

wsgcm : real*8, intent(in)

pbl_args : type(t_pbl_args), intent(inout)

snowe : real*8

vtrsh : real*8

dsteve1 : real*8

dsteve2 : real*8

soilvtrsh : real*8

qdust : logical

dryhr : real*8

hbaij : real*8

pprec : real*8

pevap : real*8

ricntd : real*8

hbaijd : real*8

hbaijold : real*8

pmei : logical

wearth : real*8

aiearth : real*8

wfcs : real*8

pdfint : real*8

wsubtke : real*8

wsubwd : real*8

wsubwm : real*8

soilwet : real(kind=8)

sigma : real(kind=8)

ans : real(kind=8)

dy : real(kind=8)

workij1 : real(kind=8)

workij2 : real(kind=8)

wsgcm1 : real(kind=8)

mcfrac : real(kind=8)

fname : character(17)

Initial Value = 'WARNING_in_TRDUST'

subr : character(25)

Initial Value = 'dust_emission_constraints'

vname1 : character(5)

Initial Value = 'wsgcm'

vname2 : character(5)

Initial Value = 'sigma'

vname3 : character(9)

Initial Value = 'soilvtrsh'