UFLUIDCONNECTORLOSS

User Subroutine Interface

      subroutine ufluidconnectorloss (
C Write only - 
     *   ak1, ak2,
C Read only - 
     *   coords, flow, rho, visc, 
     *   dia, area, 
     *   ndim, jelno, kStep, kInc, 
     *   time,
     *   nIarray,
     *   i_array,
     *   nRarray,
     *   r_array,
     *   ncarray,
     *   c_array)
C
      include 'aba_param.inc'
C
      dimension time(2), 
     *   coords(2*ndim),
     *   i_array(nIarray),
     *   r_array(nRarray)
C
      character*80 c_array(ncarray)
C
      user coding to define connector friction values 
      return
      end

Variables to Be Defined

ak1: This connector loss coefficient must be updated and is used when the flow is from node 1 to node 2.
ak2: This connector loss coefficient must be updated and is used when the flow is from node 2 to node 1.

Variables Passed in for Information

coords(2*ndim): Array containing original coordinates of the element. coords(1:ndim) is the coordinate of the first node, and coords(ndim+1:2*ndim) is the coordinate of the second node.
flow: Current flow rate through the element.
rho: Current density of fluid flowing through the pipe.
visc: Current viscosity of fluid flowing through the pipe.
dia: User-specified hydraulic diameter.
area: User-specified hydraulic area.
ndim: Dimension of the element.
jelno: User element number for which friction coefficient is required.
kStep: Step number.
kInc: Increment number.
time(1): Current step time.
time(2): Total time.
nIarray: Size of array i_array.
i_array: Integer array for future expansion.
nRarray: Size of array r_array.
r_array: Real array for future expansion.
ncarray: Size of array c_array.
c_array: Character array for future expansion.