module process / icoA More...

Functions/Subroutines
subroutine, public	prc_icoa_setup
	Setup Processor topology. More...

subroutine, public	prc_icoa_rgn_generate (rlevel, pall, rall, lall, edge_tab, lp2r)
	Generate region management info. More...

Variables
integer, parameter, public	prc_rank_pl = PRC_masterrank
	process ID which manages the pole regions More...

logical, public	prc_have_pl
	this ID manages pole region? More...

integer, parameter, public	i_l = 1
	local region More...

integer, parameter, public	i_prc = 2
	process More...

integer, parameter, public	i_rgnid = 1
	region id More...

integer, parameter, public	i_dir = 2
	direction More...

integer, parameter, public	i_sw = 1
	south west More...

integer, parameter, public	i_nw = 2
	north west More...

integer, parameter, public	i_ne = 3
	north east More...

integer, parameter, public	i_se = 4
	south east More...

integer, parameter, public	i_w = 1
	west More...

integer, parameter, public	i_n = 2
	north More...

integer, parameter, public	i_e = 3
	east More...

integer, parameter, public	i_s = 4
	south More...

integer, parameter, public	i_npl = 1
	north pole More...

integer, parameter, public	i_spl = 2
	south pole More...

integer, public	prc_rgn_level = -1
	region division level More...

integer, public	prc_rgn_dmd = 10
	number of diamonds More...

integer, public	prc_rgn_vlink = 5
	maximum number of vertex linkage, ICO:5 More...

integer, public	prc_rgn_total
	number of regular region (global total) More...

integer, public	prc_rgn_local
	number of regular region (local) More...

integer, parameter, public	prc_rgn_total_pl = 2
	number of pole region More...

integer, parameter, public	prc_rgn_local_lim = 2560
	maximum number of regular region (local) More...

integer, dimension(:,:,:), allocatable, public	prc_rgn_edge_tab
	region link information (for 4 edges) More...

integer, dimension(:,:), allocatable, public	prc_rgn_vert_num
	number of region around the vertex (4 vertexes) More...

integer, dimension(:,:,:,:), allocatable, public	prc_rgn_vert_tab
	region link information (for 4 vertexes) More...

integer, dimension(:,:,:), allocatable, public	prc_rgn_vert_tab_pl
	region link information (for 4 vertexes) More...

integer, dimension(:,:), allocatable, public	prc_rgn_lp2r
	l,prc => rgn More...

integer, dimension(:,:), allocatable, public	prc_rgn_r2lp
	rgn => l,prc More...

integer, dimension(:), allocatable, public	prc_rgn_l2r
	l,prc_me => rgn More...

integer, dimension(prc_rgn_total_pl), public	prc_rgn_r2p_pl
	process ID which have the pole regions More...

integer, dimension(prc_rgn_total_pl), public	prc_rgn_rgn4pl
	region, having pole data in the halo More...

logical, dimension(:), allocatable, public	prc_rgn_have_sgp
	region have singlar point? More...

Detailed Description

module process / icoA

Description: MPI process management module for Icosahedral-A grid

Author: Team SCALE

NAMELIST

PARAM_PRC_ICOA

name type default value comment

PRC_RGN_LEVEL integer -1 region division level

DEBUG logical .false. debug option

PARAM_PRC_ICOA_RGN

name	type	default value	comment
PRC_ICOA_RGN_IN_FNAME	character(len=H_LONG)	''	input file name for region management file
PRC_ICOA_RGN_OUT_FNAME	character(len=H_LONG)	''	output file name for region management file
DEBUG	logical	.false.	debug option

rgn_info

name type default value comment

NUM_OF_RGN integer number of region

rgn_link_info

name	type	default value	comment
RGNID	integer
SW	integer, dimension(2)	-1	south-west region info
NW	integer, dimension(2)	-1	north-west region info
NE	integer, dimension(2)	-1	north-east region info
SE	integer, dimension(2)	-1	south-east region info

proc_info

name type default value comment

NUM_OF_PROC integer number of processes
rgn_mng_info

name type default value comment

PEID integer process ID

NUM_OF_MNG integer number of regions be managed

MNG_RGNID integer, dimension(PRC_RGN_LOCAL_LIM) managed region ID

History Output: No history output

Function/Subroutine Documentation

◆ prc_icoa_setup()

subroutine, public scale_prc_icoa::prc_icoa_setup ( )

Setup Processor topology.

Definition at line 121 of file scale_prc_icoA.F90.

References i_dir, i_l, i_n, i_ne, i_npl, i_nw, i_prc, i_rgnid, i_s, i_se, i_spl, i_sw, i_w, scale_io::io_fid_conf, scale_io::io_fid_nml, scale_io::io_get_available_fid(), scale_io::io_l, scale_io::io_nml, scale_prc::prc_abort(), scale_prc::prc_abort_comm_world, scale_prc::prc_global_comm_world, scale_prc::prc_global_ismaster, scale_prc::prc_global_myrank, scale_prc::prc_global_nprocs, prc_have_pl, prc_icoa_rgn_generate(), scale_prc::prc_ismaster, scale_prc::prc_local_comm_world, scale_prc::prc_myrank, scale_prc::prc_nprocs, prc_rank_pl, prc_rgn_dmd, prc_rgn_edge_tab, prc_rgn_have_sgp, prc_rgn_l2r, prc_rgn_level, prc_rgn_local, prc_rgn_local_lim, prc_rgn_lp2r, prc_rgn_r2lp, prc_rgn_r2p_pl, prc_rgn_rgn4pl, prc_rgn_total, prc_rgn_total_pl, prc_rgn_vert_num, prc_rgn_vert_tab, prc_rgn_vert_tab_pl, prc_rgn_vlink, scale_prc::prc_universal_comm_world, scale_prc::prc_universal_ismaster, scale_prc::prc_universal_myrank, and scale_prc::prc_universal_nprocs.

     use scale_prc, only: &
        prc_abort,                &
        prc_abort_comm_world,     &
        prc_universal_comm_world, &
        prc_universal_nprocs,     &
        prc_universal_myrank,     &
        prc_universal_ismaster,   &
        prc_global_comm_world,    &
        prc_global_nprocs,        &
        prc_global_myrank,        &
        prc_global_ismaster,      &
        prc_local_comm_world,     &
        prc_nprocs,               &
        prc_myrank,               &
        prc_ismaster
     implicit none
 
     namelist / param_prc_icoa / &
        prc_rgn_level, &
        debug
 
     integer :: l, rgnid
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     log_newline
     log_info("PRC_ICOA_setup",*) 'Setup'
 
     if ( io_l ) then
        log_newline
        log_progress(*) 'start MPI'
        log_newline
        log_info("PRC_ICOA_setup",*) 'Process information '
        log_info_cont('(1x,A,I12)')  'UNIVERSAL_COMM_WORLD        : ', prc_universal_comm_world
        log_info_cont('(1x,A,I12)')  'total process [UNIVERSAL]   : ', prc_universal_nprocs
        log_info_cont('(1x,A,I12)')  'my process ID [UNIVERSAL]   : ', prc_universal_myrank
        log_info_cont('(1x,A,L12)')  'master rank?  [UNIVERSAL]   : ', prc_universal_ismaster
        log_info_cont('(1x,A,I12)')  'GLOBAL_COMM_WORLD           : ', prc_global_comm_world
        log_info_cont('(1x,A,I12)')  'total process [GLOBAL]      : ', prc_global_nprocs
        log_info_cont('(1x,A,I12)')  'my process ID [GLOBAL]      : ', prc_global_myrank
        log_info_cont('(1x,A,L12)')  'master rank?  [GLOBAL]      : ', prc_global_ismaster
        log_info_cont('(1x,A,I12)')  'LOCAL_COMM_WORLD            : ', prc_local_comm_world
        log_info_cont('(1x,A,I12)')  'total process [LOCAL]       : ', prc_nprocs
        log_info_cont('(1x,A,I12)')  'my process ID [LOCAL]       : ', prc_myrank
        log_info_cont('(1x,A,L12)')  'master rank?  [LOCAL]       : ', prc_ismaster
        log_info_cont('(1x,A,I12)')  'ABORT_COMM_WORLD            : ', prc_abort_comm_world
        log_info_cont('(1x,A,I12)')  'master rank ID [each world] : ', prc_masterrank
     endif
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_prc_icoa,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        log_info("PRC_ICOA_setup",*) 'Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        log_error("PRC_ICOA_setup",*) 'Not appropriate names in namelist PARAM_PRC_ICOA. Check!'
        call prc_abort
     endif
     if( io_nml ) write(io_fid_nml,nml=param_prc_icoa)
 
     if ( prc_rgn_level < 0 ) then
        log_error("PRC_ICOA_setup",*) 'PRC_RGN_level is not appropriate :', prc_rgn_level
        call prc_abort
     endif
 
     prc_rgn_total = 2**prc_rgn_level * 2**prc_rgn_level * prc_rgn_dmd
     prc_rgn_local = prc_rgn_total / prc_nprocs
 
     if ( mod(prc_rgn_total,prc_nprocs) /= 0 ) then
        log_error("PRC_ICOA_setup",*) 'Number of total region must be divisible by the number of process', prc_rgn_total, prc_nprocs
        call prc_abort
     endif
 
     if ( prc_rgn_local > prc_rgn_local_lim ) then
        log_error("PRC_ICOA_setup",*) 'limit exceed! local region: ', prc_rgn_local, prc_rgn_local_lim
        call prc_abort
     endif
 
     call prc_icoa_rgn_setup
 
     ! pole region management flag
     if ( prc_myrank == prc_rank_pl ) then
        prc_have_pl = .true.
     else
        prc_have_pl = .false.
     endif
 
     ! singlar point management flag
     allocate( prc_rgn_have_sgp(prc_rgn_local) )
     prc_rgn_have_sgp(:) = .false.
 
     do l = 1, prc_rgn_local
        rgnid = prc_rgn_lp2r(l,prc_myrank)
        if ( prc_rgn_vert_num(i_w,rgnid) == 3 ) then
           prc_rgn_have_sgp(l) = .true.
        endif
     enddo
 
     call output_info
 
     return

Here is the call graph for this function:

◆ prc_icoa_rgn_generate()

subroutine, public scale_prc_icoa::prc_icoa_rgn_generate	(	integer, intent(in)	rlevel,
		integer, intent(in)	pall,
		integer, intent(in)	rall,
		integer, intent(in)	lall,
		integer, dimension(2,4,rall), intent(out)	edge_tab,
		integer, dimension(lall,0:pall-1), intent(out)	lp2r
	)

Generate region management info.

Parameters

[in]	rlevel	region division level
[in]	pall	number of process (global total)
[in]	rall	number of regular region (global total)
[in]	lall	number of regular region (local)
[out]	edge_tab	region link information (for 4 edges)
[out]	lp2r	l,prc => region

Definition at line 564 of file scale_prc_icoA.F90.

References i_dir, i_e, i_n, i_ne, i_npl, i_nw, i_rgnid, i_s, i_se, i_spl, i_sw, i_w, scale_prc::prc_abort(), scale_prc::prc_myrank, prc_rgn_dmd, prc_rgn_edge_tab, prc_rgn_l2r, prc_rgn_level, prc_rgn_local, prc_rgn_lp2r, prc_rgn_r2p_pl, prc_rgn_rgn4pl, prc_rgn_total, prc_rgn_vert_num, prc_rgn_vert_tab, prc_rgn_vert_tab_pl, and prc_rgn_vlink.

Referenced by prc_icoa_setup().

     use scale_prc, only: &
        prc_abort
     implicit none
 
     integer, intent(in)  :: rlevel
     integer, intent(in)  :: pall
     integer, intent(in)  :: rall
     integer, intent(in)  :: lall
     integer, intent(out) :: edge_tab(2,4,rall)
     integer, intent(out) :: lp2r(lall,0:pall-1)
 
     integer, parameter :: nmax_dmd = 10
     integer            :: dmd_data(4,nmax_dmd)
     integer            :: rall_1d, rall_1dmd
 
     integer :: d_nb, i_nb, j_nb, rgnid_nb, direction
     integer :: d, i, j, rgnid
     integer :: l, p
     !---------------------------------------------------------------------------
 
     log_info("PRC_ICOA_RGN_generate",*) 'generate region management information file'
     log_info_cont(*)                    'Topology: icosahedral'
 
     dmd_data(:, 1) = (/  6, 5, 2,10 /)
     dmd_data(:, 2) = (/ 10, 1, 3, 9 /)
     dmd_data(:, 3) = (/  9, 2, 4, 8 /)
     dmd_data(:, 4) = (/  8, 3, 5, 7 /)
     dmd_data(:, 5) = (/  7, 4, 1, 6 /)
     dmd_data(:, 6) = (/  7, 5, 1,10 /)
     dmd_data(:, 7) = (/  8, 4, 5, 6 /)
     dmd_data(:, 8) = (/  9, 3, 4, 7 /)
     dmd_data(:, 9) = (/ 10, 2, 3, 8 /)
     dmd_data(:,10) = (/  6, 1, 2, 9 /)
 
     rall_1d   = 2**rlevel
     rall_1dmd = rall_1d*rall_1d
 
     !--- make region link table
     do d = 1, nmax_dmd
     do i = 1, rall_1d
     do j = 1, rall_1d
        rgnid = (d-1)*rall_1dmd + (j-1)*rall_1d + i
 
        !--- I_SW
        if ( j == 1 ) then
           if ( d <= 5 ) then
              i_nb = i
              j_nb = rall_1d
              d_nb = dmd_data(i_sw,d)
              direction = i_ne
           else
              i_nb = rall_1d
              j_nb = rall_1d+1-i
              d_nb = dmd_data(i_sw,d)
              direction = i_se
           endif
        else
           i_nb = i
           j_nb = j-1
           d_nb = d
           direction = i_ne
        endif
        rgnid_nb = (d_nb-1)*rall_1dmd + (j_nb-1)*rall_1d + i_nb
 
        edge_tab(i_rgnid,i_sw,rgnid) = rgnid_nb
        edge_tab(i_dir,  i_sw,rgnid) = direction
 
        !--- I_NW
        if ( i == 1 ) then
           if ( d <= 5 ) then
              i_nb = rall_1d+1-j
              j_nb = rall_1d
              d_nb = dmd_data(i_nw,d)
              direction = i_ne
           else
              i_nb = rall_1d
              j_nb = j
              d_nb = dmd_data(i_nw,d)
              direction = i_se
           endif
        else
           i_nb = i-1
           j_nb = j
           d_nb = d
           direction = i_se
        endif
        rgnid_nb = (d_nb-1)*rall_1dmd + (j_nb-1)*rall_1d + i_nb
 
        edge_tab(i_rgnid,i_nw,rgnid) = rgnid_nb
        edge_tab(i_dir,  i_nw,rgnid) = direction
 
        !--- I_NE
        if ( j == rall_1d ) then
           if ( d <= 5 ) then
              i_nb = 1
              j_nb = rall_1d+1-i
              d_nb = dmd_data(i_ne,d)
              direction = i_nw
           else
              i_nb = i
              j_nb = 1
              d_nb = dmd_data(i_ne,d)
              direction = i_sw
           endif
        else
           i_nb = i
           j_nb = j+1
           d_nb = d
           direction = i_sw
        endif
        rgnid_nb = (d_nb-1)*rall_1dmd + (j_nb-1)*rall_1d + i_nb
 
        edge_tab(i_rgnid,i_ne,rgnid) = rgnid_nb
        edge_tab(i_dir,  i_ne,rgnid) = direction
 
        !--- I_SE
        if ( i == rall_1d ) then
           if ( d <= 5 ) then
              i_nb = 1
              j_nb = j
              d_nb = dmd_data(i_se,d)
              direction = i_nw
           else
              i_nb = rall_1d+1-j
              j_nb = 1
              d_nb = dmd_data(i_se,d)
              direction = i_sw
           endif
        else
           i_nb = i+1
           j_nb = j
           d_nb = d
           direction = i_nw
        endif
        rgnid_nb = (d_nb-1)*rall_1dmd + (j_nb-1)*rall_1d + i_nb
 
        edge_tab(i_rgnid,i_se,rgnid) = rgnid_nb
        edge_tab(i_dir,  i_se,rgnid) = direction
     enddo
     enddo
     enddo
 
     !--- make region-pe relationship
     lp2r(:,:) = -1
 
     rgnid = 0
     do p = 0, pall-1
     do l = 1, lall
        rgnid = rgnid + 1
 
        lp2r(l,p) = rgnid
     enddo
     enddo
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ prc_rank_pl

integer, parameter, public scale_prc_icoa::prc_rank_pl = PRC_masterrank

process ID which manages the pole regions

Definition at line 38 of file scale_prc_icoA.F90.

Referenced by prc_icoa_setup().

38 integer, public, parameter :: prc_rank_pl = prc_masterrank

◆ prc_have_pl

logical, public scale_prc_icoa::prc_have_pl

this ID manages pole region?

Definition at line 39 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), and prc_icoa_setup().

39 logical, public :: prc_have_pl

◆ i_l

integer, parameter, public scale_prc_icoa::i_l = 1

local region

Definition at line 43 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), and prc_icoa_setup().

43 integer, public, parameter :: i_l = 1

◆ i_prc

integer, parameter, public scale_prc_icoa::i_prc = 2

process

Definition at line 44 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), and prc_icoa_setup().

44 integer, public, parameter :: i_prc = 2

◆ i_rgnid

integer, parameter, public scale_prc_icoa::i_rgnid = 1

region id

Definition at line 46 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

46 integer, public, parameter :: i_rgnid = 1

◆ i_dir

integer, parameter, public scale_prc_icoa::i_dir = 2

direction

Definition at line 47 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

47 integer, public, parameter :: i_dir = 2

◆ i_sw

integer, parameter, public scale_prc_icoa::i_sw = 1

south west

Definition at line 50 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

50 integer, public, parameter :: i_sw = 1

scale_atmos_phy_rd_common::i_sw

integer, parameter, public i_sw

Definition: scale_atmos_phy_rd_common.F90:38

◆ i_nw

integer, parameter, public scale_prc_icoa::i_nw = 2

north west

Definition at line 51 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

51 integer, public, parameter :: i_nw = 2

◆ i_ne

integer, parameter, public scale_prc_icoa::i_ne = 3

north east

Definition at line 52 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

52 integer, public, parameter :: i_ne = 3

◆ i_se

integer, parameter, public scale_prc_icoa::i_se = 4

south east

Definition at line 53 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

53 integer, public, parameter :: i_se = 4

◆ i_w

integer, parameter, public scale_prc_icoa::i_w = 1

west

Definition at line 56 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

56 integer, public, parameter :: i_w = 1

◆ i_n

integer, parameter, public scale_prc_icoa::i_n = 2

north

Definition at line 57 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), prc_icoa_setup(), and scale_comm_icoa::suf().

57 integer, public, parameter :: i_n = 2

◆ i_e

integer, parameter, public scale_prc_icoa::i_e = 3

east

Definition at line 58 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), and prc_icoa_rgn_generate().

58 integer, public, parameter :: i_e = 3

◆ i_s

integer, parameter, public scale_prc_icoa::i_s = 4

south

Definition at line 59 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), prc_icoa_setup(), and scale_comm_icoa::suf().

59 integer, public, parameter :: i_s = 4

◆ i_npl

integer, parameter, public scale_prc_icoa::i_npl = 1

north pole

Definition at line 62 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), prc_icoa_rgn_generate(), and prc_icoa_setup().

62 integer, public, parameter :: i_npl = 1

scale_prc_icoa::i_npl

integer, parameter, public i_npl

north pole

Definition: scale_prc_icoA.F90:62

◆ i_spl

integer, parameter, public scale_prc_icoa::i_spl = 2

south pole

Definition at line 63 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), prc_icoa_rgn_generate(), and prc_icoa_setup().

63 integer, public, parameter :: i_spl = 2

scale_prc_icoa::i_spl

integer, parameter, public i_spl

south pole

Definition: scale_prc_icoA.F90:63

◆ prc_rgn_level

integer, public scale_prc_icoa::prc_rgn_level = -1

region division level

Definition at line 66 of file scale_prc_icoA.F90.

Referenced by scale_atmos_grid_icoa_index::atmos_grid_icoa_index_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

66 integer, public :: prc_rgn_level = -1

◆ prc_rgn_dmd

integer, public scale_prc_icoa::prc_rgn_dmd = 10

number of diamonds

Definition at line 67 of file scale_prc_icoA.F90.

Referenced by prc_icoa_rgn_generate(), and prc_icoa_setup().

67 integer, public :: prc_rgn_dmd = 10

◆ prc_rgn_vlink

integer, public scale_prc_icoa::prc_rgn_vlink = 5

maximum number of vertex linkage, ICO:5

Definition at line 68 of file scale_prc_icoA.F90.

Referenced by scale_atmos_grid_icoa_index::atmos_grid_icoa_index_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

68 integer, public :: prc_rgn_vlink = 5

◆ prc_rgn_total

integer, public scale_prc_icoa::prc_rgn_total

number of regular region (global total)

Definition at line 71 of file scale_prc_icoA.F90.

Referenced by scale_atmos_grid_icoa_index::atmos_grid_icoa_index_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

71 integer, public :: prc_rgn_total

◆ prc_rgn_local

integer, public scale_prc_icoa::prc_rgn_local

number of regular region (local)

Definition at line 72 of file scale_prc_icoA.F90.

Referenced by scale_atmos_grid_icoa_index::atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

72 integer, public :: prc_rgn_local

◆ prc_rgn_total_pl

integer, parameter, public scale_prc_icoa::prc_rgn_total_pl = 2

number of pole region

Definition at line 73 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), and prc_icoa_setup().

73 integer, public, parameter :: prc_rgn_total_pl = 2

scale_prc_icoa::prc_rgn_total_pl

integer, parameter, public prc_rgn_total_pl

number of pole region

Definition: scale_prc_icoA.F90:73

◆ prc_rgn_local_lim

integer, parameter, public scale_prc_icoa::prc_rgn_local_lim = 2560

maximum number of regular region (local)

Definition at line 75 of file scale_prc_icoA.F90.

Referenced by prc_icoa_setup().

75 integer, public, parameter :: prc_rgn_local_lim = 2560

◆ prc_rgn_edge_tab

integer, dimension (:,:,:), allocatable, public scale_prc_icoa::prc_rgn_edge_tab

region link information (for 4 edges)

Definition at line 77 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

77 integer, public, allocatable :: prc_rgn_edge_tab (:,:,:)

◆ prc_rgn_vert_num

integer, dimension (:,:), allocatable, public scale_prc_icoa::prc_rgn_vert_num

number of region around the vertex (4 vertexes)

Definition at line 79 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), prc_icoa_setup(), and scale_comm_icoa::suf().

79 integer, public, allocatable :: prc_rgn_vert_num (:,:)

◆ prc_rgn_vert_tab

integer, dimension (:,:,:,:), allocatable, public scale_prc_icoa::prc_rgn_vert_tab

region link information (for 4 vertexes)

Definition at line 80 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

80 integer, public, allocatable :: prc_rgn_vert_tab (:,:,:,:)

◆ prc_rgn_vert_tab_pl

integer, dimension(:,:,:), allocatable, public scale_prc_icoa::prc_rgn_vert_tab_pl

region link information (for 4 vertexes)

Definition at line 81 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

81 integer, public, allocatable :: prc_rgn_vert_tab_pl(:,:,:)

◆ prc_rgn_lp2r

integer, dimension(:,:), allocatable, public scale_prc_icoa::prc_rgn_lp2r

l,prc => rgn

Definition at line 83 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), prc_icoa_rgn_generate(), and prc_icoa_setup().

83 integer, public, allocatable :: prc_rgn_lp2r(:,:)

scale_prc_icoa::prc_rgn_lp2r

integer, dimension(:,:), allocatable, public prc_rgn_lp2r

l,prc => rgn

Definition: scale_prc_icoA.F90:83

◆ prc_rgn_r2lp

integer, dimension(:,:), allocatable, public scale_prc_icoa::prc_rgn_r2lp

rgn => l,prc

Definition at line 84 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), and prc_icoa_setup().

84 integer, public, allocatable :: prc_rgn_r2lp(:,:)

◆ prc_rgn_l2r

integer, dimension (:), allocatable, public scale_prc_icoa::prc_rgn_l2r

l,prc_me => rgn

Definition at line 85 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), prc_icoa_setup(), and scale_comm_icoa::suf().

85 integer, public, allocatable :: prc_rgn_l2r (:)

◆ prc_rgn_r2p_pl

integer, dimension(prc_rgn_total_pl), public scale_prc_icoa::prc_rgn_r2p_pl

process ID which have the pole regions

Definition at line 87 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_setup(), prc_icoa_rgn_generate(), and prc_icoa_setup().

87 integer, public :: prc_rgn_r2p_pl(prc_rgn_total_pl)

scale_prc_icoa::prc_rgn_total_pl

integer, parameter, public prc_rgn_total_pl

number of pole region

Definition: scale_prc_icoA.F90:73

◆ prc_rgn_rgn4pl

integer, dimension(prc_rgn_total_pl), public scale_prc_icoa::prc_rgn_rgn4pl

region, having pole data in the halo

Definition at line 88 of file scale_prc_icoA.F90.

Referenced by scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), prc_icoa_rgn_generate(), and prc_icoa_setup().

88 integer, public :: prc_rgn_rgn4pl(prc_rgn_total_pl)

scale_prc_icoa::prc_rgn_rgn4pl

integer, dimension(prc_rgn_total_pl), public prc_rgn_rgn4pl

region, having pole data in the halo

Definition: scale_prc_icoA.F90:88

scale_prc_icoa::prc_rgn_total_pl

integer, parameter, public prc_rgn_total_pl

number of pole region

Definition: scale_prc_icoA.F90:73

◆ prc_rgn_have_sgp

logical, dimension(:), allocatable, public scale_prc_icoa::prc_rgn_have_sgp

region have singlar point?

Definition at line 92 of file scale_prc_icoA.F90.

Referenced by prc_icoa_setup(), and scale_comm_icoa::suf().

92 logical, public, allocatable :: prc_rgn_have_sgp(:)

name	type	default value	comment
PRC_RGN_LEVEL	integer	-1	region division level
DEBUG	logical	.false.	debug option

name	type	comment
PEID	integer	process ID
NUM_OF_MNG	integer	number of regions be managed
MNG_RGNID	integer, dimension(PRC_RGN_LOCAL_LIM)	managed region ID

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ prc_icoa_setup()

◆ prc_icoa_rgn_generate()

Variable Documentation

◆ prc_rank_pl

◆ prc_have_pl

◆ i_l

◆ i_prc

◆ i_rgnid

◆ i_dir

◆ i_sw

◆ i_nw

◆ i_ne

◆ i_se

◆ i_w

◆ i_n

◆ i_e

◆ i_s

◆ i_npl

◆ i_spl

◆ prc_rgn_level

◆ prc_rgn_dmd

◆ prc_rgn_vlink

◆ prc_rgn_total

◆ prc_rgn_local

◆ prc_rgn_total_pl

◆ prc_rgn_local_lim

◆ prc_rgn_edge_tab

◆ prc_rgn_vert_num

◆ prc_rgn_vert_tab

◆ prc_rgn_vert_tab_pl

◆ prc_rgn_lp2r

◆ prc_rgn_r2lp

◆ prc_rgn_l2r

◆ prc_rgn_r2p_pl

◆ prc_rgn_rgn4pl

◆ prc_rgn_have_sgp