veg_to_3d_face Subroutine

private subroutine veg_to_3d_face(npts, ijk, field_sparse, field_3d)

Uses

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

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: npts
integer, intent(in) :: ijk(npts,3)
real, intent(in) :: field_sparse(npts)
real, intent(out) :: field_3d(ib:ie,jb:je,kb:ke)

Called by

proc~~veg_to_3d_face~~CalledByGraph proc~veg_to_3d_face veg_to_3d_face proc~statsdump statsdump proc~statsdump->proc~veg_to_3d_face program~udales uDALES program~udales->proc~statsdump

Source Code

  subroutine veg_to_3d_face(npts, ijk, field_sparse, field_3d)
    use modglobal, only : ib, ie, jb, je, kb, ke
    implicit none
    integer, intent(in) :: npts
    integer, intent(in) :: ijk(npts,3)
    real, intent(in) :: field_sparse(npts)
    real, intent(out) :: field_3d(ib:ie,jb:je,kb:ke)
    integer :: m, i, j, k

    field_3d = 0.
    do m = 1, npts
      i = ijk(m,1)
      j = ijk(m,2)
      k = ijk(m,3)
      field_3d(i,j,k) = field_sparse(m)
    end do
  end subroutine veg_to_3d_face