find_CCVn Subroutine

  1. CC.f90
  2. CC
  3. find_CCVn

private subroutine find_CCVn(qp, dims)

Taking a dot product between Cell-center velocity and unit normal

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(-2:dims%imx,-2:dims%jmx,-2:dims%kmx,-2:dims%n_var):: qp
type(extent), intent(in) :: dims

Called by

proc~~find_ccvn~~CalledByGraph proc~find_ccvn find_CCVn proc~find_dccvn find_DCCVn proc~find_dccvn->proc~find_ccvn proc~add_sst_source_lctm2015 add_sst_source_lctm2015 proc~add_sst_source_lctm2015->proc~find_dccvn proc~add_source_term_residue add_source_term_residue proc~add_source_term_residue->proc~add_sst_source_lctm2015 proc~get_total_conservative_residue get_total_conservative_Residue proc~get_total_conservative_residue->proc~add_source_term_residue proc~get_next_solution get_next_solution proc~get_next_solution->proc~get_total_conservative_residue proc~iterate_one_more_time_step iterate_one_more_time_step proc~iterate_one_more_time_step->proc~get_next_solution program~main main program~main->proc~iterate_one_more_time_step

Contents

Source Code

find_CCVn

Source Code

    subroutine find_CCVn(qp, dims)
      !< Taking a dot product between Cell-center velocity and unit normal
      implicit none
      type(extent), intent(in) :: dims
      real(wp), dimension(-2:dims%imx,-2:dims%jmx,-2:dims%kmx,-2:dims%n_var), intent(in) :: qp
      CCVn = CCnormalX*qp(:,:,:,2) + CCnormalY*qp(:,:,:,3) + CCnormalZ*qp(:,:,:,4) ! (nx,ny,nz).(u,v,w)
    end subroutine find_CCVn