|
| 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. |
| |