spdisworkarraymodule Module Reference

Data Types
type	spdisworkarraytype
	Helper class with work arrays for the SPDIS calculation in NPF. More...

Functions/Subroutines
subroutine	create (this, nr_conns)
logical(lgp) function	is_created (this)
subroutine	reset (this)
subroutine	destroy (this)

Function/Subroutine Documentation

create()

subroutine spdisworkarraymodule::create	(	class(spdisworkarraytype)	this,
		integer(i4b)	nr_conns
	)

Definition at line 32 of file SpdisWorkArray.f90.

    class(SpdisWorkArrayType) :: this
    integer(I4B) :: nr_conns
 
    allocate (this%vi(nr_conns))
    allocate (this%di(nr_conns))
    allocate (this%viz(nr_conns))
    allocate (this%diz(nr_conns))
    allocate (this%nix(nr_conns))
    allocate (this%niy(nr_conns))
    allocate (this%wix(nr_conns))
    allocate (this%wiy(nr_conns))
    allocate (this%wiz(nr_conns))
    allocate (this%bix(nr_conns))
    allocate (this%biy(nr_conns))
 

destroy()

subroutine spdisworkarraymodule::destroy ( class(spdisworkarraytype)  this )

private

Definition at line 81 of file SpdisWorkArray.f90.

    class(SpdisWorkArrayType) :: this
 
    deallocate (this%vi)
    deallocate (this%di)
    deallocate (this%viz)
    deallocate (this%diz)
    deallocate (this%nix)
    deallocate (this%niy)
    deallocate (this%wix)
    deallocate (this%wiy)
    deallocate (this%wiz)
    deallocate (this%bix)
    deallocate (this%biy)
 

is_created()

logical(lgp) function spdisworkarraymodule::is_created ( class(spdisworkarraytype)  this )

private

Definition at line 52 of file SpdisWorkArray.f90.

    class(SpdisWorkArrayType) :: this
    logical(LGP) :: created
 
    created = allocated(this%vi)
 

reset()

subroutine spdisworkarraymodule::reset ( class(spdisworkarraytype)  this )

private

Definition at line 62 of file SpdisWorkArray.f90.

    class(SpdisWorkArrayType) :: this
 
    this%vi(:) = dzero
    this%di(:) = dzero
    this%viz(:) = dzero
    this%diz(:) = dzero
    this%nix(:) = dzero
    this%niy(:) = dzero
    this%wix(:) = dzero
    this%wiy(:) = dzero
    this%wiz(:) = dzero
    this%bix(:) = dzero
    this%biy(:) = dzero