eval_corners Function

public function eval_corners(var, i, j, k)

Uses

  • proc~~eval_corners~~UsesGraph proc~eval_corners eval_corners module~modglobal modglobal proc~eval_corners->module~modglobal

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: var(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:kb+kh)
integer, intent(in) :: i
integer, intent(in) :: j
integer, intent(in) :: k

Return Value real, dimension(8), (8)


Called by

proc~~eval_corners~~CalledByGraph proc~eval_corners eval_corners proc~trilinear_interp_var trilinear_interp_var proc~trilinear_interp_var->proc~eval_corners proc~wallfunheat wallfunheat proc~wallfunheat->proc~trilinear_interp_var proc~wallfunmom wallfunmom proc~wallfunmom->proc~trilinear_interp_var proc~ibmwallfun ibmwallfun proc~ibmwallfun->proc~wallfunheat proc~ibmwallfun->proc~wallfunmom program~dalesurban DALESURBAN program~dalesurban->proc~ibmwallfun

Source Code

   function eval_corners(var, i, j, k)
     use modglobal, only : ib, ie, ih, jb, je, jh, kb, ke, kh
     integer, intent(in) :: i, j, k ! LOCAL indices
     real, intent(in)    :: var(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:kb+kh)
     real, dimension(8)  :: eval_corners(8)

     eval_corners(1) = var(i  ,j  ,k  ) !c000
     eval_corners(2) = var(i+1,j  ,k  ) !c100
     eval_corners(3) = var(i  ,j+1,k  ) !c010
     eval_corners(4) = var(i+1,j+1,k  ) !c110
     eval_corners(5) = var(i  ,j  ,k+1) !c001
     eval_corners(6) = var(i+1,j  ,k+1) !c101
     eval_corners(7) = var(i  ,j+1,k+1) !c011
     eval_corners(8) = var(i+1,j+1,k+1) !c111

   end function eval_corners