m_common Module


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: dp = kind(0.0d0)
real(kind=dp), public, parameter :: pi = 4*atan(1.0_dp)
integer, public, parameter :: RDR_X2Y = 12
integer, public, parameter :: RDR_X2Z = 13
integer, public, parameter :: RDR_Y2X = 21
integer, public, parameter :: RDR_Y2Z = 23
integer, public, parameter :: RDR_Z2X = 31
integer, public, parameter :: RDR_Z2Y = 32
integer, public, parameter :: RDR_C2X = 41
integer, public, parameter :: RDR_C2Y = 42
integer, public, parameter :: RDR_C2Z = 43
integer, public, parameter :: RDR_X2C = 14
integer, public, parameter :: RDR_Y2C = 24
integer, public, parameter :: RDR_Z2C = 34
integer, public, parameter :: DIR_X = 1
integer, public, parameter :: DIR_Y = 2
integer, public, parameter :: DIR_Z = 3
integer, public, parameter :: DIR_C = 4
integer, public, parameter :: POISSON_SOLVER_FFT = 0
integer, public, parameter :: POISSON_SOLVER_CG = 1
integer, public, parameter :: VERT = 0000
integer, public, parameter :: CELL = 1110
integer, public, parameter :: X_FACE = 0110
integer, public, parameter :: Y_FACE = 1010
integer, public, parameter :: Z_FACE = 1100
integer, public, parameter :: X_EDGE = 1000
integer, public, parameter :: Y_EDGE = 0100
integer, public, parameter :: Z_EDGE = 0010
integer, public, parameter :: NULL_LOC = -0001
integer, public, parameter :: BC_PERIODIC = 0
integer, public, parameter :: BC_NEUMANN = 1
integer, public, parameter :: BC_DIRICHLET = 2
integer, public, parameter :: BC_HALO = -1
integer, protected :: rdr_map(4,4) = reshape([0, RDR_Y2X, RDR_Z2X, RDR_C2X, RDR_X2Y, 0, RDR_Z2Y, RDR_C2Y, RDR_X2Z, RDR_Y2Z, 0, RDR_C2Z, RDR_X2C, RDR_Y2C, RDR_Z2C, 0], shape=[4, 4])

Functions

public pure function get_rdr_from_dirs(dir_from, dir_to) result(rdr_dir)

Returns RDR_?2? value based on two direction inputs

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: dir_from
integer, intent(in) :: dir_to

Return Value integer

public function move_data_loc(in_data_loc, dir, move) result(out_data_loc)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: in_data_loc
integer, intent(in) :: dir
integer, intent(in) :: move

Return Value integer


Subroutines

public pure subroutine get_dirs_from_rdr(dir_from, dir_to, rdr_dir)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: dir_from
integer, intent(out) :: dir_to
integer, intent(in) :: rdr_dir