empty_stencil Subroutine

private subroutine empty_stencil(me)

Delete all entries in the stencil

Arguments

Type IntentOptional Attributes Name
type(tem_stencilHeader_type), intent(out) :: me

stencil header type to empty

Calls

proc~~empty_stencil~~CallsGraph proc~empty_stencil empty_stencil interface~destroy~25 destroy proc~empty_stencil->interface~destroy~25 proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~25->proc~destroy_ga2d_real

Called by

proc~~empty_stencil~~CalledByGraph proc~empty_stencil empty_stencil interface~destroy~7 destroy interface~destroy~7->proc~empty_stencil interface~empty~6 empty interface~empty~6->proc~empty_stencil

Source Code

  subroutine empty_stencil( me )
    ! -------------------------------------------------------------------- !
    !> stencil header type to empty
    type( tem_stencilHeader_type ), intent(out) :: me
    ! -------------------------------------------------------------------- !
    me%QQ  = 0
    me%QQN = 0
    me%nDims = 0
    if( allocated( me%cxDir )) deallocate( me%cxDir )
    if( allocated( me%cxDirRK )) deallocate( me%cxDirRK )
    if( allocated( me%cxDirInv )) deallocate( me%cxDirInv )
    if( allocated( me%cxcx )) deallocate( me%cxcx )
    if( allocated( me%map )) deallocate( me%map )
    if ( me%elem%nVals > 0 ) call destroy( me%elem )
    if( allocated( me%elemLvl )) deallocate( me%elemLvl )

  end subroutine empty_stencil