tem_commbuf_real_finmpimem Subroutine

private subroutine tem_commbuf_real_finmpimem(me)

free the communication buffer allocated by the fillmpimem routine again.

Arguments

Type IntentOptional Attributes Name
type(tem_realbuffer_type), intent(inout) :: me

Calls

proc~~tem_commbuf_real_finmpimem~~CallsGraph proc~tem_commbuf_real_finmpimem tem_commbuf_real_finmpimem free_mpif_mem free_mpif_mem proc~tem_commbuf_real_finmpimem->free_mpif_mem

Source Code

  subroutine tem_commbuf_real_finmpimem(me)
    ! -------------------------------------------------------------------- !
    type(tem_realbuffer_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !

    me%nvals = 0
    if ( allocated(me%pos) ) deallocate(me%pos)
    if ( associated(me%val) ) then
      nullify(me%val)
      call free_mpif_mem(me%mem_mpi)
    end if

  end subroutine tem_commbuf_real_finmpimem