lagrangian_set_FreeMPIType Subroutine

private impure subroutine lagrangian_set_FreeMPIType(this)

Frees the MPI data type.

Type Bound

lagrangian_set

Arguments

Type IntentOptional Attributes Name
class(lagrangian_set), intent(inout) :: this

Calls

proc~~lagrangian_set_freempitype~~CallsGraph proc~lagrangian_set_freempitype lagrangian_set%lagrangian_set_FreeMPIType mpi_type_free mpi_type_free proc~lagrangian_set_freempitype->mpi_type_free

Called by

proc~~lagrangian_set_freempitype~~CalledByGraph proc~lagrangian_set_freempitype lagrangian_set%lagrangian_set_FreeMPIType proc~lagrangian_set_final lagrangian_set%lagrangian_set_Final proc~lagrangian_set_final->proc~lagrangian_set_freempitype proc~marker_set_final marker_set%marker_set_Final proc~marker_set_final->proc~lagrangian_set_freempitype proc~particle_set_changeparttype particle_set%particle_set_ChangePartType proc~particle_set_changeparttype->proc~lagrangian_set_freempitype proc~respart_set_final ResPart_set%ResPart_set_Final proc~respart_set_final->proc~lagrangian_set_freempitype none~finalize~27 marker_set%Finalize proc~respart_set_final->none~finalize~27 none~finalize~26 ResPart_set%Finalize none~finalize~26->proc~respart_set_final none~finalize~27->proc~respart_set_final none~finalize~28 particle_set%Finalize none~finalize~28->proc~respart_set_final none~finalize~29 solid_obj%Finalize none~finalize~29->proc~respart_set_final proc~particle_set_prepare particle_set%particle_set_Prepare proc~particle_set_prepare->proc~particle_set_changeparttype proc~setupcasepp SetUpCasePP proc~setupcasepp->proc~particle_set_changeparttype proc~setupcasepp->none~finalize~28 proc~setupcasepp~2 SetUpCasePP proc~setupcasepp~2->proc~particle_set_changeparttype proc~setupcasepp~2->none~finalize~28 proc~cdifs_obj_final cdifs_obj%cdifs_obj_Final proc~cdifs_obj_final->none~finalize~26 proc~grans_obj_final grans_obj%grans_obj_Final proc~grans_obj_final->none~finalize~26 proc~setupcaseib SetUpCaseIB proc~setupcaseib->none~finalize~27 proc~setupcaseib~2 SetUpCaseIB proc~setupcaseib~2->none~finalize~27 proc~setupcaseib~3 SetUpCaseIB proc~setupcaseib~3->none~finalize~27 proc~setupcaseib~4 SetUpCaseIB proc~setupcaseib~4->none~finalize~27 proc~setupcaserespart SetUpCaseResPart proc~setupcaserespart->none~finalize~26 proc~setupcaserespart~2 SetUpCaseResPart proc~setupcaserespart~2->none~finalize~26 proc~setupcaserp SetUpCaseRP proc~setupcaserp->none~finalize~26 proc~setupcaserp~2 SetUpCaseRP proc~setupcaserp~2->none~finalize~26 proc~setupcaserp~3 SetUpCaseRP proc~setupcaserp~3->none~finalize~26 proc~solid_set_final solid_set%solid_set_Final proc~solid_set_final->none~finalize~29 program~main~6 main program~main~6->proc~setupcasepp program~main~6->proc~setupcaserp~3 program~main~7 main program~main~7->proc~setupcasepp~2 program~main main program~main->proc~setupcaserespart program~main~14 main program~main~14->proc~setupcaseib~4 program~main~2 main program~main~2->proc~setupcaseib program~main~2->proc~setupcaserp program~main~4 main program~main~4->proc~setupcaseib~2 program~main~4->proc~setupcaserp~2 program~main~9 main program~main~9->proc~setupcaseib~3 program~main~9->proc~setupcaserespart~2

Source Code

    impure subroutine lagrangian_set_FreeMPIType(this)
      !> Frees the MPI data type.
      implicit none
      class(lagrangian_set), intent(inout) :: this
      ! Work variables
      integer :: ierr

      if (this%is_initialized) then
          if (this%MPI_TYPE.ne.MPI_DATATYPE_NULL) &
            call MPI_TYPE_FREE(this%MPI_TYPE,ierr)
      end if

      return
    end subroutine lagrangian_set_FreeMPIType