C
OL
OH
WATR PVMT ROCK
DATA (SVALID(J),J=16,20)
& /.TRUE. ,.TRUE. ,.TRUE. ,.TRUE. ,.TRUE./
C
GW
GP
GM
GC
Pt
C
THAWCM = DTHAW / XCM2IN
IF( (THAWCM .GT. 2.5) .AND. (THAWCM .LT. 15.0)) THEN
TRMULT = 2.379 * (1.0/(THAWCM*THAWCM)) + 0.619
ELSE IF (THAWCM .GE. 15.0) THEN
TRMULT = 0.63
ELSE
TRMULT = 1.0
END IF
IF( .NOT.SVALID(KUSCS) ) THEN
WRITE(ERRMSG,9901)KUSCS,ZUSCS(KUSCS)(1:LENSTR(ZUSCS(KUSCS)))
9901 FORMAT(`Relations not implemented for `,
&
`soil type KUSCS=',I2,' (`,A,')':
&
` NVEH(I)=',I1,' (`,A,')')
CALL ERROR( `TRMULT', ERRMSG )
END IF
C
RETURN
C
C MRMULT Motion resistance multiplier for thawing soils 23 Jun 92
C******************************************************
C
*
CMRMULT*
C
*
C**************
ENTRY MRMULT(I)
C
C May 92 Model based on US ARMY CRREL research done by Sally Shoop
C
Coded by Jim Slota, OptiMetrics for CRREL. (SSM 6.2)
C 6 May 94 Implemented in NRMM II by R.B.Ahlvin
C
C This function returns a multiplier value to motion resistance
C values. This applies to travel over a thawing soil layer
C overlaying a frozen layer. Calculations are applicable only for
C wheeled vehicles on sandy soils with little or no sno cover,
C and for vehicles with a critical depth of less than 6 inches. The
C wetness index, as calculated by the SMSP model, is also required.
C
C Inputs:
C I
Suspension assembly index
C Common /TERRAN/
C DTHAW
Depth of thawing is soil [in]
C KUSCS
USCS soil type code: 1=SW, 2=SP, 3=SM, 4=SC, 5=SMSC,
C
6=CL, 7=ML, 8=CLML, 9=CH, 10=MH, 11=OL, 12=OH, 13=WATER,
C
14=PAVEMENT, 15=ROCK, 16=GW, 17=GP, 18=GM, 19=GC, 20=Pt
C KWI
SMSP wetness index: 0=arid, 1=dry, 2=average, 3=wet,
C
4=saturated, 5=waterlogged
C Common /VEHICL/
C NVEH(NAMBLY)
Vehicle traction assembly type: 0=tracked, 1=wheeled
C
51
Previous Page
