if((sigma0.lt.0.15).and.(sumz.ge.radscm))flag = 1.5
if((sigma0.ge.0.15).and.(sumz.ge.(radscm*2./3.)))flag = 1.5
if((sigma0.ge.0.15).and.(sumz.ge.(radscm)))flag = 2.5
C GROUND CLEARANCE FLAG
if (sumz.ge. (gclear*2.54)) flag = flag+1.5
else
C TRACKED VEHICLE RESISTANCE
C ACCOUNT FOR WEAK SOIL BASE
if(ibase.eq.5) then
pn = 1.
!IS THE NUMBER OF PASSES THE VEHICLE MAKES
soilz=tlength(i)*pn**.5*0.00443*
&exp((5.889*pload(i))/(rci*width(i)*tlength(i)))
soilz = soilz*2.54
end if
sumz=zmax+soilz !cm
C RESISTANCE PARAMETER, TRACKED VEHICLES IN SNOW
aa(i)=26.0
!AN AVERAGE VALUE FOR NRMM
xl2(i)=(sumz/sin(aa(i)*3.14159265/180.))
!cm
C GROUND CLEARANCE, LOW (FLAG=2.0) OR HIGH (FLAG=4.0) DENSITY SNOW
if((sigma0.lt.0.15).and.(sumz.ge.(gclear*2.54))) flag = 2.5
if((sigma0.ge.0.15).and.(sumz.ge.(gclear*2.54))) flag = 4.0
end if
if (flag.gt.1.0) then
C
DEEP SNOW WARNING
write(*,*)'*************************************************'
write(*,*)
write(*,*)'A DEEP SNOW FLAG HAS BEEN SET,'
write(*,*)'CALCULATIONS ARE NOT VALIDATED.'
write(*,*)'FLAG = `, flag
write(*,*)
write(*,*)'*************************************************'
end if
c
print *, rads(i)
print *, xl2(i),sumz
xl=xl2(i)
w=width(i)*2.54
!CONVERT TO cm
rres1(i)=(68.1*(0.10*sigma0*xl*w)**0.914)*flag
!KG/M IN PARATHESISES
c
write(*,*)'flag',flag,'rres1',rres1,'sigma0',sigma0
c
write(*,*)(0.10*sigma0*xl*w),xl,w,sigma0
29
Previous Page
