tem_init_bc_header Subroutine

private subroutine tem_init_bc_header(me, nBCs)

This routine does the allocation job

Arguments

Type IntentOptional Attributes Name
type(tem_bc_header_type), intent(out) :: me

The boundary header
integer, intent(in) :: nBCs

Called by

proc~~tem_init_bc_header~~CalledByGraph proc~tem_init_bc_header tem_init_bc_header proc~tem_load_bc_header tem_load_bc_header proc~tem_load_bc_header->proc~tem_init_bc_header

Source Code

  subroutine tem_init_bc_header( me, nBCs )
    ! ---------------------------------------------------------------------------
    !> The boundary header
    type(tem_bc_header_type), intent(out) :: me
    integer, intent(in) :: nBCs
    ! ---------------------------------------------------------------------------

    me%nBCs = nBCs
    allocate(me%Label(me%nBCs))
    allocate(me%BC_kind(me%nBCs))
    allocate(me%BC_ID(me%nBCs))

    ! Set initial values for BC_ID
    me%BC_ID = -1

  end subroutine tem_init_bc_header