dump normal information
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_BC_prop_type), | intent(in) | :: | me |
Boundary condition construct to load the data into |
||
integer(kind=long_k), | intent(in) | :: | offset |
Offset of the local set of elements in the global list |
||
integer, | intent(in) | :: | nElems |
Local number of elements with this property |
||
character(len=*), | intent(in) | :: | basename |
Name of the file, the data is stored in, will be appended with ".lua" for the header information and ".lsb" or ".msb" for the binary data. |
||
integer, | intent(in) | :: | myPart |
Partition to dump |
||
integer, | intent(in) | :: | comm |
Communicator to use |
subroutine dump_tem_BC_normal( me, offset, nElems, basename, myPart, comm )
! ---------------------------------------------------------------------------
!> Boundary condition construct to load the data into
type(tem_BC_prop_type), intent(in) :: me
!> Offset of the local set of elements in the global list
integer(kind=long_k), intent(in) :: offset
!> Local number of elements with this property
integer, intent(in) :: nElems
!> Name of the file, the data is stored in, will be appended with
!! ".lua" for the header information and ".lsb" or ".msb" for the
!! binary data.
character(len=*), intent(in) :: basename
!> Partition to dump
integer, intent(in) :: myPart
!> Communicator to use
integer, intent(in) :: comm
! ---------------------------------------------------------------------------
integer, parameter :: root = 0
character(len=256) :: headerfile
! ---------------------------------------------------------------------------
headerfile = trim(basename)//'.lua'
if (myPart == root) then
! Only root partition needs to write the header
!open up the mesh header lua file to dump the stuff using aotus library
call dump_tem_BC_NormalHeader( me, headerfile )
end if
call dump_tem_BC_realArray( offset = offset, &
& arraylen = 3, &
& nElems = nElems, &
& propdat = me%normal, &
& basename = basename, &
& comm = comm )
end subroutine dump_tem_BC_normal