veg_to_3d_sv Subroutine

private subroutine veg_to_3d_sv(component, field_3d)

Uses

  • proc~~veg_to_3d_sv~~UsesGraph proc~veg_to_3d_sv veg_to_3d_sv module~modglobal modglobal proc~veg_to_3d_sv->module~modglobal module~vegetation vegetation proc~veg_to_3d_sv->module~vegetation mpi mpi module~vegetation->mpi

Arguments

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

Called by

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

Source Code

  subroutine veg_to_3d_sv(component, field_3d)
    use modglobal, only : ib, ie, jb, je, kb, ke
    use vegetation, only : veg, vegp
    implicit none
    integer, intent(in) :: component
    real, intent(out) :: field_3d(ib:ie,jb:je,kb:ke)
    integer :: m, i, j, k

    field_3d = 0.
    do m = 1, veg%npts
      i = veg%ijk(m,1)
      j = veg%ijk(m,2)
      k = veg%ijk(m,3)
      field_3d(i,j,k) = vegp%sv(m,component)
    end do
  end subroutine veg_to_3d_sv