L(222)
  GROUP 1. Run title and other preliminaries
TEXT(2 Quadrant Polar Wind Flow        
TITLE
  Parallel flow is prescribed at the circumferential boundary
  of a polar grid, in order to demonstrate that EARTH predicts
  a uniform parallel flow within the domain. The results show
  that the curvilinear grid does not distort the flow field.
VIN=25.0
INTEGER(IX1);IX1=NX/2
 
  GROUP 3. X-direction grid specification
GRDPWR(X,12,PI,1.0)
 
  GROUP 13. Boundary conditions and special sources
PATCH( PINF,CELL,1,NX,NY,NY,1,NZ,1,1)
COVAL( PINF,P1,1.0E6,0.0 )
COVAL( PINF,U1,ONLYMS,0.0);COVAL(PINF,V1,ONLYMS,0.0)
PATCH(UPOL,CELL,1,IX1,NY,NY,1,1,1,1)
COVAL(UPOL,U1,FIXVAL,SETSPEED)
PATCH(VPOL,CELL,1,IX1,NY-1,NY-1,1,1,1,1)
COVAL(VPOL,V1,FIXVAL,SETSPEED)
 
  GROUP 15. Termination of sweeps
LSWEEP=100;RESFAC=1.E-06
 
  GROUP 17. Under-relaxation devices
RELAX(U1,FALSDT,0.07);RELAX(V1,FALSDT,0.07)
 
    GROUP 19. Special calls from EARTH to GROUND
POLRA=-VIN
 
  GROUP 22. Spot-value print-out
IXMON=11;IYMON=8
 
  GROUP 23. Field print-out and plot control
NYPRIN=NY/5