Free_ColumnOperators3D_t Subroutine

  1. SELF_ColumnOperators_3D_t.f90
  2. SELF_ColumnOperators_3D_t
  3. Free_ColumnOperators3D_t

public subroutine Free_ColumnOperators3D_t(this)

Arguments

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

Called by

proc~~free_columnoperators3d_t~~CalledByGraph proc~free_columnoperators3d_t Free_ColumnOperators3D_t proc~free_columnoperators3d Free_ColumnOperators3D proc~free_columnoperators3d->proc~free_columnoperators3d_t

Contents

Source Code

Free_ColumnOperators3D_t

Source Code

  subroutine Free_ColumnOperators3D_t(this)
    implicit none
    class(ColumnOperators3D_t),intent(inout) :: this

    if(associated(this%upInverse)) deallocate(this%upInverse)
    if(associated(this%downInverse)) deallocate(this%downInverse)
    this%upInverse => null()
    this%downInverse => null()
    this%interp => null()
    this%geometry => null()
    this%N = 0
    this%nLayers = 0
    this%nColumns = 0
    this%nElem = 0
    this%lobatto = .false.

  endsubroutine Free_ColumnOperators3D_t