free_radiation_source Subroutine

public subroutine free_radiation_source(source)

Arguments

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

Source Code

   subroutine free_radiation_source(source)
      type(radiation_source_t), intent(inout) :: source
      if (allocated(source%qrad)) deallocate(source%qrad)
   end subroutine free_radiation_source