http://cfd.mace.manchester.ac.uk/Doxygen_2.0rc1/clptur_8f90.html

Doxygen_2.0rc1/clptur_8f90_source.html

%CODE{"fortran"}% %ENDCODE%

!> Wall boundary conditions !!
!! Solves for and !! Depending on the value of ideuch: !!
!! 0: Iterative solver of the log law. !!
!! 1: Compute !!and then !!
!! 2: Scalable wall function, same as above but if !!then !!
!

subroutine clptur &
!================

 ( idbia0 , idbra0 ,                                              &
   ndim   , ncelet , ncel   , nfac   , nfabor , nfml   , nprfml , &
   nnod   , lndfac , lndfbr , ncelbr ,                            &
   nvar   , nscal  , nphas  ,                                     &
   nideve , nrdeve , nituse , nrtuse , iphas  , isvhb  ,          &
   ifacel , ifabor , ifmfbr , ifmcel , iprfml ,                   &
   ipnfac , nodfac , ipnfbr , nodfbr ,                            &
   icodcl ,                                                       &
   idevel , ituser , ia     ,                                     &
   xyzcen , surfac , surfbo , cdgfac , cdgfbo , xyznod , volume , &
   dt     , rtp    , rtpa   , propce , propfa , propfb , rcodcl , &
   coefu  , rijipb , coefa  , coefb  , uetbor , visvdr ,          &
   hbord  , thbord ,                                              &
   w1     , w2     , w3     , w4     , w5     , w6     ,          &
   rdevel , rtuser , ra     )
!!===============================================================================
!! FONCTION :
!! --------
!!
!>\file
!! CONDITIONS LIMITES EN PAROI TURBULENTE POUR TOUTES LES VARIABLES
!!  DE LA PHASE IPHAS
!!
!! ON SUPPOSE QUE ICODCL(IU) = 5 =>
!!                     PAROI POUR TOUTES LES VARIABLES TURBULENTES
!!  (A PRIORI PEU RESTRICTIF EN MONOPHASIQUE)
!!>