C CRM-1.f
C 7 MARCH 1994
C
THIS PROGRAM CALCULATES THE TRACTION AND MOTION RESISTANCE
C
OF WHEELED AND TRACKED VEHICLES OPERATING ON ICE, OR IN DEEP OR
C
SHALLOW SNOW OVER VARIOUS BASE MATERIALS AND THAWING SOILS
C PROGRAM BY:
C
HEATHER BANKER
C
GEORGE BLAISDELL
C
PAUL RICHMOND
C
SALLY SHOOP
C
KAREN FARAN
common/m1/nwhls(10),rads(10),width(10),pload(10),area(10),aa(10)
common/m2/ip(10),pres1(10),tlength(10)
common/m5/iveh,nunits,pmax,gclear,gvw
common/m6/def,sec
common/m7/ibase,rci,idist,slope
1000
write(*,*)'choose an option:'
write(*,*)'1 = snow modeling (snow or ice covered)'
write(*,*)'2 = soils modeling (frozen or thawing soils)'
read(*,*)input
C INITIALIZE VARIABLES
sumz=0.
zmax=0.
gvw=0.
rsnow=0.0
trsnow=0.
totalr=0.
totaldb=0.
if(input.eq.1)then
call vehdata
call snow(hsnow,sigma0)
call pressure
call density(hsnow,sigma0,sigmaf,zmax)
call rterrain(hsnow,sigma0,sigmaf,zmax,sumz,rsnow)
call hard(reshard)
call traction(hsnow,trsnow)
call totalsnow(rsnow,trsnow,reshard,hsnow,sigma0,sumz)
else
write(*,*)'what type of soil problem is this'
write(*,*)'1 = thawing soil'
write(*,*)'2 = frozen soil'
read(*,*)iput
if(iput.eq.1)then
call soil(isoil,iwet)
call trmult(isoil,iwet,trmlt,zthaw,ivehs)
call mrtmult(zthaw,svalid,isoil,iwet,rmult,ivehs)
23
Previous Page
