C
C
C
(based on first assembly characteristics)
C
IF( NVEH(1) .EQ. WHEEL )THEN
RADSI = DIAW(1)/2.0
XWID1 = SECTW(1)
DEFSEC = (1.0-(DFLCT(1,NJPSI)/SECTW(1)))
ELSE
XWID1 = TRAKWD(1)
END IF
C
Weight on a single traction element
WGHT1 = WGHT(1) / XNWORT
PRES1 = WGHT1/AREA1
C
C
Account for weak soil base
C
number of passes and slip assumed constant for following eqns.
C
Number of vehicle passes made
PN = 1.0
C
Wheel slip
SLIP = 0.05
C
IF( NVEH(I) .EQ. WHEEL ) THEN
C
IF (IBASE .EQ. 3) THEN
C
Unfrozen soil
SOILZ = (10.* RADSI*pn**0.5)/((CIRCI*XWID1*RADSI*2.0)/
&
(WGHT1 * DEFSEC**(3./2.) *
&
SLIP**(1./5.)))**(5.0/3.0)
C
IF (SOILZ .LT. 0.0) SOILZ = 0.0
ELSE
SOILZ = 0.0
END IF
C
SUMZ = ZMAX + SOILZ
XL2 = RADSI * ACOS((RADSI-SUMZ)/RADSI)
C
C
Account for tire curvature/deep snow flag
IF( (SIGMA0.LT.0.15) .AND. (SUMZ.GE.RADSI) ) FLAG=1.5
IF( SIGMA0 .GE. 0.15 ) THEN
IF( SUMZ .GE. (RADSI*2.0/3.0) ) FLAG = 1.5
IF( SUMZ .GE. RADSI ) FLAG = 2.5
END IF
C
Belly Drag
IF( SUMZ .GE. CL) FLAG = FLAG + 1.5
ELSE
C
C
Tracked
C
IF (IBASE .EQ. 3) THEN
SOILZ = TRAKLN(1) * pn**0.5 * 0.00443 *
&
EXP((5.889 * WGHT1) / (CIRCI * XWID1 * TRAKLN(1)))
ELSE
44