allocate_radiation_source Subroutine

public subroutine allocate_radiation_source(source, ncells)

Arguments

Type IntentOptional Attributes Name
type(radiation_source_t), intent(inout) :: source
integer, intent(in) :: ncells

Source Code

   subroutine allocate_radiation_source(source, ncells)
      type(radiation_source_t), intent(inout) :: source
      integer, intent(in) :: ncells
      call free_radiation_source(source)
      allocate(source%qrad(ncells))
      source%qrad = zero
   end subroutine allocate_radiation_source