ngapart_obj Derived Type

type :: ngapart_obj

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
type(MPI_Info),	public		::	MPI_INFO			MPI info
integer,	public		::	MPI_SIZE			MPI size of a NGA particle
type(MPI_DATATYPE),	public		::	MPI_TYPE			MPI variable type of a NGA particle
integer,	public		::	count			Total count of particles in file
real(kind=leapDP),	public		::	dt			Time step in file
type(MPI_File),	public		::	fid			File identifier
character(len=str64),	public		::	filename			File to read/write
type(parallel_obj),	public,	pointer	::	parallel	=>	null()	Associated parallel structure
real(kind=leapDP),	public		::	time			Time in file

Type-Bound Procedures

procedure, public :: Close => ngapart_Close

subroutine ngapart_Close(this)

Close file with MPI

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object

procedure, public :: CreateMPIType => ngapart_CreateMPIType

subroutine ngapart_CreateMPIType(this)

Define MPI Type and size for a NGA particle

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object

procedure, public :: Finalize => ngapart_Final

subroutine ngapart_Final(this)

Finalize structure

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object

procedure, public :: GetAttributes => ngapart_GetAttributes

subroutine ngapart_GetAttributes(this)

Read file attributes

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object

procedure, public :: Initialize => ngapart_Init

subroutine ngapart_Init(this, filename, access_flag, parallel)

Initialize structuree

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object
character(len=*),	intent(in)			::	filename	File to read/write
character(len=*),	intent(in)			::	access_flag	File access mode
type(parallel_obj),	intent(in),		target	::	parallel	Parallel structure

procedure, public :: Open => ngapart_Open

subroutine ngapart_Open(this, flag)

Open raw NGA part file

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object
character(len=*),	intent(in)			::	flag	File access mode

procedure, public :: Read => ngapart_Read

subroutine ngapart_Read(this, pp)

Read NGA particles, convert and store them in LEAP particle structure

Arguments

Type	Intent	Optional	Attributes		Name
class(ngapart_obj),	intent(inout)			::	this	NGApart object
class(particle_set),	intent(inout)			::	pp	LEAP point-particle set