kill dead code
This commit is contained in:
James E McClure
parent
d9c0da8ddb
commit
4888c44889
@ -896,123 +896,6 @@ int ScaLBL_Communicator::MemoryOptimizedLayoutAA(IntArray &Map, int *neighborLis
|
||||
return(Np);
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
void ScaLBL_Communicator::SendD3Q19(double *f_even, double *f_odd){
|
||||
|
||||
if (Lock==true){
|
||||
ERROR("ScaLBL Error (SendD3Q19): ScaLBL_Communicator is locked -- did you forget to match Send/Recv calls?");
|
||||
}
|
||||
else{
|
||||
Lock=true;
|
||||
}
|
||||
// assign tag of 19 to D3Q19 communication
|
||||
sendtag = recvtag = 19;
|
||||
ScaLBL_DeviceBarrier();
|
||||
// Pack the distributions
|
||||
ScaLBL_D3Q19_Pack(1,dvcSendList_X,0,sendCount_X,sendbuf_X,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(4,dvcSendList_X,sendCount_X,sendCount_X,sendbuf_X,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(5,dvcSendList_X,2*sendCount_X,sendCount_X,sendbuf_X,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(6,dvcSendList_X,3*sendCount_X,sendCount_X,sendbuf_X,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(7,dvcSendList_X,4*sendCount_X,sendCount_X,sendbuf_X,f_odd,N);
|
||||
//...Packing for X face(1,7,9,11,13)................................
|
||||
ScaLBL_D3Q19_Pack(0,dvcSendList_x,0,sendCount_x,sendbuf_x,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(3,dvcSendList_x,sendCount_x,sendCount_x,sendbuf_x,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(4,dvcSendList_x,2*sendCount_x,sendCount_x,sendbuf_x,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(5,dvcSendList_x,3*sendCount_x,sendCount_x,sendbuf_x,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(6,dvcSendList_x,4*sendCount_x,sendCount_x,sendbuf_x,f_even,N);
|
||||
//...Packing for y face(4,8,9,16,18).................................
|
||||
ScaLBL_D3Q19_Pack(2,dvcSendList_Y,0,sendCount_Y,sendbuf_Y,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(4,dvcSendList_Y,sendCount_Y,sendCount_Y,sendbuf_Y,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(4,dvcSendList_Y,2*sendCount_Y,sendCount_Y,sendbuf_Y,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(8,dvcSendList_Y,3*sendCount_Y,sendCount_Y,sendbuf_Y,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(9,dvcSendList_Y,4*sendCount_Y,sendCount_Y,sendbuf_Y,f_even,N);
|
||||
//...Packing for Y face(3,7,10,15,17).................................
|
||||
ScaLBL_D3Q19_Pack(1,dvcSendList_y,0,sendCount_y,sendbuf_y,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(3,dvcSendList_y,sendCount_y,sendCount_y,sendbuf_y,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(5,dvcSendList_y,2*sendCount_y,sendCount_y,sendbuf_y,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(7,dvcSendList_y,3*sendCount_y,sendCount_y,sendbuf_y,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(8,dvcSendList_y,4*sendCount_y,sendCount_y,sendbuf_y,f_odd,N);
|
||||
//...Packing for z face(6,12,13,16,17)................................
|
||||
ScaLBL_D3Q19_Pack(3,dvcSendList_Z,0,sendCount_Z,sendbuf_Z,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(6,dvcSendList_Z,sendCount_Z,sendCount_Z,sendbuf_Z,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(6,dvcSendList_Z,2*sendCount_Z,sendCount_Z,sendbuf_Z,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(8,dvcSendList_Z,3*sendCount_Z,sendCount_Z,sendbuf_Z,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(8,dvcSendList_Z,4*sendCount_Z,sendCount_Z,sendbuf_Z,f_odd,N);
|
||||
//...Packing for Z face(5,11,14,15,18)................................
|
||||
ScaLBL_D3Q19_Pack(2,dvcSendList_z,0,sendCount_z,sendbuf_z,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(5,dvcSendList_z,sendCount_z,sendCount_z,sendbuf_z,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(7,dvcSendList_z,2*sendCount_z,sendCount_z,sendbuf_z,f_even,N);
|
||||
ScaLBL_D3Q19_Pack(7,dvcSendList_z,3*sendCount_z,sendCount_z,sendbuf_z,f_odd,N);
|
||||
ScaLBL_D3Q19_Pack(9,dvcSendList_z,4*sendCount_z,sendCount_z,sendbuf_z,f_even,N);
|
||||
//...Pack the xy edge (8)................................
|
||||
ScaLBL_D3Q19_Pack(4,dvcSendList_XY,0,sendCount_XY,sendbuf_XY,f_even,N);
|
||||
//...Pack the Xy edge (9)................................
|
||||
ScaLBL_D3Q19_Pack(4,dvcSendList_xY,0,sendCount_xY,sendbuf_xY,f_odd,N);
|
||||
//...Pack the xY edge (10)................................
|
||||
ScaLBL_D3Q19_Pack(5,dvcSendList_Xy,0,sendCount_Xy,sendbuf_Xy,f_even,N);
|
||||
//...Pack the XY edge (7)................................
|
||||
ScaLBL_D3Q19_Pack(3,dvcSendList_xy,0,sendCount_xy,sendbuf_xy,f_odd,N);
|
||||
//...Pack the xz edge (12)................................
|
||||
ScaLBL_D3Q19_Pack(6,dvcSendList_XZ,0,sendCount_XZ,sendbuf_XZ,f_even,N);
|
||||
//...Pack the xZ edge (14)................................
|
||||
ScaLBL_D3Q19_Pack(7,dvcSendList_Xz,0,sendCount_Xz,sendbuf_Xz,f_even,N);
|
||||
//...Pack the Xz edge (13)................................
|
||||
ScaLBL_D3Q19_Pack(6,dvcSendList_xZ,0,sendCount_xZ,sendbuf_xZ,f_odd,N);
|
||||
//...Pack the XZ edge (11)................................
|
||||
ScaLBL_D3Q19_Pack(5,dvcSendList_xz,0,sendCount_xz,sendbuf_xz,f_odd,N);
|
||||
//...Pack the xz edge (12)................................
|
||||
//...Pack the yz edge (16)................................
|
||||
ScaLBL_D3Q19_Pack(8,dvcSendList_YZ,0,sendCount_YZ,sendbuf_YZ,f_even,N);
|
||||
//...Pack the yZ edge (18)................................
|
||||
ScaLBL_D3Q19_Pack(9,dvcSendList_Yz,0,sendCount_Yz,sendbuf_Yz,f_even,N);
|
||||
//...Pack the Yz edge (17)................................
|
||||
ScaLBL_D3Q19_Pack(8,dvcSendList_yZ,0,sendCount_yZ,sendbuf_yZ,f_odd,N);
|
||||
//...Pack the YZ edge (15)................................
|
||||
ScaLBL_D3Q19_Pack(7,dvcSendList_yz,0,sendCount_yz,sendbuf_yz,f_odd,N);
|
||||
//...................................................................................
|
||||
|
||||
//...................................................................................
|
||||
// Send all the distributions
|
||||
MPI_Isend(sendbuf_x, 5*sendCount_x,MPI_DOUBLE,rank_x,sendtag,MPI_COMM_SCALBL,&req1[0]);
|
||||
MPI_Irecv(recvbuf_X, 5*recvCount_X,MPI_DOUBLE,rank_X,recvtag,MPI_COMM_SCALBL,&req2[0]);
|
||||
MPI_Isend(sendbuf_X, 5*sendCount_X,MPI_DOUBLE,rank_X,sendtag,MPI_COMM_SCALBL,&req1[1]);
|
||||
MPI_Irecv(recvbuf_x, 5*recvCount_x,MPI_DOUBLE,rank_x,recvtag,MPI_COMM_SCALBL,&req2[1]);
|
||||
MPI_Isend(sendbuf_y, 5*sendCount_y,MPI_DOUBLE,rank_y,sendtag,MPI_COMM_SCALBL,&req1[2]);
|
||||
MPI_Irecv(recvbuf_Y, 5*recvCount_Y,MPI_DOUBLE,rank_Y,recvtag,MPI_COMM_SCALBL,&req2[2]);
|
||||
MPI_Isend(sendbuf_Y, 5*sendCount_Y,MPI_DOUBLE,rank_Y,sendtag,MPI_COMM_SCALBL,&req1[3]);
|
||||
MPI_Irecv(recvbuf_y, 5*recvCount_y,MPI_DOUBLE,rank_y,recvtag,MPI_COMM_SCALBL,&req2[3]);
|
||||
MPI_Isend(sendbuf_z, 5*sendCount_z,MPI_DOUBLE,rank_z,sendtag,MPI_COMM_SCALBL,&req1[4]);
|
||||
MPI_Irecv(recvbuf_Z, 5*recvCount_Z,MPI_DOUBLE,rank_Z,recvtag,MPI_COMM_SCALBL,&req2[4]);
|
||||
MPI_Isend(sendbuf_Z, 5*sendCount_Z,MPI_DOUBLE,rank_Z,sendtag,MPI_COMM_SCALBL,&req1[5]);
|
||||
MPI_Irecv(recvbuf_z, 5*recvCount_z,MPI_DOUBLE,rank_z,recvtag,MPI_COMM_SCALBL,&req2[5]);
|
||||
MPI_Isend(sendbuf_xy, sendCount_xy,MPI_DOUBLE,rank_xy,sendtag,MPI_COMM_SCALBL,&req1[6]);
|
||||
MPI_Irecv(recvbuf_XY, recvCount_XY,MPI_DOUBLE,rank_XY,recvtag,MPI_COMM_SCALBL,&req2[6]);
|
||||
MPI_Isend(sendbuf_XY, sendCount_XY,MPI_DOUBLE,rank_XY,sendtag,MPI_COMM_SCALBL,&req1[7]);
|
||||
MPI_Irecv(recvbuf_xy, recvCount_xy,MPI_DOUBLE,rank_xy,recvtag,MPI_COMM_SCALBL,&req2[7]);
|
||||
MPI_Isend(sendbuf_Xy, sendCount_Xy,MPI_DOUBLE,rank_Xy,sendtag,MPI_COMM_SCALBL,&req1[8]);
|
||||
MPI_Irecv(recvbuf_xY, recvCount_xY,MPI_DOUBLE,rank_xY,recvtag,MPI_COMM_SCALBL,&req2[8]);
|
||||
MPI_Isend(sendbuf_xY, sendCount_xY,MPI_DOUBLE,rank_xY,sendtag,MPI_COMM_SCALBL,&req1[9]);
|
||||
MPI_Irecv(recvbuf_Xy, recvCount_Xy,MPI_DOUBLE,rank_Xy,recvtag,MPI_COMM_SCALBL,&req2[9]);
|
||||
MPI_Isend(sendbuf_xz, sendCount_xz,MPI_DOUBLE,rank_xz,sendtag,MPI_COMM_SCALBL,&req1[10]);
|
||||
MPI_Irecv(recvbuf_XZ, recvCount_XZ,MPI_DOUBLE,rank_XZ,recvtag,MPI_COMM_SCALBL,&req2[10]);
|
||||
MPI_Isend(sendbuf_XZ, sendCount_XZ,MPI_DOUBLE,rank_XZ,sendtag,MPI_COMM_SCALBL,&req1[11]);
|
||||
MPI_Irecv(recvbuf_xz, recvCount_xz,MPI_DOUBLE,rank_xz,recvtag,MPI_COMM_SCALBL,&req2[11]);
|
||||
MPI_Isend(sendbuf_Xz, sendCount_Xz,MPI_DOUBLE,rank_Xz,sendtag,MPI_COMM_SCALBL,&req1[12]);
|
||||
MPI_Irecv(recvbuf_xZ, recvCount_xZ,MPI_DOUBLE,rank_xZ,recvtag,MPI_COMM_SCALBL,&req2[12]);
|
||||
MPI_Isend(sendbuf_xZ, sendCount_xZ,MPI_DOUBLE,rank_xZ,sendtag,MPI_COMM_SCALBL,&req1[13]);
|
||||
MPI_Irecv(recvbuf_Xz, recvCount_Xz,MPI_DOUBLE,rank_Xz,recvtag,MPI_COMM_SCALBL,&req2[13]);
|
||||
MPI_Isend(sendbuf_yz, sendCount_yz,MPI_DOUBLE,rank_yz,sendtag,MPI_COMM_SCALBL,&req1[14]);
|
||||
MPI_Irecv(recvbuf_YZ, recvCount_YZ,MPI_DOUBLE,rank_YZ,recvtag,MPI_COMM_SCALBL,&req2[14]);
|
||||
MPI_Isend(sendbuf_YZ, sendCount_YZ,MPI_DOUBLE,rank_YZ,sendtag,MPI_COMM_SCALBL,&req1[15]);
|
||||
MPI_Irecv(recvbuf_yz, recvCount_yz,MPI_DOUBLE,rank_yz,recvtag,MPI_COMM_SCALBL,&req2[15]);
|
||||
MPI_Isend(sendbuf_Yz, sendCount_Yz,MPI_DOUBLE,rank_Yz,sendtag,MPI_COMM_SCALBL,&req1[16]);
|
||||
MPI_Irecv(recvbuf_yZ, recvCount_yZ,MPI_DOUBLE,rank_yZ,recvtag,MPI_COMM_SCALBL,&req2[16]);
|
||||
MPI_Isend(sendbuf_yZ, sendCount_yZ,MPI_DOUBLE,rank_yZ,sendtag,MPI_COMM_SCALBL,&req1[17]);
|
||||
MPI_Irecv(recvbuf_Yz, recvCount_Yz,MPI_DOUBLE,rank_Yz,recvtag,MPI_COMM_SCALBL,&req2[17]);
|
||||
}
|
||||
|
||||
void ScaLBL_Communicator::SendD3Q19AA(double *dist){
|
||||
|
||||
// NOTE: the center distribution f0 must NOT be at the start of feven, provide offset to start of f2
|
||||
|
||||
Loading…
Reference in New Issue
Block a user