153 #if defined( __PGI) || defined (__FLANG)
154 #define rank(X) size(shape(X))
158 #if defined(use_libMPI)
162 use iso_fortran_env,
only : input_unit, output_unit, error_unit
163 use mpp_parameter_mod,
only : mpp_verbose, mpp_debug, all_pes, any_pe, null_pe
164 use mpp_parameter_mod,
only : note, warning, fatal, mpp_clock_detailed,mpp_clock_sync
165 use mpp_parameter_mod,
only : clock_component, clock_subcomponent, clock_module_driver
166 use mpp_parameter_mod,
only : clock_module, clock_routine, clock_loop, clock_infra
167 use mpp_parameter_mod,
only : max_events, max_bins, max_event_types, max_clocks
168 use mpp_parameter_mod,
only : maxpes, event_wait, event_allreduce, event_broadcast
169 use mpp_parameter_mod,
only : event_alltoall
170 use mpp_parameter_mod,
only : event_type_create, event_type_free
171 use mpp_parameter_mod,
only : event_recv, event_send, mpp_ready, mpp_wait
172 use mpp_parameter_mod,
only : mpp_parameter_version=>version
173 use mpp_parameter_mod,
only : default_tag
174 use mpp_parameter_mod,
only : comm_tag_1, comm_tag_2, comm_tag_3, comm_tag_4
175 use mpp_parameter_mod,
only : comm_tag_5, comm_tag_6, comm_tag_7, comm_tag_8
176 use mpp_parameter_mod,
only : comm_tag_9, comm_tag_10, comm_tag_11, comm_tag_12
177 use mpp_parameter_mod,
only : comm_tag_13, comm_tag_14, comm_tag_15, comm_tag_16
178 use mpp_parameter_mod,
only : comm_tag_17, comm_tag_18, comm_tag_19, comm_tag_20
179 use mpp_parameter_mod,
only : mpp_fill_int,mpp_fill_double
180 use mpp_data_mod,
only : stat, mpp_stack, ptr_stack, status, ptr_status, sync, ptr_sync
181 use mpp_data_mod,
only : mpp_from_pe, ptr_from, remote_data_loc, ptr_remote
182 use mpp_data_mod,
only : mpp_data_version=>version
189 public :: mpp_verbose, mpp_debug, all_pes, any_pe, null_pe, note, warning, fatal
190 public :: mpp_clock_sync, mpp_clock_detailed, clock_component, clock_subcomponent
191 public :: clock_module_driver, clock_module, clock_routine, clock_loop, clock_infra
192 public :: maxpes, event_recv, event_send
193 public :: comm_tag_1, comm_tag_2, comm_tag_3, comm_tag_4
194 public :: comm_tag_5, comm_tag_6, comm_tag_7, comm_tag_8
195 public :: comm_tag_9, comm_tag_10, comm_tag_11, comm_tag_12
196 public :: comm_tag_13, comm_tag_14, comm_tag_15, comm_tag_16
197 public :: comm_tag_17, comm_tag_18, comm_tag_19, comm_tag_20
199 public :: mpp_init_test_full_init, mpp_init_test_init_true_only, mpp_init_test_peset_allocated
200 public :: mpp_init_test_clocks_init, mpp_init_test_datatype_list_init, mpp_init_test_logfile_init
201 public :: mpp_init_test_read_namelist, mpp_init_test_etc_unit, mpp_init_test_requests_allocated
211 public :: mpp_record_time_start, mpp_record_time_end
231 character(len=32) :: name
232 integer,
pointer :: list(:) =>null()
234 integer :: start, log2stride
242 character(len=16) :: name
243 integer(i8_kind),
dimension(MAX_EVENTS) :: ticks, bytes
251 character(len=32) :: name
252 integer(i8_kind) :: hits
253 integer(i8_kind) :: tick
254 integer(i8_kind) :: total_ticks
256 logical :: sync_on_begin, detailed
258 type(event),
pointer :: events(:) =>null()
267 character(len=16) :: name
268 real(r8_kind) :: msg_size_sums(MAX_BINS)
269 real(r8_kind) :: msg_time_sums(MAX_BINS)
270 real(r8_kind) :: total_data
271 real(r8_kind) :: total_time
272 integer(i8_kind) :: msg_size_cnts(MAX_BINS)
273 integer(i8_kind) :: total_cnts
280 character(len=16) :: name
281 type (Clock_Data_Summary) :: event(MAX_EVENT_TYPES)
290 integer,
allocatable :: sizes(:)
291 integer,
allocatable :: subsizes(:)
292 integer,
allocatable :: starts(:)
296 type(mpp_type),
pointer :: prev => null()
297 type(mpp_type),
pointer :: next => null()
304 type(mpp_type),
pointer :: head => null()
305 type(mpp_type),
pointer :: tail => null()
384 module procedure mpp_error_noargs
385 module procedure mpp_error_is
386 module procedure mpp_error_rs
387 module procedure mpp_error_ia
388 module procedure mpp_error_ra
389 module procedure mpp_error_ia_ia
390 module procedure mpp_error_ia_ra
391 module procedure mpp_error_ra_ia
392 module procedure mpp_error_ra_ra
393 module procedure mpp_error_ia_is
394 module procedure mpp_error_ia_rs
395 module procedure mpp_error_ra_is
396 module procedure mpp_error_ra_rs
397 module procedure mpp_error_is_ia
398 module procedure mpp_error_is_ra
399 module procedure mpp_error_rs_ia
400 module procedure mpp_error_rs_ra
401 module procedure mpp_error_is_is
402 module procedure mpp_error_is_rs
403 module procedure mpp_error_rs_is
404 module procedure mpp_error_rs_rs
411 module procedure iarray_to_char
412 module procedure rarray_to_char
510 module procedure mpp_type_create_int4
511 module procedure mpp_type_create_int8
512 module procedure mpp_type_create_real4
513 module procedure mpp_type_create_real8
514 module procedure mpp_type_create_cmplx4
515 module procedure mpp_type_create_cmplx8
516 module procedure mpp_type_create_logical4
517 module procedure mpp_type_create_logical8
538 module procedure mpp_max_real8_0d
539 module procedure mpp_max_real8_1d
540 module procedure mpp_max_int8_0d
541 module procedure mpp_max_int8_1d
542 module procedure mpp_max_real4_0d
543 module procedure mpp_max_real4_1d
544 module procedure mpp_max_int4_0d
545 module procedure mpp_max_int4_1d
560 module procedure mpp_min_real8_0d
561 module procedure mpp_min_real8_1d
562 module procedure mpp_min_int8_0d
563 module procedure mpp_min_int8_1d
564 module procedure mpp_min_real4_0d
565 module procedure mpp_min_real4_1d
566 module procedure mpp_min_int4_0d
567 module procedure mpp_min_int4_1d
597 module procedure mpp_sum_int8
598 module procedure mpp_sum_int8_scalar
599 module procedure mpp_sum_int8_2d
600 module procedure mpp_sum_int8_3d
601 module procedure mpp_sum_int8_4d
602 module procedure mpp_sum_int8_5d
603 module procedure mpp_sum_real8
604 module procedure mpp_sum_real8_scalar
605 module procedure mpp_sum_real8_2d
606 module procedure mpp_sum_real8_3d
607 module procedure mpp_sum_real8_4d
608 module procedure mpp_sum_real8_5d
610 module procedure mpp_sum_cmplx8
611 module procedure mpp_sum_cmplx8_scalar
612 module procedure mpp_sum_cmplx8_2d
613 module procedure mpp_sum_cmplx8_3d
614 module procedure mpp_sum_cmplx8_4d
615 module procedure mpp_sum_cmplx8_5d
617 module procedure mpp_sum_int4
618 module procedure mpp_sum_int4_scalar
619 module procedure mpp_sum_int4_2d
620 module procedure mpp_sum_int4_3d
621 module procedure mpp_sum_int4_4d
622 module procedure mpp_sum_int4_5d
623 module procedure mpp_sum_real4
624 module procedure mpp_sum_real4_scalar
625 module procedure mpp_sum_real4_2d
626 module procedure mpp_sum_real4_3d
627 module procedure mpp_sum_real4_4d
628 module procedure mpp_sum_real4_5d
630 module procedure mpp_sum_cmplx4
631 module procedure mpp_sum_cmplx4_scalar
632 module procedure mpp_sum_cmplx4_2d
633 module procedure mpp_sum_cmplx4_3d
634 module procedure mpp_sum_cmplx4_4d
635 module procedure mpp_sum_cmplx4_5d
642 module procedure mpp_sum_int8_ad
643 module procedure mpp_sum_int8_scalar_ad
644 module procedure mpp_sum_int8_2d_ad
645 module procedure mpp_sum_int8_3d_ad
646 module procedure mpp_sum_int8_4d_ad
647 module procedure mpp_sum_int8_5d_ad
648 module procedure mpp_sum_real8_ad
649 module procedure mpp_sum_real8_scalar_ad
650 module procedure mpp_sum_real8_2d_ad
651 module procedure mpp_sum_real8_3d_ad
652 module procedure mpp_sum_real8_4d_ad
653 module procedure mpp_sum_real8_5d_ad
655 module procedure mpp_sum_cmplx8_ad
656 module procedure mpp_sum_cmplx8_scalar_ad
657 module procedure mpp_sum_cmplx8_2d_ad
658 module procedure mpp_sum_cmplx8_3d_ad
659 module procedure mpp_sum_cmplx8_4d_ad
660 module procedure mpp_sum_cmplx8_5d_ad
662 module procedure mpp_sum_int4_ad
663 module procedure mpp_sum_int4_scalar_ad
664 module procedure mpp_sum_int4_2d_ad
665 module procedure mpp_sum_int4_3d_ad
666 module procedure mpp_sum_int4_4d_ad
667 module procedure mpp_sum_int4_5d_ad
668 module procedure mpp_sum_real4_ad
669 module procedure mpp_sum_real4_scalar_ad
670 module procedure mpp_sum_real4_2d_ad
671 module procedure mpp_sum_real4_3d_ad
672 module procedure mpp_sum_real4_4d_ad
673 module procedure mpp_sum_real4_5d_ad
675 module procedure mpp_sum_cmplx4_ad
676 module procedure mpp_sum_cmplx4_scalar_ad
677 module procedure mpp_sum_cmplx4_2d_ad
678 module procedure mpp_sum_cmplx4_3d_ad
679 module procedure mpp_sum_cmplx4_4d_ad
680 module procedure mpp_sum_cmplx4_5d_ad
698 module procedure mpp_gather_logical4
699 module procedure mpp_gatherv_logical4
700 module procedure mpp_gather_logical_1d
701 module procedure mpp_gather_int4
702 module procedure mpp_gather_int8
703 module procedure mpp_gatherv_int4
704 module procedure mpp_gatherv_int8
705 module procedure mpp_gather_int4_1d
706 module procedure mpp_gather_int8_1d
707 module procedure mpp_gather_real4
708 module procedure mpp_gather_real8
709 module procedure mpp_gatherv_real4
710 module procedure mpp_gatherv_real8
711 module procedure mpp_gather_real4_1d
712 module procedure mpp_gather_real8_1d
713 module procedure mpp_gather_logical_1dv
714 module procedure mpp_gather_int4_1dv
715 module procedure mpp_gather_int8_1dv
716 module procedure mpp_gather_real4_1dv
717 module procedure mpp_gather_real8_1dv
718 module procedure mpp_gather_pelist_logical_2d
719 module procedure mpp_gather_pelist_logical_3d
720 module procedure mpp_gather_pelist_int4_2d
721 module procedure mpp_gather_pelist_int4_3d
722 module procedure mpp_gather_pelist_int8_2d
723 module procedure mpp_gather_pelist_int8_3d
724 module procedure mpp_gather_pelist_real4_2d
725 module procedure mpp_gather_pelist_real4_3d
726 module procedure mpp_gather_pelist_real8_2d
727 module procedure mpp_gather_pelist_real8_3d
748 module procedure mpp_scatterv_int4
749 module procedure mpp_scatter_pelist_int4_2d
750 module procedure mpp_scatter_pelist_int4_3d
751 module procedure mpp_scatterv_int8
752 module procedure mpp_scatter_pelist_int8_2d
753 module procedure mpp_scatter_pelist_int8_3d
754 module procedure mpp_scatterv_real4
755 module procedure mpp_scatter_pelist_real4_2d
756 module procedure mpp_scatter_pelist_real4_3d
757 module procedure mpp_scatterv_real8
758 module procedure mpp_scatter_pelist_real8_2d
759 module procedure mpp_scatter_pelist_real8_3d
776 module procedure mpp_alltoall_int4
777 module procedure mpp_alltoall_int8
778 module procedure mpp_alltoall_real4
779 module procedure mpp_alltoall_real8
781 module procedure mpp_alltoall_cmplx4
784 module procedure mpp_alltoall_cmplx8
786 module procedure mpp_alltoall_logical4
787 module procedure mpp_alltoall_logical8
788 module procedure mpp_alltoall_int4_v
789 module procedure mpp_alltoall_int8_v
790 module procedure mpp_alltoall_real4_v
791 module procedure mpp_alltoall_real8_v
793 module procedure mpp_alltoall_cmplx4_v
796 module procedure mpp_alltoall_cmplx8_v
798 module procedure mpp_alltoall_logical4_v
799 module procedure mpp_alltoall_logical8_v
800 module procedure mpp_alltoall_int4_w
801 module procedure mpp_alltoall_int8_w
802 module procedure mpp_alltoall_real4_w
803 module procedure mpp_alltoall_real8_w
805 module procedure mpp_alltoall_cmplx4_w
808 module procedure mpp_alltoall_cmplx8_w
810 module procedure mpp_alltoall_logical4_w
811 module procedure mpp_alltoall_logical8_w
886 module procedure mpp_transmit_real8
887 module procedure mpp_transmit_real8_scalar
888 module procedure mpp_transmit_real8_2d
889 module procedure mpp_transmit_real8_3d
890 module procedure mpp_transmit_real8_4d
891 module procedure mpp_transmit_real8_5d
893 module procedure mpp_transmit_cmplx8
894 module procedure mpp_transmit_cmplx8_scalar
895 module procedure mpp_transmit_cmplx8_2d
896 module procedure mpp_transmit_cmplx8_3d
897 module procedure mpp_transmit_cmplx8_4d
898 module procedure mpp_transmit_cmplx8_5d
900 module procedure mpp_transmit_int8
901 module procedure mpp_transmit_int8_scalar
902 module procedure mpp_transmit_int8_2d
903 module procedure mpp_transmit_int8_3d
904 module procedure mpp_transmit_int8_4d
905 module procedure mpp_transmit_int8_5d
906 module procedure mpp_transmit_logical8
907 module procedure mpp_transmit_logical8_scalar
908 module procedure mpp_transmit_logical8_2d
909 module procedure mpp_transmit_logical8_3d
910 module procedure mpp_transmit_logical8_4d
911 module procedure mpp_transmit_logical8_5d
913 module procedure mpp_transmit_real4
914 module procedure mpp_transmit_real4_scalar
915 module procedure mpp_transmit_real4_2d
916 module procedure mpp_transmit_real4_3d
917 module procedure mpp_transmit_real4_4d
918 module procedure mpp_transmit_real4_5d
921 module procedure mpp_transmit_cmplx4
922 module procedure mpp_transmit_cmplx4_scalar
923 module procedure mpp_transmit_cmplx4_2d
924 module procedure mpp_transmit_cmplx4_3d
925 module procedure mpp_transmit_cmplx4_4d
926 module procedure mpp_transmit_cmplx4_5d
928 module procedure mpp_transmit_int4
929 module procedure mpp_transmit_int4_scalar
930 module procedure mpp_transmit_int4_2d
931 module procedure mpp_transmit_int4_3d
932 module procedure mpp_transmit_int4_4d
933 module procedure mpp_transmit_int4_5d
934 module procedure mpp_transmit_logical4
935 module procedure mpp_transmit_logical4_scalar
936 module procedure mpp_transmit_logical4_2d
937 module procedure mpp_transmit_logical4_3d
938 module procedure mpp_transmit_logical4_4d
939 module procedure mpp_transmit_logical4_5d
951 module procedure mpp_recv_real8
952 module procedure mpp_recv_real8_scalar
953 module procedure mpp_recv_real8_2d
954 module procedure mpp_recv_real8_3d
955 module procedure mpp_recv_real8_4d
956 module procedure mpp_recv_real8_5d
958 module procedure mpp_recv_cmplx8
959 module procedure mpp_recv_cmplx8_scalar
960 module procedure mpp_recv_cmplx8_2d
961 module procedure mpp_recv_cmplx8_3d
962 module procedure mpp_recv_cmplx8_4d
963 module procedure mpp_recv_cmplx8_5d
965 module procedure mpp_recv_int8
966 module procedure mpp_recv_int8_scalar
967 module procedure mpp_recv_int8_2d
968 module procedure mpp_recv_int8_3d
969 module procedure mpp_recv_int8_4d
970 module procedure mpp_recv_int8_5d
971 module procedure mpp_recv_logical8
972 module procedure mpp_recv_logical8_scalar
973 module procedure mpp_recv_logical8_2d
974 module procedure mpp_recv_logical8_3d
975 module procedure mpp_recv_logical8_4d
976 module procedure mpp_recv_logical8_5d
978 module procedure mpp_recv_real4
979 module procedure mpp_recv_real4_scalar
980 module procedure mpp_recv_real4_2d
981 module procedure mpp_recv_real4_3d
982 module procedure mpp_recv_real4_4d
983 module procedure mpp_recv_real4_5d
986 module procedure mpp_recv_cmplx4
987 module procedure mpp_recv_cmplx4_scalar
988 module procedure mpp_recv_cmplx4_2d
989 module procedure mpp_recv_cmplx4_3d
990 module procedure mpp_recv_cmplx4_4d
991 module procedure mpp_recv_cmplx4_5d
993 module procedure mpp_recv_int4
994 module procedure mpp_recv_int4_scalar
995 module procedure mpp_recv_int4_2d
996 module procedure mpp_recv_int4_3d
997 module procedure mpp_recv_int4_4d
998 module procedure mpp_recv_int4_5d
999 module procedure mpp_recv_logical4
1000 module procedure mpp_recv_logical4_scalar
1001 module procedure mpp_recv_logical4_2d
1002 module procedure mpp_recv_logical4_3d
1003 module procedure mpp_recv_logical4_4d
1004 module procedure mpp_recv_logical4_5d
1018 module procedure mpp_send_real8
1019 module procedure mpp_send_real8_scalar
1020 module procedure mpp_send_real8_2d
1021 module procedure mpp_send_real8_3d
1022 module procedure mpp_send_real8_4d
1023 module procedure mpp_send_real8_5d
1025 module procedure mpp_send_cmplx8
1026 module procedure mpp_send_cmplx8_scalar
1027 module procedure mpp_send_cmplx8_2d
1028 module procedure mpp_send_cmplx8_3d
1029 module procedure mpp_send_cmplx8_4d
1030 module procedure mpp_send_cmplx8_5d
1032 module procedure mpp_send_int8
1033 module procedure mpp_send_int8_scalar
1034 module procedure mpp_send_int8_2d
1035 module procedure mpp_send_int8_3d
1036 module procedure mpp_send_int8_4d
1037 module procedure mpp_send_int8_5d
1038 module procedure mpp_send_logical8
1039 module procedure mpp_send_logical8_scalar
1040 module procedure mpp_send_logical8_2d
1041 module procedure mpp_send_logical8_3d
1042 module procedure mpp_send_logical8_4d
1043 module procedure mpp_send_logical8_5d
1045 module procedure mpp_send_real4
1046 module procedure mpp_send_real4_scalar
1047 module procedure mpp_send_real4_2d
1048 module procedure mpp_send_real4_3d
1049 module procedure mpp_send_real4_4d
1050 module procedure mpp_send_real4_5d
1053 module procedure mpp_send_cmplx4
1054 module procedure mpp_send_cmplx4_scalar
1055 module procedure mpp_send_cmplx4_2d
1056 module procedure mpp_send_cmplx4_3d
1057 module procedure mpp_send_cmplx4_4d
1058 module procedure mpp_send_cmplx4_5d
1060 module procedure mpp_send_int4
1061 module procedure mpp_send_int4_scalar
1062 module procedure mpp_send_int4_2d
1063 module procedure mpp_send_int4_3d
1064 module procedure mpp_send_int4_4d
1065 module procedure mpp_send_int4_5d
1066 module procedure mpp_send_logical4
1067 module procedure mpp_send_logical4_scalar
1068 module procedure mpp_send_logical4_2d
1069 module procedure mpp_send_logical4_3d
1070 module procedure mpp_send_logical4_4d
1071 module procedure mpp_send_logical4_5d
1106 module procedure mpp_broadcast_real8
1107 module procedure mpp_broadcast_real8_scalar
1108 module procedure mpp_broadcast_real8_2d
1109 module procedure mpp_broadcast_real8_3d
1110 module procedure mpp_broadcast_real8_4d
1111 module procedure mpp_broadcast_real8_5d
1113 module procedure mpp_broadcast_cmplx8
1114 module procedure mpp_broadcast_cmplx8_scalar
1115 module procedure mpp_broadcast_cmplx8_2d
1116 module procedure mpp_broadcast_cmplx8_3d
1117 module procedure mpp_broadcast_cmplx8_4d
1118 module procedure mpp_broadcast_cmplx8_5d
1120 module procedure mpp_broadcast_int8
1121 module procedure mpp_broadcast_int8_scalar
1122 module procedure mpp_broadcast_int8_2d
1123 module procedure mpp_broadcast_int8_3d
1124 module procedure mpp_broadcast_int8_4d
1125 module procedure mpp_broadcast_int8_5d
1126 module procedure mpp_broadcast_logical8
1127 module procedure mpp_broadcast_logical8_scalar
1128 module procedure mpp_broadcast_logical8_2d
1129 module procedure mpp_broadcast_logical8_3d
1130 module procedure mpp_broadcast_logical8_4d
1131 module procedure mpp_broadcast_logical8_5d
1133 module procedure mpp_broadcast_real4
1134 module procedure mpp_broadcast_real4_scalar
1135 module procedure mpp_broadcast_real4_2d
1136 module procedure mpp_broadcast_real4_3d
1137 module procedure mpp_broadcast_real4_4d
1138 module procedure mpp_broadcast_real4_5d
1141 module procedure mpp_broadcast_cmplx4
1142 module procedure mpp_broadcast_cmplx4_scalar
1143 module procedure mpp_broadcast_cmplx4_2d
1144 module procedure mpp_broadcast_cmplx4_3d
1145 module procedure mpp_broadcast_cmplx4_4d
1146 module procedure mpp_broadcast_cmplx4_5d
1148 module procedure mpp_broadcast_int4
1149 module procedure mpp_broadcast_int4_scalar
1150 module procedure mpp_broadcast_int4_2d
1151 module procedure mpp_broadcast_int4_3d
1152 module procedure mpp_broadcast_int4_4d
1153 module procedure mpp_broadcast_int4_5d
1154 module procedure mpp_broadcast_logical4
1155 module procedure mpp_broadcast_logical4_scalar
1156 module procedure mpp_broadcast_logical4_2d
1157 module procedure mpp_broadcast_logical4_3d
1158 module procedure mpp_broadcast_logical4_4d
1159 module procedure mpp_broadcast_logical4_5d
1214 module procedure mpp_chksum_i8_1d
1215 module procedure mpp_chksum_i8_2d
1216 module procedure mpp_chksum_i8_3d
1217 module procedure mpp_chksum_i8_4d
1218 module procedure mpp_chksum_i8_5d
1219 module procedure mpp_chksum_i8_1d_rmask
1220 module procedure mpp_chksum_i8_2d_rmask
1221 module procedure mpp_chksum_i8_3d_rmask
1222 module procedure mpp_chksum_i8_4d_rmask
1223 module procedure mpp_chksum_i8_5d_rmask
1225 module procedure mpp_chksum_i4_1d
1226 module procedure mpp_chksum_i4_2d
1227 module procedure mpp_chksum_i4_3d
1228 module procedure mpp_chksum_i4_4d
1229 module procedure mpp_chksum_i4_5d
1230 module procedure mpp_chksum_i4_1d_rmask
1231 module procedure mpp_chksum_i4_2d_rmask
1232 module procedure mpp_chksum_i4_3d_rmask
1233 module procedure mpp_chksum_i4_4d_rmask
1234 module procedure mpp_chksum_i4_5d_rmask
1236 module procedure mpp_chksum_r8_0d
1237 module procedure mpp_chksum_r8_1d
1238 module procedure mpp_chksum_r8_2d
1239 module procedure mpp_chksum_r8_3d
1240 module procedure mpp_chksum_r8_4d
1241 module procedure mpp_chksum_r8_5d
1243 module procedure mpp_chksum_r4_0d
1244 module procedure mpp_chksum_r4_1d
1245 module procedure mpp_chksum_r4_2d
1246 module procedure mpp_chksum_r4_3d
1247 module procedure mpp_chksum_r4_4d
1248 module procedure mpp_chksum_r4_5d
1250 module procedure mpp_chksum_c8_0d
1251 module procedure mpp_chksum_c8_1d
1252 module procedure mpp_chksum_c8_2d
1253 module procedure mpp_chksum_c8_3d
1254 module procedure mpp_chksum_c8_4d
1255 module procedure mpp_chksum_c8_5d
1258 module procedure mpp_chksum_c4_0d
1259 module procedure mpp_chksum_c4_1d
1260 module procedure mpp_chksum_c4_2d
1261 module procedure mpp_chksum_c4_3d
1262 module procedure mpp_chksum_c4_4d
1263 module procedure mpp_chksum_c4_5d
1274 integer,
parameter :: PESET_MAX = 10000
1275 integer :: current_peset_max = 32
1278 logical :: module_is_initialized = .false.
1279 logical :: debug = .false.
1280 integer :: npes=1, root_pe=0, pe=0
1281 integer(i8_kind) :: tick, ticks_per_sec, max_ticks, start_tick, end_tick, tick0=0
1282 integer :: mpp_comm_private
1283 logical :: first_call_system_clock_mpi=.true.
1286 logical :: mpp_record_timing_data=.true.
1287 type(
clock),
save :: clocks(max_clocks)
1288 integer :: log_unit, etc_unit
1290 character(len=32),
parameter :: configfile=
'logfile'
1292 integer :: peset_num=0, current_peset_num=0
1295 integer :: clock_num=0, num_clock_ids=0,current_clock=0, previous_clock(max_clocks)=0
1301 integer :: cur_send_request = 0
1302 integer :: cur_recv_request = 0
1303 integer,
allocatable :: request_send(:)
1304 integer,
allocatable :: request_recv(:)
1305 integer,
allocatable :: size_recv(:)
1306 integer,
allocatable :: type_recv(:)
1310 character(len=32) :: etcfile=
'._mpp.nonrootpe.msgs'
1312 character(len=32) :: etcfile=
'/dev/null'
1316 integer ::
in_unit=input_unit, out_unit=output_unit, err_unit=error_unit
1317 integer :: stdout_unit
1321 logical :: warnings_are_fatal = .false.
1322 integer :: error_state=0
1323 integer :: clock_grain=clock_loop-1
1327 integer :: mpp_stack_size=0, mpp_stack_hwm=0
1328 logical :: verbose=.false.
1333 integer,
parameter :: mpp_init_test_full_init = -1
1334 integer,
parameter :: mpp_init_test_init_true_only = 0
1335 integer,
parameter :: mpp_init_test_peset_allocated = 1
1336 integer,
parameter :: mpp_init_test_clocks_init = 2
1337 integer,
parameter :: mpp_init_test_datatype_list_init = 3
1338 integer,
parameter :: mpp_init_test_logfile_init = 4
1339 integer,
parameter :: mpp_init_test_read_namelist = 5
1340 integer,
parameter :: mpp_init_test_etc_unit = 6
1341 integer,
parameter :: mpp_init_test_requests_allocated = 7
1346 #if defined(use_libMPI)
1355 #if defined(use_libMPI)
1365 character(len=:),
dimension(:),
allocatable,
target,
public :: input_nml_file
1366 logical :: read_ascii_file_on = .false.
1370 #include<file_version.h>
1373 integer,
parameter :: max_request_min = 10000
1374 integer :: request_multiply = 20
1376 logical :: etc_unit_is_stderr = .false.
1377 integer :: max_request = 0
1378 logical :: sync_all_clocks = .false.
1379 namelist /mpp_nml/ etc_unit_is_stderr, request_multiply, mpp_record_timing_data, sync_all_clocks
1382 #include <system_clock.fh>
1383 #include <mpp_util.inc>
1384 #include <mpp_comm.inc>
subroutine mpp_sync_self(pelist, check, request, msg_size, msg_type)
This is to check if current PE's outstanding puts are complete but we can't use shmem_fence because w...
integer warn_unit
unit number of the warning log
subroutine mpp_error_basic(errortype, errormsg)
A very basic error handler uses ABORT and FLUSH calls, may need to use cpp to rename.
integer function stdout()
This function returns the current standard fortran unit numbers for output.
subroutine read_ascii_file(FILENAME, LENGTH, Content, PELIST)
Reads any ascii file into a character array and broadcasts it to the non-root mpi-tasks....
subroutine mpp_error_mesg(routine, errormsg, errortype)
overloads to mpp_error_basic, support for error_mesg routine in FMS
subroutine mpp_set_current_pelist(pelist, no_sync)
Set context pelist.
integer, parameter, public mpp_comm_null
MPP_COMM_NULL acts as an analagous mpp-macro for MPI_COMM_NULL to share with fms2_io NetCDF4 mpi-io....
subroutine mpp_init(flags, localcomm, test_level, alt_input_nml_path)
Initialize the mpp_mod module. Must be called before any usage.
integer get_len_nocomm
needed for mpp_transmit_nocomm.h
integer function stderr()
This function returns the current standard fortran unit numbers for error messages.
subroutine read_input_nml(pelist_name_in, alt_input_nml_path)
Reads an existing input nml file into a character array and broadcasts it to the non-root mpi-tasks....
character(len=32), parameter warnfile
base name for warninglog (appends ".<PE>.out")
type(communicator), dimension(:), allocatable peset
Will be allocated starting from 0, 0 is a dummy used to hold single-PE "self" communicator.
subroutine mpp_type_free(dtype)
Deallocates memory for mpp_type objects @TODO This should probably not take a pointer,...
integer, parameter, public mpp_info_null
MPP_INFO_NULL acts as an analagous mpp-macro for MPI_INFO_NULL to share with fms2_io NetCDF4 mpi-io....
integer clock0
measures total runtime from mpp_init to mpp_exit
subroutine mpp_clock_set_grain(grain)
Set the level of granularity of timing measurements.
real(r8_kind) mpi_tick_rate
clock rate for mpi_wtick()
subroutine mpp_declare_pelist(pelist, name, commID)
Declare a pelist.
integer world_peset_num
the world communicator
subroutine mpp_exit()
Finalizes process termination. To be called at the end of a run. Certain mpi implementations(openmpi)...
integer function stdlog()
This function returns the current standard fortran unit numbers for log messages. Log messages,...
integer in_unit
Use the intrinsics in iso_fortran_env.
integer function mpp_npes()
Returns processor count for current pelist.
subroutine mpp_set_stack_size(n)
Set the mpp_stack variable to be at least n LONG words long.
integer function, dimension(2) get_ascii_file_num_lines_and_length(FILENAME, PELIST)
Function to determine the maximum line length and number of lines from an ascii file.
real(r8_kind) mpi_count0
use to prevent integer overflow
integer function mpp_pe()
Returns processor ID.
subroutine mpp_sync(pelist, do_self)
Synchronize PEs in list.
integer function mpp_clock_id(name, flags, grain)
Return an ID for a new or existing clock.
integer function warnlog()
This function returns unit number for the warning log if on the root pe, otherwise returns the etc_un...
subroutine mpp_broadcast_char(char_data, length, from_pe, pelist)
Broadcasts a character string from the given pe to it's pelist.
integer function stdin()
This function returns the current standard fortran unit numbers for input.
Takes a given integer or real array and returns it as a string.
Scatter a vector across all PEs.
Perform parallel broadcasts.
Calculate parallel checksums.
Gather data sent from pelist onto the root pe Wrapper for MPI_gather, can be used with and without in...
Reduction operations. Find the max of scalar a from the PEs in pelist result is also automatically br...
Reduction operations. Find the min of scalar a from the PEs in pelist result is also automatically br...
Receive data from another PE.
Scatter (ie - is) * (je - js) contiguous elements of array data from the designated root pe into cont...
Send data to a receiving PE.
Calculates sum of a given numerical array across pe's for adjoint domains.
Basic message-passing call.
Create a mpp_type variable.
a clock contains an array of event profiles for a region
Summary of information from a clock run.
Communication information for message passing libraries.
Communication event profile.
Data types for generalized data transfer (e.g. MPI_Type)
Persisent elements for linked list interaction.
holds name and clock data for use in mpp_util.h