Global Journal of Science Frontier Research, D: Agriculture and Veterinary, Volume 23 Issue 1

Beta1= (zp*Tp)/ Zs Beta2= (1/Zs)*(((kc*dh)-kc)-(c*dh)) beta= (beta1+beta2)/2 IF (beta.LT.tp )THEN WRITE(77,*)"partially compensated water uptake" ELSEIF (beta.GT.tp )THEN WRITE(77,*)"Fully compensated water uptake" ELSE WRITE(77,*)" uncompensated water up" END IF END DO WRITE(*,*)((SSI(i,j),PSI(I,J),i=1,1),j=1,50) WRITE(77,10((SSI(i,j), PSI(I,J),i=1,1),j=1,50)) 10 format(/1x,E6.3,1x/) End AMUN_SHC 1 Year 2023 45 © 2023 Global Journals Global Journal of Science Frontier Research Volume XXIII Issue ersion I VI ( )D The Modified Richard’s Equation for Assessing the Impact of Drought and Salinity in Arid and Semi-Arid Zones. Part Two: A Soil Hydraulic Capacitance