L(110)
l(cls
TEXT(Fin Non-Uniform Cross-Section    
TITLE
  DISPLAY
  This is case 110, but with the fin tapering from its full
  thickness at x=0 to zero at x=XULAST.
 
  This is effected through EPOR and VPOR settings.
 
  ENDDIS
STORE(EPOR,VPOR)
FIINIT(EPOR)=0.0;FIINIT(VPOR)=0.0
PATCH(POROSITY,LINVLX,1,NX,1,1,1,1,1,1)
INIT(POROSITY,EPOR,-10.0,0.95); INIT(POROSITY,VPOR,-10.0,0.975)