14406 S6301999

FiM irt the fotlowing sectlons (remcMng commen! marks! rf necessary), ^r and dełete those that are unused.)

w

TULĘ New Promem' {przep?yw ustalony w okolicach wykopuj COORDINATES cartesian2 {coordmate system. 1D.20.3D. etc} VARlABLES {system vartabie$} h {choose wwf own names 8ELECT (memod Controls) contours=8 errlim=1e-3

DEFINITIONS {parameter deflnłtions}

H$=18 l(m) odległość od stropu warstwy nieprzepuszczalnej do swobodnego zwierciadła wody k*2.3e-8 !(m/s) współczynnik filtracji

c|e!t=15*801($) delta t    -r

de!*=0.5 ł<m) delta x n=Q.351 porowatość

! INITIAL VALU6S

EOUATION3 {PDE'$, one for each variable > h: dt(h)=Hs*K*dełtf(deb<*n)*dhr(grad<h)) {one possibilłty} Ih: div(grad(h))=0

REGION 1    {For each materiał region}

START(-t 0,10) {Walk the domain boundaiy) vałue(h)=tO UNE TO (-4,10) natural(h)=0 linę to (-4,6.5) value(h)=y linę TO (-4,6)

naturai(h)=0 linę to (-4-0.5)to (-3.98,-0.5)TO(-3.98,0) naturai(h)s=Q linę (0,0)

natural(h)=0 linę to (0, -6.5) to (-10, -6.5) to cłose

{vałue(h)=10 UNE TO (-4,10)

natural(h)=G linę to (-4,-0.5) TO (-3.98.-0.5) TO (-3.98,0)

natura!(h)=0 linę (0,0)

natural(h)=0 linę to (0. -6.5) to (-10. -6.5) to close

]

ICONSTRAINTS {Integral constraints} BOUNDARIES {The domain defmition}

flTA