|
integer, parameter | peset_max = 10000 |
|
integer | current_peset_max = 32 |
|
type(communicator), dimension(:), allocatable | peset |
|
logical | module_is_initialized = .false. |
|
logical | debug = .false. |
|
integer | npes =1 |
|
integer | root_pe =0 |
|
integer | pe =0 |
|
integer(long_kind) | tick |
|
integer(long_kind) | ticks_per_sec |
|
integer(long_kind) | max_ticks |
|
integer(long_kind) | start_tick |
|
integer(long_kind) | end_tick |
|
integer(long_kind) | tick0 =0 |
|
integer | mpp_comm_private |
|
logical | first_call_system_clock_mpi =.TRUE. |
|
real(double_kind) | mpi_count0 =0 |
|
real(double_kind) | mpi_tick_rate =0.d0 |
|
logical, public | mpp_record_timing_data =.TRUE. |
|
type(clock), dimension(max_clocks), save | clocks |
|
integer | log_unit |
|
integer | etc_unit |
|
character(len=32) | configfile ='logfile' |
|
integer | peset_num =0 |
|
integer | current_peset_num =0 |
|
integer | world_peset_num |
|
integer | error |
|
integer | clock_num =0 |
|
integer | num_clock_ids =0 |
|
integer | current_clock =0 |
|
integer, dimension(max_clocks) | previous_clock =0 |
|
real | tick_rate |
|
type(mpp_type_list) | datatypes |
|
type(mpp_type), target, public | mpp_byte |
|
integer | cur_send_request = 0 |
|
integer | cur_recv_request = 0 |
|
integer, dimension(:), allocatable | request_send |
|
integer, dimension(:), allocatable | request_recv |
|
integer, dimension(:), allocatable | size_recv |
|
integer, dimension(:), allocatable | type_recv |
|
character(len=32) | etcfile ='._mpp.nonrootpe.msgs' |
|
integer | in_unit =100 |
|
integer | out_unit =101 |
|
integer | err_unit =102 |
|
integer | stdout_unit |
|
type(summary_struct), dimension(max_clocks) | clock_summary |
|
logical | warnings_are_fatal = .FALSE. |
|
integer | error_state =0 |
|
integer | clock_grain =CLOCK_LOOP-1 |
|
integer, parameter | mpi_integer8 =MPI_INTEGER |
|
integer, dimension(shmem_barrier_sync_size) | psync |
|
integer | clock0 |
|
integer | mpp_stack_size =0 |
|
integer | mpp_stack_hwm =0 |
|
logical | verbose =.FALSE. |
|
integer(long_kind), dimension(1) | word |
|
integer | get_len_nocomm = 0 |
|
integer, parameter, public | input_str_length = 256 |
|
character(len=input_str_length), dimension(:), allocatable, target, public | input_nml_file |
|
logical | read_ascii_file_on = .FALSE. |
|
integer, parameter | max_request_min = 10000 |
|
integer | request_multiply = 20 |
|
logical | etc_unit_is_stderr = .false. |
|
integer | max_request = 0 |
|
logical | sync_all_clocks = .false. |
|