veg_to_3d_cell Subroutine

private subroutine veg_to_3d_cell(field_sparse, field_3d)

Uses

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

Arguments

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

Called by

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

Source Code

  subroutine veg_to_3d_cell(field_sparse, field_3d)
    use modglobal, only : ib, ie, jb, je, kb, ke
    use vegetation, only : veg
    implicit none
    real, intent(in) :: field_sparse(:)
    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) = field_sparse(m)
    end do
  end subroutine veg_to_3d_cell