PHOTON USE
  p
 
 
 
 
  GR OU X 1
  MSG Velocity vectors
  vec x 1 sh
  msg
  msg Press return to plot pressure contours
  pause
  cont p1 x 1 fil;.001
  msg
  msg Press return to plot enthalpy contours
  pause
  vec cl; cont cl; red
  msg Enthalpy contours; note layer formation at the wall
  cont h1 x 1 fil;.001
  msg
  msg Type e to End
  ENDUSE
 
    GROUP 1. Run title
TEXT(2-D DIFFUSER ; Y-Z POLAR COORD. :   B511
TITLE
 
  DISPLAY
  This case differs from the preceeding one only in that an axial
  polar diffuser is considered rather than a plane diffuser.
  The grid is generated by modifying that of case 510 , and is
  non-orthogonal.
  ENDDIS
 
    GROUP 6. Body-fitted coordinates or grid distortion
  Plane I=1 remains the same; plane I=2 is formed by rotating
  plane I=1 about the axis of symmetry through an angle 0.1
#B510)
GSET(C,I2,F,I1,RZ,-0.1,0.0,0.0)
RELAX(V1,FALSDT,1.0); RELAX(W1,FALSDT,1.0)