Calculating skin friction coefficients on the 2d wall-mounte
Posted: Fri Dec 17, 2010 2:22 pm
Hi,
I'm trying to calculate the skin friction coefficient for the 2d wall mounted hump which i'm running in 3D for a DDES simulation.
I've run into a few problems calculating the du/dy term. This is how i'm trying to calculate it. This is a section from my usproj.F file.
Any help would be most appreciated.
IMOM = 1
IPCMOM = IPPROC(ICMOME(IMOM))
IDTCM = − IDTMOM(IMOM)
UAVG = PROPCE(IEL,IPCMOM) /
MAX (DTCMOM(IDTCM),EPZERO)
IMOM = 2
IPCMOM = IPPROC(ICMOME(IMOM))
IDTCM = − IDTMOM(IMOM
VAVG = PROPCE(IEL,IPCMOM) /
MAX (DTCMOM(IDTCM),EPZERO)
IMOM = 3
IPCMOM = IPPROC(ICMOME(IMOM))
IDTCM = − IDTMOM(IMOM)
WAVG = PROPCE(IEL,IPCMOM) /
MAX (DTCMOM(IDTCM),EPZERO)
DISTBF = RA(IDISTB-1+IFAC)
SRFBNF = RA(ISRFBN-1+IFAC)
UNORM = ( UAVG * SURFBO( 1 ,IFAC)/SRFBNF) +( VAVG * SURFBO( 2 ,IFAC)/SRFBNF) +( WAVG * SURFBO( 3 ,IFAC)/SRFBNF)
UTAN = SQRT ( SQRT (UAVG ** 2 + VAVG ** 2 + WAVG ** 2 ) − UNORM)
CF = (VISCLO(1)*UTAN/DISTBF)/(0.5D0*UREF(1)**2)
I seem to get a value around 10 times higher than i should do. I'm not sure if I'm using the correct method.
Thanks very much
Neil
I'm trying to calculate the skin friction coefficient for the 2d wall mounted hump which i'm running in 3D for a DDES simulation.
I've run into a few problems calculating the du/dy term. This is how i'm trying to calculate it. This is a section from my usproj.F file.
Any help would be most appreciated.
IMOM = 1
IPCMOM = IPPROC(ICMOME(IMOM))
IDTCM = − IDTMOM(IMOM)
UAVG = PROPCE(IEL,IPCMOM) /
MAX (DTCMOM(IDTCM),EPZERO)
IMOM = 2
IPCMOM = IPPROC(ICMOME(IMOM))
IDTCM = − IDTMOM(IMOM
VAVG = PROPCE(IEL,IPCMOM) /
MAX (DTCMOM(IDTCM),EPZERO)
IMOM = 3
IPCMOM = IPPROC(ICMOME(IMOM))
IDTCM = − IDTMOM(IMOM)
WAVG = PROPCE(IEL,IPCMOM) /
MAX (DTCMOM(IDTCM),EPZERO)
DISTBF = RA(IDISTB-1+IFAC)
SRFBNF = RA(ISRFBN-1+IFAC)
UNORM = ( UAVG * SURFBO( 1 ,IFAC)/SRFBNF) +( VAVG * SURFBO( 2 ,IFAC)/SRFBNF) +( WAVG * SURFBO( 3 ,IFAC)/SRFBNF)
UTAN = SQRT ( SQRT (UAVG ** 2 + VAVG ** 2 + WAVG ** 2 ) − UNORM)
CF = (VISCLO(1)*UTAN/DISTBF)/(0.5D0*UREF(1)**2)
I seem to get a value around 10 times higher than i should do. I'm not sure if I'm using the correct method.
Thanks very much
Neil