ELSE
C
Secondary roads & all others
RHARD = 0.025
END IF
ELSE
C
Hard surface resistance coefficients (tracked)
IF( ITUT.EQ.1 .OR. ITUT.EQ.14 )THEN
C
Off-road and trails
RHARD = 0.0525
ELSE IF (ITUT.EQ.11 .OR. ITUT.EQ.12 )THEN
C
Super-highways & primry roads
RHARD = 0.0375
ELSE
C
Secondary roads & all others
RHARD = 0.045
END IF
END IF
C
IF(KIV(3).GT.YES)WRITE(LUN1,601)RHARD
601 FORMAT(` Hard Sfc Resist. Coef. RHARD =',F8.4)
C
RETURN
END
C THAW CRREL Thawing ground traction model 6 Jan 94
C*****************************************
C
*
C T H AW *
C
*
C**********
LOGICAL FUNCTION THAW()
C
C 6 May 94 Implemented in NRMM II
C
C Inputs:
C Common /DERIVE/
C DOWPB(NAMBLY) Drawbar coefficient for each assembly
C LAYER
Soil layer index (Critical layer): 1=0"-6", 2=6"-12"
C RTOWPB(NAMBLY) Motion res. coef., powered or braked, each element
C RTOWT(NAMBLY) Motion res. coef., towed, each element
C Common /TERRAN/
C DTHAW
Ground thawing depth [in]
C DSNOW
Snow depTH [in]
C Common /VEHICL/
C NAMBLY
#traction element assemblies (axles and tracks)
C
C Outputs:
C THAW
Return status .TRUE. = O-K
C Common /DERIVE/
C DOWPB(NAMBLY) Drawbar coefficient for each assembly
C MRMUL(NAMBLY) Winter model soil resistance multiplier, each element
C RTOWPB(NAMBLY) Motion res. coef., powered or braked, each element
C RTOWT(NAMBLY) Motion res. coef., towed, each element
C TFMUL(NAMBLY) Winter model traction multiplier, each element
C TFOW(NAMBLY)
Traction coefficient from soil, each element
48
Previous Page
