GROUP 1. Run title and other preliminaries
TEXT(Free Vortex In 2 Dimensions       
TITLE
 
    GROUP 3. X-direction grid specification
  ** Activate polar coordinate system
CARTES=F;GRDPWR(X,8,6.28,1.0)
 
    GROUP 4. Y-direction grid specification
RINNER=0.5;GRDPWR(Y,12,1.0,1.0)
 
    GROUP 7. Variables stored, solved & named
SOLVE(P1,U1,V1)
 
    GROUP 8. Terms (in differential equations) & devices
TERMS(U1,Y,Y,N,Y,Y,Y);TERMS(V1,Y,Y,N,Y,Y,Y)
 
    GROUP 13. Boundary conditions and special sources
XCYCLE=T
  ** Inlet
INLET(IN,SOUTH,1,NX,1,1,1,1,1,1)
VALUE(IN,P1,1.0);VALUE(IN,U1,1.0)
VALUE(IN,V1,1.0)
  ** Outlet
PATCH(OUTLET,NORTH,1,NX,NY,NY,1,1,1,1)
COVAL(OUTLET,P1,FIXVAL,0.0);COVAL(OUTLET,U1,ONLYMS,0.0)
COVAL(OUTLET,V1,ONLYMS,0.0)
 
    GROUP 15. Termination of sweeps
LSWEEP=20;RESREF(P1)=1.E-7;RESREF(U1)=1.E-7;RESREF(V1)=1.E-7
 
    GROUP 23. Field print-out and plot control
PATCH(MAP,CONTUR,1,NX,1,NY,1,1,1,1)
PLOT(MAP,P1,1.0,10.0);PLOT(MAP,U1,1.0,10.0);PLOT(MAP,V1,1.0,10.0)
PATCH(OUTERY,PROFIL,1,NX,NY,NY,1,1,1,1)
PLOT(OUTERY,P1,0.0,0.0);PLOT(OUTERY,U1,0.0,0.0)
PATCH(INNERY,PROFIL,1,NX,1,1,1,1,1,1)
PLOT(INNERY,P1,0.0,0.0);PLOT(INNERY,U1,0.0,0.0)
 
    GROUP 24. Dumps for restarts