C
*
CTRMULT*
C
*
C**************
REAL FUNCTION TRMULT()
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 23 Jun 92 Implemented in CAMMS by R. B. Ahlvin, WES
C 6 Jan 94 Implemented in NRMM II by R.B.Ahlvin
C
C This function returns a multiplier value to modify drawbar-pull
C in lbs. Traction is reduced for travel over a thawing soil layer
C that overlays a frozen soil layer. Calculations are applicable
C only for sandy soils with little or no snow cover, and for
C vehicles with a critical depth of less than 6 inches. The wetness
C index, as calculated by the SMSP model, is also required.
C
C Inputs:
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 Output:
C TRMULT Tractio multiplier
C
IMPLICIT NONE
INCLUDE `nrmmdefs.inc'
INCLUDE `nrmmcntc.inc'
INCLUDE `nrmmterc.inc'
INCLUDE `nrmmvehc.inc'
C
INTEGER I,J, LENSTR
REAL MRMULT, THAWCM
LOGICAL SVALID(20)
CHARACTER *4 ZUSCS(20)
CHARACTER *5 ZVTYPE
EXTERNAL LENSTR
DATA ZUSCS/'SW','SP','SM `,'SC `,'SMSC',
&
`CL','ML','CLML','CH `,'MH `,
&
`OL','OH','WATR','PVMT','ROCK',
&
`GW','GP','GM `,'GC `,'Pt `/
C
DATA (SVALID(J),J= 1, 5)
& /.TRUE. ,.TRUE. ,.TRUE., .TRUE., .TRUE./
C
SW
SP
SM
SC
SMSC
DATA (SVALID(J),J= 6,10)
& /.TRUE. ,.FALSE.,.FALSE.,.FALSE.,.FALSE./
C
CL
ML
CLML CH
MH
DATA (SVALID(J),J=11,15)
& /.FALSE.,.FALSE.,.FALSE.,.FALSE.,.FALSE./
50
Previous Page
