99 RETURN
END
C RHARD Hard surface resistance for snow 19 Jun 92
C***************************************
C
*
C R H AR D *
C
*
C************
REAL FUNCTION RHARD(I)
C
C This routine computes the motion resistance for the hard surfaces
C to be added to the resistance computed for snow.
C
C 19 Jun 92 Origional edit (taken from part of origional NRMM snow model)
C
C Inputs:
C I
Suspension assembly index
C Common /PREP/
C CPFFG(NAMBLY) F-G contact pressure factor for each element
C Common /TPREP/
C ITUT
Terrain type code:
C
1 = off-road (areal)terrain
C
2 = water-covered terrain
C
11 = on-road super-highway
C
12 = on-road primary road
C
13 = on-road secondary road
C
14 = on-road trail
C Common /VEHICL/
C NVEH(NAMBLY) Vehicle traction assembly type: 0=tracked, 1=wheeled
C
C Outputs:
C RHARD Hard surface resistance coefficient
C
IMPLICIT NONE
INCLUDE `nrmmdefs.inc'
INCLUDE `nrmmcntc.inc'
INCLUDE `nrmmvehc.inc'
INCLUDE `nrmmvppc.inc'
INCLUDE `nrmmtppc.inc'
C
INTEGER I
C
IF( NVEH(I) .EQ. WHEEL )THEN
C
Hard surface resistance coefficients (wheeled)
IF( ITUT.EQ.1 .OR. ITUT.EQ.14 )THEN
C
Off-road and trails (no ice)
IF( CPFFG(I).GE.4.0 )THEN
RHARD = 0.0175
ELSE
RHARD = 0.015
END IF
ELSE IF (ITUT.EQ.11 .OR. ITUT.EQ.12 )THEN
C
Super-highways & primry roads or ice
RHARD = 0.015
47
Previous Page
