Free_ECDGModel2D_t Subroutine

  1. SELF_ECDGModel2D_t.f90
  2. SELF_ECDGModel2D_t
  3. Free_ECDGModel2D_t

public subroutine Free_ECDGModel2D_t(this)

Arguments

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

Calls

proc~~free_ecdgmodel2d_t~~CallsGraph proc~free_ecdgmodel2d_t Free_ECDGModel2D_t proc~free_dgmodel2d_t Free_DGModel2D_t proc~free_ecdgmodel2d_t->proc~free_dgmodel2d_t

Called by

proc~~free_ecdgmodel2d_t~~CalledByGraph proc~free_ecdgmodel2d_t Free_ECDGModel2D_t proc~free_esatmo2d Free_ESAtmo2D proc~free_esatmo2d->proc~free_ecdgmodel2d_t proc~free_ecadvection2d Free_ECAdvection2D proc~free_ecadvection2d->proc~free_ecdgmodel2d_t

Contents

Source Code

Free_ECDGModel2D_t

Source Code

  subroutine Free_ECDGModel2D_t(this)
    implicit none
    class(ECDGModel2D_t),intent(inout) :: this

    call this%twoPointFlux%DissociateGeometry()
    call this%twoPointFlux%Free()
    if(this%mesh%nMortars > 0) then
      call this%mortarNormal%DissociateGeometry()
      call this%mortarNormal%Free()
    endif
    call Free_DGModel2D_t(this)

  endsubroutine Free_ECDGModel2D_t