SetMetadata_DGModel2D_t Subroutine

public subroutine SetMetadata_DGModel2D_t(this)

Arguments

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

Contents


Source Code

  subroutine SetMetadata_DGModel2D_t(this)
    implicit none
    class(DGModel2D_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_DGModel2D_t