| Revisión | 56c1621e65c576039e13943f5582b4aef533b0cc (tree) |
|---|---|
| Tiempo | 2014-08-07 20:55:30 |
| Autor | Jens Zudrop <j.zudrop@grs-...> |
| Commiter | Jens Zudrop |
Removed additional flux buffers in face description.
source/tem_face_module.f90 (diff)| @@ -888,18 +888,6 @@ | ||
| 888 | 888 | !! corresponds to left or right face, have a look at this |
| 889 | 889 | !! \ref tem_face_module::tem_dirtoface_map mapping. |
| 890 | 890 | type(tem_communication_type) :: sendBuffer_state(2) |
| 891 | - !> Buffer for flux data which will be received before each compute step | |
| 892 | - !! One buffer for the left faces of each cell and another one | |
| 893 | - !! for the right faces of the cells. To determine which direction | |
| 894 | - !! corresponds to left or right face, have a look at this | |
| 895 | - !! \ref tem_face_module::tem_dirtoface_map mapping. | |
| 896 | - type(tem_communication_type) :: recvBuffer_flux(2) | |
| 897 | - !> Buffer for flux data which will be send before each compute step. | |
| 898 | - !! One buffer for the left faces of each cell and another one | |
| 899 | - !! for the right faces of the cells. To determine which direction | |
| 900 | - !! corresponds to left or right face, have a look at this | |
| 901 | - !! \ref tem_face_module::tem_dirtoface_map mapping. | |
| 902 | - type(tem_communication_type) :: sendBuffer_flux(2) | |
| 903 | 891 | end type tem_face_descriptor_type |
| 904 | 892 | |
| 905 | 893 | !> datatype for all faces in the mesh per level. |
| @@ -1036,12 +1024,6 @@ | ||
| 1036 | 1024 | & commPattern = commPattern, & |
| 1037 | 1025 | & levelDesc = levelDesc(iDir, iLevel), & |
| 1038 | 1026 | & buf = faces(iLevel)%faces(iDir)%recvBuffer_state ) |
| 1039 | - ! buffer for the flux | |
| 1040 | - call tem_build_faceRecvBuffers( & | |
| 1041 | - & faces = faces(iLevel)%faces(iDir), & | |
| 1042 | - & commPattern = commPattern, & | |
| 1043 | - & levelDesc = levelDesc(iDir, iLevel), & | |
| 1044 | - & buf = faces(iLevel)%faces(iDir)%recvBuffer_flux ) | |
| 1045 | 1027 | end do |
| 1046 | 1028 | end do |
| 1047 | 1029 |
| @@ -1055,12 +1037,6 @@ | ||
| 1055 | 1037 | & commPattern = commPattern , & |
| 1056 | 1038 | & levelDesc = levelDesc(iDir, iLevel), & |
| 1057 | 1039 | & buf = faces(iLevel)%faces(iDir)%sendBuffer_state ) |
| 1058 | - ! buffer for the flux | |
| 1059 | - call tem_build_faceSendBuffers( & | |
| 1060 | - & faces = faces(iLevel)%faces(iDir), & | |
| 1061 | - & commPattern = commPattern , & | |
| 1062 | - & levelDesc = levelDesc(iDir, iLevel), & | |
| 1063 | - & buf = faces(iLevel)%faces(iDir)%sendBuffer_flux ) | |
| 1064 | 1040 | end do |
| 1065 | 1041 | end do |
| 1066 | 1042 |
Fork