796 class(GwtDspType) :: this
798 integer(I4B) :: nodes, n, m, idiag, ipos
799 real(DP) :: clnm, clmn, dn, dm
800 real(DP) :: vg1, vg2, vg3
801 integer(I4B) :: ihc, isympos
802 integer(I4B) :: iavgmeth
803 real(DP) :: satn, satm, topn, topm, botn, botm
804 real(DP) :: hwva, cond, cn, cm, denom
805 real(DP) :: anm, amn, thksatn, thksatm
811 nodes =
size(this%d11)
813 if (this%fmi%ibdgwfsat0(n) == 0) cycle
814 idiag = this%dis%con%ia(n)
815 do ipos = this%dis%con%ia(n) + 1, this%dis%con%ia(n + 1) - 1
818 m = this%dis%con%ja(ipos)
822 isympos = this%dis%con%jas(ipos)
823 this%dispcoef(isympos) = dzero
824 if (this%fmi%ibdgwfsat0(m) == 0) cycle
827 hwva = this%dis%con%hwva(isympos)
828 clnm = this%dis%con%cl1(isympos)
829 clmn = this%dis%con%cl2(isympos)
830 ihc = this%dis%con%ihc(isympos)
831 topn = this%dis%top(n)
832 topm = this%dis%top(m)
833 botn = this%dis%bot(n)
834 botm = this%dis%bot(m)
837 satn = this%fmi%gwfsat(n)
838 satm = this%fmi%gwfsat(m)
843 call this%dis%connection_normal(n, m, ihc, vg1, vg2, vg3, ipos)
844 dn =
hyeff(this%d11(n), this%d22(n), this%d33(n), &
845 this%angle1(n), this%angle2(n), this%angle3(n), &
846 vg1, vg2, vg3, iavgmeth)
847 dm =
hyeff(this%d11(m), this%d22(m), this%d33(m), &
848 this%angle1(m), this%angle2(m), this%angle3(m), &
849 vg1, vg2, vg3, iavgmeth)
854 clnm = satn * (topn - botn) * dhalf
855 clmn = satm * (topm - botm) * dhalf
859 if (satn == dzero)
then
861 else if (n > m .and. satn < done)
then
866 if (satm == dzero)
then
868 else if (m > n .and. satm < done)
then
884 thksatn = (topn - botn) * satn
885 thksatm = (topm - botm) * satm
893 if (satn == dzero .or. satm == dzero)
then
902 if (clnm > dzero) cn = dn * anm / clnm
904 if (clmn > dzero) cm = dm * amn / clmn
906 if (denom > dzero)
then
907 cond = cn * cm / denom
913 this%dispcoef(isympos) = cond
This module contains stateless conductance functions.
real(dp) function, public staggered_thkfrac(top, bot, sat, topc, botc)
Calculate the thickness fraction for staggered grids.
General-purpose hydrogeologic functions.
real(dp) function, public hyeff(k11, k22, k33, ang1, ang2, ang3, vg1, vg2, vg3, iavgmeth)
Calculate the effective horizontal hydraulic conductivity from an ellipse using a specified direction...