mpp_domains.F90 File Reference

#include <fms_platform.h>
#include <file_version.h>
#include <mpp_define_nest_domains.inc>
#include <mpp_domains_util.inc>
#include <mpp_domains_comm.inc>
#include <mpp_domains_define.inc>
#include <mpp_domains_misc.inc>
#include <mpp_domains_reduce.inc>
#include <mpp_unstruct_domain.inc>

Include dependency graph for mpp_domains.F90:

Go to the source code of this file.

Data Types
type	mpp_domains_mod::unstruct_axis_spec
type	mpp_domains_mod::unstruct_domain_spec
type	mpp_domains_mod::unstruct_overlap_type
type	mpp_domains_mod::unstruct_pass_type
type	mpp_domains_mod::domainug
type	mpp_domains_mod::domain_axis_spec
type	mpp_domains_mod::domain1d
type	mpp_domains_mod::domain1d_spec
type	mpp_domains_mod::domain2d_spec
type	mpp_domains_mod::overlap_type
type	mpp_domains_mod::overlapspec
type	mpp_domains_mod::tile_type
type	mpp_domains_mod::domain2d
type	mpp_domains_mod::contact_type
type	mpp_domains_mod::index_type
type	mpp_domains_mod::nestspec
type	mpp_domains_mod::nest_domain_type
type	mpp_domains_mod::domaincommunicator2d
type	mpp_domains_mod::nonblock_type
type	mpp_domains_mod::mpp_group_update_type
interface	mpp_domains_mod::mpp_define_layout
interface	mpp_domains_mod::mpp_define_domains
interface	mpp_domains_mod::mpp_define_null_domain
interface	mpp_domains_mod::mpp_copy_domain
interface	mpp_domains_mod::mpp_deallocate_domain
interface	mpp_domains_mod::mpp_modify_domain
interface	mpp_domains_mod::mpp_update_domains
interface	mpp_domains_mod::mpp_start_update_domains
interface	mpp_domains_mod::mpp_complete_update_domains
interface	mpp_domains_mod::mpp_start_do_update
interface	mpp_domains_mod::mpp_complete_do_update
interface	mpp_domains_mod::mpp_create_group_update
interface	mpp_domains_mod::mpp_do_group_update
interface	mpp_domains_mod::mpp_start_group_update
interface	mpp_domains_mod::mpp_complete_group_update
interface	mpp_domains_mod::mpp_reset_group_update_field
interface	mpp_domains_mod::mpp_update_nest_fine
interface	mpp_domains_mod::mpp_do_update_nest_fine
interface	mpp_domains_mod::mpp_update_nest_coarse
interface	mpp_domains_mod::mpp_do_update_nest_coarse
interface	mpp_domains_mod::mpp_broadcast_domain
interface	mpp_domains_mod::mpp_update_domains_ad
interface	mpp_domains_mod::mpp_do_update
interface	mpp_domains_mod::mpp_do_check
interface	mpp_domains_mod::mpp_pass_sg_to_ug
interface	mpp_domains_mod::mpp_pass_ug_to_sg
interface	mpp_domains_mod::mpp_do_update_ad
interface	mpp_domains_mod::mpp_get_boundary
interface	mpp_domains_mod::mpp_get_boundary_ad
interface	mpp_domains_mod::mpp_do_get_boundary
interface	mpp_domains_mod::mpp_do_get_boundary_ad
interface	mpp_domains_mod::mpp_redistribute
interface	mpp_domains_mod::mpp_do_redistribute
interface	mpp_domains_mod::mpp_check_field
interface	mpp_domains_mod::mpp_global_field
interface	mpp_domains_mod::mpp_global_field_ad
interface	mpp_domains_mod::mpp_do_global_field
interface	mpp_domains_mod::mpp_do_global_field_a2a
interface	mpp_domains_mod::mpp_global_field_ug
interface	mpp_domains_mod::mpp_do_global_field_ad
interface	mpp_domains_mod::mpp_global_max
interface	mpp_domains_mod::mpp_global_min
interface	mpp_domains_mod::mpp_global_sum
interface	mpp_domains_mod::mpp_global_sum_tl
interface	mpp_domains_mod::mpp_global_sum_ad
interface	mpp_domains_mod::mpp_get_neighbor_pe
interface	mpp_domains_mod::operator(.eq.)
interface	mpp_domains_mod::operator(.ne.)
interface	mpp_domains_mod::mpp_get_compute_domain
interface	mpp_domains_mod::mpp_get_compute_domains
interface	mpp_domains_mod::mpp_get_data_domain
interface	mpp_domains_mod::mpp_get_global_domain
interface	mpp_domains_mod::mpp_get_memory_domain
interface	mpp_domains_mod::mpp_get_domain_extents
interface	mpp_domains_mod::mpp_set_compute_domain
interface	mpp_domains_mod::mpp_set_data_domain
interface	mpp_domains_mod::mpp_set_global_domain
interface	mpp_domains_mod::mpp_get_pelist
interface	mpp_domains_mod::mpp_get_layout
interface	mpp_domains_mod::mpp_nullify_domain_list

Modules
module	mpp_domains_mod

Variables
integer, parameter	mpp_domains_mod::name_length = 64
integer, parameter	mpp_domains_mod::maxlist = 100
integer, parameter	mpp_domains_mod::maxoverlap = 200
integer, parameter	mpp_domains_mod::field_s = 0
integer, parameter	mpp_domains_mod::field_x = 1
integer, parameter	mpp_domains_mod::field_y = 2
integer, parameter	mpp_domains_mod::max_request = 100
integer	mpp_domains_mod::pe
logical	mpp_domains_mod::module_is_initialized = .false.
logical	mpp_domains_mod::debug = .FALSE.
logical	mpp_domains_mod::verbose =.FALSE.
logical	mpp_domains_mod::mosaic_defined = .false.
integer	mpp_domains_mod::mpp_domains_stack_size =0
integer	mpp_domains_mod::mpp_domains_stack_hwm =0
type(domain1d), save, public	mpp_domains_mod::null_domain1d
type(domain2d), save, public	mpp_domains_mod::null_domain2d
type(domainug), save, public	mpp_domains_mod::null_domainug
integer	mpp_domains_mod::current_id_update = 0
integer	mpp_domains_mod::num_update = 0
integer	mpp_domains_mod::num_nonblock_group_update = 0
integer	mpp_domains_mod::nonblock_buffer_pos = 0
integer	mpp_domains_mod::nonblock_group_buffer_pos = 0
logical	mpp_domains_mod::start_update = .true.
logical	mpp_domains_mod::complete_update = .false.
type(nonblock_type), dimension(:), allocatable	mpp_domains_mod::nonblock_data
integer, parameter	mpp_domains_mod::max_nonblock_update = 100
integer	mpp_domains_mod::group_update_buffer_pos = 0
logical	mpp_domains_mod::complete_group_update_on = .false.
integer, parameter	mpp_domains_mod::max_addrs =512
integer(long_kind), dimension(max_addrs), save	mpp_domains_mod::addrs_sorted =-9999
integer, dimension(-1:max_addrs), save	mpp_domains_mod::addrs_idx =-9999
integer, dimension(max_addrs), save	mpp_domains_mod::a_salvage =-9999
integer, save	mpp_domains_mod::a_sort_len =0
integer, save	mpp_domains_mod::n_addrs =0
integer(long_kind), parameter	mpp_domains_mod::addr2_base =Z'0000000000010000'
integer, parameter	mpp_domains_mod::max_addrs2 =128
integer(long_kind), dimension(max_addrs2), save	mpp_domains_mod::addrs2_sorted =-9999
integer, dimension(-1:max_addrs2), save	mpp_domains_mod::addrs2_idx =-9999
integer, dimension(max_addrs2), save	mpp_domains_mod::a2_salvage =-9999
integer, save	mpp_domains_mod::a2_sort_len =0
integer, save	mpp_domains_mod::n_addrs2 =0
integer, parameter	mpp_domains_mod::max_dom_ids =128
integer(long_kind), dimension(max_dom_ids), save	mpp_domains_mod::ids_sorted =-9999
integer, dimension(-1:max_dom_ids), save	mpp_domains_mod::ids_idx =-9999
integer, save	mpp_domains_mod::i_sort_len =0
integer, save	mpp_domains_mod::n_ids =0
integer, parameter	mpp_domains_mod::max_fields =1024
integer(long_kind), dimension(max_fields), save	mpp_domains_mod::dckey_sorted =-9999
type(domaincommunicator2d), dimension(:), allocatable, target, save	mpp_domains_mod::d_comm
integer, dimension(-1:max_fields), save	mpp_domains_mod::d_comm_idx =-9999
integer, dimension(max_fields), save	mpp_domains_mod::dc_salvage =-9999
integer, save	mpp_domains_mod::dc_sort_len =0
integer, save	mpp_domains_mod::n_comm =0
integer(long_kind), parameter	mpp_domains_mod::gt_base =Z'0000000000000100'
integer(long_kind), parameter	mpp_domains_mod::ke_base =Z'0001000000000000'
integer(long_kind)	mpp_domains_mod::domain_cnt =0
logical	mpp_domains_mod::domain_clocks_on =.FALSE.
integer	mpp_domains_mod::send_clock =0
integer	mpp_domains_mod::recv_clock =0
integer	mpp_domains_mod::unpk_clock =0
integer	mpp_domains_mod::wait_clock =0
integer	mpp_domains_mod::pack_clock =0
integer	mpp_domains_mod::send_pack_clock_nonblock =0
integer	mpp_domains_mod::recv_clock_nonblock =0
integer	mpp_domains_mod::unpk_clock_nonblock =0
integer	mpp_domains_mod::wait_clock_nonblock =0
integer	mpp_domains_mod::nest_send_clock =0
integer	mpp_domains_mod::nest_recv_clock =0
integer	mpp_domains_mod::nest_unpk_clock =0
integer	mpp_domains_mod::nest_wait_clock =0
integer	mpp_domains_mod::nest_pack_clock =0
integer	mpp_domains_mod::group_recv_clock =0
integer	mpp_domains_mod::group_send_clock =0
integer	mpp_domains_mod::group_pack_clock =0
integer	mpp_domains_mod::group_unpk_clock =0
integer	mpp_domains_mod::group_wait_clock =0
integer	mpp_domains_mod::nonblock_group_recv_clock =0
integer	mpp_domains_mod::nonblock_group_send_clock =0
integer	mpp_domains_mod::nonblock_group_pack_clock =0
integer	mpp_domains_mod::nonblock_group_unpk_clock =0
integer	mpp_domains_mod::nonblock_group_wait_clock =0
character(len=32)	mpp_domains_mod::debug_update_domain = "none"
logical	mpp_domains_mod::debug_message_passing = .false.
integer	mpp_domains_mod::nthread_control_loop = 8
logical	mpp_domains_mod::efp_sum_overflow_check = .false.
logical	mpp_domains_mod::use_alltoallw = .false.
integer, parameter	mpp_domains_mod::no_check = -1
integer	mpp_domains_mod::debug_update_level = NO_CHECK