SOILZ = 0.0
END IF
C
SUMZ = ZMAX + SOILZ
IF(KIV(3).GT.YES)WRITE(LUN1,602)SOILZ
602 FORMAT(` Sinkage in soil
SOILZ =',F8.4)
C
C
Since NRMM does not have the approach angle of a track available
C
in the input data, is assumed to be about 26 deg. for
C
all tracked vehicles.
AA = 26.0 * DEGRAD
XL2 = ( SUMZ) / SIN( AA )
C
C
Belly drag , low (flag=2.0) or high (flag=4.0) density
C
IF( SUMZ .GE. CL ) THEN
IF( SIGMA0 .LT. 0.15) THEN
FLAG = 2.5
ELSE
FLAG = 4.0
END IF
END IF
END IF
C
C
Warning for deep snow
CALL ERROR( `CRLSNO(IV3)',
& `***Warning*** Vehicle belly dragging in deep snow')
C
C ..... Calculate terrain resistance for up to 4 units for wheeled vehicles
C
IF (NVEH(I).EQ. WHEEL) THEN
IF (I.LE.4) THEN
RRES1 = ( ( 68.1 * ( 0.10* SIGMA0 * (XL2/XCM2IN) *
&
(XWID1/XCM2IN) )**0.914) * FLAG ) * XN2LB
ELSE
RRES1 = 0.0
END IF
END IF
C
C
1-unit limit for tracks
C
IF (NVEH(I).EQ. TRACK) THEN
IF (I.LT.2) THEN
RRES1 = ( ( 157.54 * ( 0.10* SIGMA0 * (XL2/XCM2IN) *
&
(XWID1/XCM2IN) )**0.833) * FLAG ) * XN2LB
ELSE
RRES1 = 0.0
END IF
END IF
C
C
IF (SIGMA0 .GE. 0.55) RRES1 = 0.0
C
Terrain resistance on ice is zero
45