diffusion_solver.F90 File Reference

Data Types
type	diffusion_solver::vdiff_selector
interface	diffusion_solver::operator(.not.)
interface	diffusion_solver::any

Modules
module	diffusion_solver

Functions/Subroutines
subroutine, public	diffusion_solver::init_vdiff (kind, iulog_in, rair_in, gravit_in, do_iss_in, errstring)
type(vdiff_selector) pure function, public	diffusion_solver::new_fieldlist_vdiff (ncnst)
subroutine, public	diffusion_solver::compute_vdiff (lchnk, pcols, pver, ncnst, ncol, pmid, pint, rpdel, t, ztodt, taux, tauy, shflx, cflx, ntop, nbot, kvh, kvm, kvq, cgs, cgh, zi, ksrftms, qmincg, fieldlist, fieldlistm, u, v, q, dse, tautmsx, tautmsy, dtk, topflx, errstring, tauresx, tauresy, itaures, cpairv, rairi, do_molec_diff, compute_molec_diff, vd_lu_qdecomp, kvt)
character(128) function, public	diffusion_solver::vdiff_select (fieldlist, name, qindex)
type(vdiff_selector) function	diffusion_solver::not (a)
logical function	diffusion_solver::my_any (a)
logical function	diffusion_solver::diffuse (fieldlist, name, qindex)

Variables
integer, parameter	diffusion_solver::r8 = selected_real_kind(12)
integer	diffusion_solver::iulog = -1
real(r8), private	diffusion_solver::cpair
real(r8), private	diffusion_solver::gravit
real(r8), private	diffusion_solver::rair
real(r8), private	diffusion_solver::zvir
real(r8), private	diffusion_solver::latvap
real(r8), private	diffusion_solver::karman
logical, private	diffusion_solver::do_iss
real(r8), parameter	diffusion_solver::z0fac = 0.025_r8
real(r8), parameter	diffusion_solver::z0max = 100._r8
real(r8), parameter	diffusion_solver::horomin = 10._r8
real(r8), parameter	diffusion_solver::dv2min = 0.01_r8
real(r8), private	diffusion_solver::oroconst