TRGL_MOD – ecTrans

Uses

- PARKIND1
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Derived Types

type, public :: TRGL_BUFFERS

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=JPIM),	public		::	ISENDCOUNT	=	-9999
integer(kind=JPIM),	public		::	IRECVCOUNT	=	-9999
integer(kind=JPIM),	public		::	INSEND	=	-9999
integer(kind=JPIM),	public		::	INRECV	=	-9999
integer(kind=JPIM),	public		::	IFLDS	=	0
logical,	public		::	LLTRGTOL	=	.FALSE.
logical,	public		::	LLPGPONLY	=	.FALSE.
logical,	public		::	LLINDER	=	.FALSE.
integer(kind=JPIM),	public,	ALLOCATABLE	::	ISENDTOT(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IRECVTOT(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	ISEND(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IRECV(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IINDEX(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	INDOFF(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGPTRSEND(:,:,:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	ISETWL(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	ISETVL(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	ISETW(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IJPOS(:,:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IPOSPLUS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IFLDA(:,:)

type, public :: TRGL_VARS

Components

Type	Visibility	Attributes		Name
integer(kind=JPIM),	public,	ALLOCATABLE	::	IUVLEVS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IUVPARS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGP2PARS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IFLDOFF(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGPTROFF(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGP3APARS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGP3ALEVS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGP3BPARS(:)
integer(kind=JPIM),	public,	ALLOCATABLE	::	IGP3BLEVS(:)
logical,	public,	ALLOCATABLE	::	LLUV(:)
logical,	public,	ALLOCATABLE	::	LLGP2(:)
logical,	public,	ALLOCATABLE	::	LLGP3A(:)
logical,	public,	ALLOCATABLE	::	LLGP3B(:)

Subroutines

public subroutine ALLOCATE_BUFFERS_CST(SELF)

Arguments

Type	Intent	Optional	Attributes		Name
class(TRGL_BUFFERS),	intent(inout)			::	SELF

public subroutine ALLOCATE_BUFFERS_SR(SELF, KF_GP)

Arguments

Type	Intent	Optional	Attributes		Name
class(TRGL_BUFFERS),	intent(inout)			::	SELF
integer(kind=JPIM),	intent(in)			::	KF_GP

public subroutine TRGL_ALLOCATE_VARS(SELF, KF_GP, KF_FS)

Arguments

Type	Intent		Name
class(TRGL_VARS),	intent(inout)	::	SELF
integer(kind=JPIM),	intent(in)	::	KF_GP
integer(kind=JPIM),	intent(in)	::	KF_FS

public subroutine TRGL_ALLOCATE_HEAP_BUFFER(Z_HEAP, S1, S2)

Arguments

Type	Intent	Attributes		Name
real(kind=JPRB),	intent(inout),	ALLOCATABLE	::	Z_HEAP(:,:)
integer(kind=JPIM),	intent(in)		::	S1
integer(kind=JPIM),	intent(in)		::	S2

public subroutine TRGL_INIT_VARS(YLVARS, KF_SCALARS_G, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Arguments

Type	Intent	Optional		Name
type(TRGL_VARS),	intent(inout)		::	YLVARS
integer(kind=JPIM),	intent(in)		::	KF_SCALARS_G
real(kind=JPRB),		optional	::	PGP(:,:,:)
real(kind=JPRB),		optional	::	PGPUV(:,:,:,:)
real(kind=JPRB),		optional	::	PGP3A(:,:,:,:)
real(kind=JPRB),		optional	::	PGP3B(:,:,:,:)
real(kind=JPRB),		optional	::	PGP2(:,:,:)

public subroutine TRGL_INIT_OFF_VARS(YDBUFS, YLVARS, KVSET, KPTRGP, KF_GP)

Arguments

Type	Intent	Optional		Name
type(TRGL_BUFFERS),	intent(inout)		::	YDBUFS
type(TRGL_VARS),	intent(inout)		::	YLVARS
integer(kind=JPIM),	intent(in)		::	KVSET(:)
integer(kind=JPIM),	intent(in),	optional	::	KPTRGP(:)
integer(kind=JPIM),	intent(in)		::	KF_GP

public subroutine TGRL_INIT_PACKING_VARS(YDBUFS, YLVARS, KVSET, KF_GP, PCOMBUFS)

Arguments

Type	Intent	Optional	Attributes		Name
type(TRGL_BUFFERS),	intent(inout)			::	YDBUFS
type(TRGL_VARS),	intent(inout)			::	YLVARS
integer(kind=JPIM),	intent(in)			::	KVSET(:)
integer(kind=JPIM),	intent(in)			::	KF_GP
real(kind=JPRB),	intent(in),	optional,	POINTER	::	PCOMBUFS(:,:)

public subroutine TGRL_COPY_ZCOMBUF(YDBUFS, YLVARS, INRS, ZCOMBUF, KPTRGP, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Arguments

Type	Intent	Optional	Attributes		Name
type(TRGL_BUFFERS),	intent(inout)			::	YDBUFS
type(TRGL_VARS),	intent(inout)			::	YLVARS
integer(kind=JPIM),	intent(in)			::	INRS
real(kind=JPRB),	intent(inout),		POINTER, CONTIGUOUS	::	ZCOMBUF(:,:)
integer(kind=JPIM),	intent(in),	optional		::	KPTRGP(:)
real(kind=JPRB),		optional		::	PGP(:,:,:)
real(kind=JPRB),		optional		::	PGPUV(:,:,:,:)
real(kind=JPRB),		optional		::	PGP3A(:,:,:,:)
real(kind=JPRB),		optional		::	PGP3B(:,:,:,:)
real(kind=JPRB),		optional		::	PGP2(:,:,:)

public subroutine TGRL_COPY_PGLAT(PGLAT, YDBUFS, YLVARS, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Arguments

Type	Intent	Optional		Name
real(kind=JPRB),		optional	::	PGLAT(:,:)
type(TRGL_BUFFERS),	intent(inout)		::	YDBUFS
type(TRGL_VARS),	intent(inout)		::	YLVARS
real(kind=JPRB),		optional	::	PGP(:,:,:)
real(kind=JPRB),		optional	::	PGPUV(:,:,:,:)
real(kind=JPRB),		optional	::	PGP3A(:,:,:,:)
real(kind=JPRB),		optional	::	PGP3B(:,:,:,:)
real(kind=JPRB),		optional	::	PGP2(:,:,:)

public subroutine TRGL_PROLOG(KF_FS, KF_GP, KVSET, YDBUFS)

Arguments

Type	Intent		Name
integer(kind=JPIM),	intent(in)	::	KF_FS
integer(kind=JPIM),	intent(in)	::	KF_GP
integer(kind=JPIM),	intent(in)	::	KVSET(KF_GP)
type(TRGL_BUFFERS),	intent(inout)	::	YDBUFS

TRGL_MOD Module

Contents

Derived Types

Subroutines

Uses

Used by

Derived Types

type, public :: TRGL_BUFFERS

Components

type, public :: TRGL_VARS

Components

Subroutines

public subroutine ALLOCATE_BUFFERS_CST(SELF)

Arguments

public subroutine ALLOCATE_BUFFERS_SR(SELF, KF_GP)

Arguments

public subroutine TRGL_ALLOCATE_VARS(SELF, KF_GP, KF_FS)

Arguments

public subroutine TRGL_ALLOCATE_HEAP_BUFFER(Z_HEAP, S1, S2)

Arguments

public subroutine TRGL_INIT_VARS(YLVARS, KF_SCALARS_G, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Arguments

public subroutine TRGL_INIT_OFF_VARS(YDBUFS, YLVARS, KVSET, KPTRGP, KF_GP)

Arguments

public subroutine TGRL_INIT_PACKING_VARS(YDBUFS, YLVARS, KVSET, KF_GP, PCOMBUFS)

Arguments

public subroutine TGRL_COPY_ZCOMBUF(YDBUFS, YLVARS, INRS, ZCOMBUF, KPTRGP, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Arguments

public subroutine TGRL_COPY_PGLAT(PGLAT, YDBUFS, YLVARS, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Arguments

public subroutine TRGL_PROLOG(KF_FS, KF_GP, KVSET, YDBUFS)

Arguments