rhard = 0.0175
else
rhard = 0.015
end if
else if((ibase.eq.1).or.(ibase.eq.4))then
rhard = 0.015
else
rhard = 0.025
end if
reshard = reshard +rhard*w
end do
C TRACKED VEHICLES
else
if((ibase.eq.3).or.(ibase.eq.5))then
rhard = 0.0525
else if((ibase.eq.1).or.(ibase.eq.4))then
rhard = 0.0375
else
rhard = 0.045
end if
reshard = rhard*gvw !TOTAL HARD SURFACE RESISTANCE FOR TRACK
end if
return
end
C *************************************************************************
subroutine traction(hsnow,trsnow)
C THIS ROUTINE CALCULATES THE TRACTION OF THE VEHICLE
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
dimension trcn1(10)
C
TRACTION CALCULATION
trsnow = 0.0
do i = 1,nunits
pr=pres1(i)*6.8948
! KPA
pr=pr*cos(slope*3.14159265/180.)
! ACCOUNT FOR SLOPE
C UNDISTURBED SNOW
if(((ibase.eq.1).or.(ibase.eq.2).or.(ibase.eq.3).or.(ibase.eq.5))
&.and.(idist.eq.7))then
trcn1(i)=0.851*((pr)**0.823)
c
write(*,*)'area',area(i),'load',pload(i)
c
write(*,*)'pressure',pres1(i)
31
Previous Page
