turbMod.F90

Go to the documentation of this file.

module turbmod
    !
    !       This local module contains variables used when the turbulence
    !       equations are solved.
    !
    use precision
    implicit none
    save
 
    ! secondOrd:  whether or not a second order discretization for
    !             the advective terms must be used.
    ! sig1, sig2: Sigma coefficients in the diffusion terms of the
    !             different turbulence models.
 
    logical :: secondord
    real(kind=realtype) :: sig1, sig2
 
    ! dvt:     Pointer, which points to an unused part of dw. It is
    !          used for temporary storage of residual.
    ! vort:    Pointer, which points to an unused part of dw. It is
    !          used for temporary storage of the magnitude of
    !          vorticity squared.
    ! prod:    Pointer, which points to an unused part of dw. It is
    !          used for temporary storage of the unscaled production
    !          term.
    ! f1:      F1 blending function in the SST model.
    ! kwCD:   Cross diffusion term in the k-omega type models.
    ! ktCD:   Cross diffusion term in the k-tau model
    ! sct:     Time scale in the v2-f model.
    ! scl2:    Length scale in the v2-f model.
    ! strain2: Square of the strain.
 
    real(kind=realtype), dimension(:, :, :, :), pointer :: dvt
    real(kind=realtype), dimension(:, :, :), pointer :: vort
    real(kind=realtype), dimension(:, :, :), pointer :: prod
    real(kind=realtype), dimension(:, :, :), pointer :: f1
    real(kind=realtype), dimension(:, :, :), pointer :: kwcd
    real(kind=realtype), dimension(:, :, :), pointer :: ktcd
    real(kind=realtype), dimension(:, :, :), pointer :: sct
    real(kind=realtype), dimension(:, :, :), pointer :: scl2
    real(kind=realtype), dimension(:, :, :), pointer :: strain2
 
#ifndef USE_TAPENADE
    real(kind=realtype), dimension(:, :, :, :), pointer :: dvtd
    real(kind=realtype), dimension(:, :, :), pointer :: vortd
    real(kind=realtype), dimension(:, :, :), pointer :: prodd
    real(kind=realtype), dimension(:, :, :), pointer :: f1d
    real(kind=realtype), dimension(:, :, :), pointer :: kwcdd
    real(kind=realtype), dimension(:, :, :), pointer :: ktcdd
    real(kind=realtype), dimension(:, :, :), pointer :: sctd
    real(kind=realtype), dimension(:, :, :), pointer :: scl2d
    real(kind=realtype), dimension(:, :, :), pointer :: strain2d
#endif
end module turbmod