L(113
l(cls
TEXT(Fin Non-Uniform Surface Coeff.    
TITLE
  DISPLAY
  In addition to all the effects introduced in cases 110 to 113,
  the surface heat-transfer coefficient is supposed to increase
  linearly from the value COEFF at the root to twice that value at
  the tip.
 
  This is effected by increasing the north face-area porosity
  appropriately.
 
  ENDDIS
STORE(NPOR); FIINIT(NPOR)=1.0
INIADD=T
INIT(POROSITY,NPOR,10.0,0.025)