SetMetadata_DGModel1D_t Subroutine

  1. SELF_DGModel1D_t.f90
  2. SELF_DGModel1D_t
  3. SetMetadata_DGModel1D_t

public subroutine SetMetadata_DGModel1D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel1D_t), intent(inout) :: this

Contents

Source Code

SetMetadata_DGModel1D_t

Source Code

  subroutine SetMetadata_DGModel1D_t(this)
    implicit none
    class(DGModel1D_t),intent(inout) :: this
    ! Local
    integer :: ivar
    character(LEN=3) :: ivarChar
    character(LEN=25) :: varname

    do ivar = 1,this%nvar
      write(ivarChar,'(I3.3)') ivar
      varname = "solution"//trim(ivarChar)
      call this%solution%SetName(ivar,varname)
      call this%solution%SetUnits(ivar,"[null]")
    enddo

  endsubroutine SetMetadata_DGModel1D_t