Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -119,12 +119,19 @@ module m_turbulence
real(kind=dp), allocatable, dimension(:) :: sigdifi !< inverse prandtl schmidt nrs
real(kind=dp), allocatable, dimension(:) :: wsf !< fall velocities of all numconst constituents

real(kind=dp), allocatable, dimension(:) :: turkinws !< k at layer interface at c , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: turepsws !< eps at layer interface at c , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: turkinws0 !< k old at layer interface at c , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: turkinws !< k at layer interface at c , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: turepsws !< eps at layer interface at c , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: turepsws0 !< eps old at layer interface at c , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:, :) :: turkinepsws !< k and eps,1,2 at layer interface at c , horizontal transport of k and eps

real(kind=dp), allocatable, dimension(:) :: tqcu !< sum of q*turkinws at layer interface at cupw , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: eqcu !< sum of q*turepsws at layer interface at cupw , horizontal transport of k and eps
real(kind=dp), allocatable, dimension(:) :: sqcu !< sum of q at layer interface at cupw , horizontal transport of k and eps

real(kind=dp), allocatable, dimension(:) :: ustbs ! ustb in cell centre (m/s) only iturbulencemodel 5,6
real(kind=dp), allocatable, dimension(:) :: ustws ! ustw in cell centre (m/s) only iturbulencemodel 5,6

integer, allocatable :: ln0(:, :) !< links in transport trimmed to minimum of ktop,ktop0 for z-layers

real(kind=dp), parameter :: BACKGROUND_DIFFUSION_ON = 1.0_dp
Expand Down
Loading