|
logical,
|
public |
|
:: |
bcphys |
= |
.true. |
|
|
integer,
|
public |
|
:: |
ibuf_recv_p |
|
|
|
|
integer,
|
public |
|
:: |
ibuf_recv_r |
|
|
|
|
integer,
|
public |
|
:: |
ibuf_recv_srl |
|
|
|
|
integer,
|
public |
|
:: |
ibuf_send_p |
|
|
|
|
integer,
|
public |
|
:: |
ibuf_send_r |
|
|
|
|
integer,
|
public |
|
:: |
ibuf_send_srl |
|
|
|
|
integer,
|
public |
|
:: |
irecv_p |
|
|
|
|
integer,
|
public |
|
:: |
irecv_r |
|
|
|
|
integer,
|
public |
|
:: |
irecv_srl |
|
|
|
|
integer,
|
public |
|
:: |
isend_p |
|
|
|
|
integer,
|
public |
|
:: |
isend_r |
|
|
|
|
integer,
|
public |
|
:: |
isend_srl |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGmax1 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGmax2 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGmax3 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGmin1 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGmin2 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGmin3 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGsmax1 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGsmax2 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGsmax3 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGsmin1 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGsmin2 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoGsmin3 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoMmax1 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoMmax2 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoMmax3 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoMmin1 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoMmin2 |
|
|
|
|
integer,
|
public |
|
:: |
ixCoMmin3 |
|
|
|
|
integer,
|
public |
|
:: |
ixMmax1 |
|
|
|
|
integer,
|
public |
|
:: |
ixMmax2 |
|
|
|
|
integer,
|
public |
|
:: |
ixMmax3 |
|
|
|
|
integer,
|
public |
|
:: |
ixMmin1 |
|
|
|
|
integer,
|
public |
|
:: |
ixMmin2 |
|
|
|
|
integer,
|
public |
|
:: |
ixMmin3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_p_max1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_p_max2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_p_max3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_p_min1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_p_min2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_p_min3 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_p_stg_max1 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_p_stg_max2 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_p_stg_max3 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_p_stg_min1 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_p_stg_min2 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_p_stg_min3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_r_max1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_r_max2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_r_max3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_r_min1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_r_min2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixR_r_min3 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_r_stg_max1 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_r_stg_max2 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_r_stg_max3 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_r_stg_min1 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_r_stg_min2 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixR_r_stg_min3 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixR_srl_max1 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixR_srl_max2 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixR_srl_max3 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixR_srl_min1 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixR_srl_min2 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixR_srl_min3 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixR_srl_stg_max1 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixR_srl_stg_max2 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixR_srl_stg_max3 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixR_srl_stg_min1 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixR_srl_stg_min2 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixR_srl_stg_min3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixS_p_max1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixS_p_max2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixS_p_max3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixS_p_min1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixS_p_min2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1, 0:3)
|
:: |
ixS_p_min3 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixS_p_stg_max1 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixS_p_stg_max2 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixS_p_stg_max3 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixS_p_stg_min1 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixS_p_stg_min2 |
|
|
|
|
integer,
|
public, |
dimension(3,0:3)
|
:: |
ixS_p_stg_min3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1)
|
:: |
ixS_r_max1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1)
|
:: |
ixS_r_max2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1)
|
:: |
ixS_r_max3 |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1)
|
:: |
ixS_r_min1 |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1)
|
:: |
ixS_r_min2 |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1)
|
:: |
ixS_r_min3 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_r_stg_max1 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_r_stg_max2 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_r_stg_max3 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_r_stg_min1 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_r_stg_min2 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_r_stg_min3 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixS_srl_max1 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixS_srl_max2 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixS_srl_max3 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixS_srl_min1 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixS_srl_min2 |
|
|
|
|
integer,
|
public, |
dimension(-1:2,-1:1)
|
:: |
ixS_srl_min3 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_srl_stg_max1 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_srl_stg_max2 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_srl_stg_max3 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_srl_stg_min1 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_srl_stg_min2 |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1)
|
:: |
ixS_srl_stg_min3 |
|
|
|
|
integer,
|
public |
|
:: |
nrecv_bc_p |
|
|
|
|
integer,
|
public |
|
:: |
nrecv_bc_r |
|
|
|
|
integer,
|
public |
|
:: |
nrecv_bc_srl |
|
|
|
|
integer,
|
public |
|
:: |
nsend_bc_p |
|
|
|
|
integer,
|
public |
|
:: |
nsend_bc_r |
|
|
|
|
integer,
|
public |
|
:: |
nsend_bc_srl |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recv_c_nb |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recv_f_nb |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recv_srl_nb |
|
|
|
|
double precision,
|
public, |
dimension(:), allocatable
|
:: |
recvbuffer_p |
|
|
|
|
double precision,
|
public, |
dimension(:), allocatable
|
:: |
recvbuffer_r |
|
|
|
|
double precision,
|
public, |
dimension(:), allocatable
|
:: |
recvbuffer_srl |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recvrequest_c_p |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recvrequest_c_sr |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recvrequest_p |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recvrequest_r |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
recvrequest_srl |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_c_nb |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_c_p |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_c_sr |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_f_nb |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_p |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_r |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_srl |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
recvstatus_srl_nb |
|
|
|
|
logical,
|
public |
|
:: |
req_diagonal |
= |
.true. |
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
send_c_nb |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
send_f_nb |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
send_srl_nb |
|
|
|
|
double precision,
|
public, |
dimension(:), allocatable
|
:: |
sendbuffer_p |
|
|
|
|
double precision,
|
public, |
dimension(:), allocatable
|
:: |
sendbuffer_r |
|
|
|
|
double precision,
|
public, |
dimension(:), allocatable
|
:: |
sendbuffer_srl |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
sendrequest_c_p |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
sendrequest_c_sr |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
sendrequest_p |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
sendrequest_r |
|
|
|
|
integer,
|
public, |
dimension(:), allocatable
|
:: |
sendrequest_srl |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_c_nb |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_c_p |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_c_sr |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_f_nb |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_p |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_r |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_srl |
|
|
|
|
integer,
|
public, |
dimension(:,:), allocatable
|
:: |
sendstatus_srl_nb |
|
|
|
|
integer,
|
public, |
dimension(3,0:3,0:3,0:3)
|
:: |
sizes_p_recv_stg |
|
|
|
|
integer,
|
public, |
dimension(0:3,0:3,0:3)
|
:: |
sizes_p_recv_total |
|
|
|
|
integer,
|
public, |
dimension(3,0:3,0:3,0:3)
|
:: |
sizes_p_send_stg |
|
|
|
|
integer,
|
public, |
dimension(0:3,0:3,0:3)
|
:: |
sizes_p_send_total |
|
|
|
|
integer,
|
public, |
dimension(3,0:3,0:3,0:3)
|
:: |
sizes_r_recv_stg |
|
|
|
|
integer,
|
public, |
dimension(0:3,0:3,0:3)
|
:: |
sizes_r_recv_total |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1,-1:1,-1:1)
|
:: |
sizes_r_send_stg |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1,-1:1)
|
:: |
sizes_r_send_total |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1,-1:1)
|
:: |
sizes_srl_recv |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1,-1:1,-1:1)
|
:: |
sizes_srl_recv_stg |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1,-1:1)
|
:: |
sizes_srl_recv_total |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1,-1:1)
|
:: |
sizes_srl_send |
|
|
|
|
integer,
|
public, |
dimension(3,-1:1,-1:1,-1:1)
|
:: |
sizes_srl_send_stg |
|
|
|
|
integer,
|
public, |
dimension(-1:1,-1:1,-1:1)
|
:: |
sizes_srl_send_total |
|
|
|