TALK=T;RUN( 1, 1)                                                              
  DISPLAY                                                                       
                                                                                
  Simulation of laminar steady flow around a sphere in a uniform 
  stream at a Reynolds number of 40 .
  
  The grid is cartesian and rather coarse (18*18*31), but the flow 
  follows the curved surface smoothly because the PARSOL (i.e. 
  cut-cell) technique  is used.
  
  The fluid is atmospheric air, treated as incompressible.
  
  The variables computed are:
  * p1, the pressure,
  * u1, the x-direction velocity,
  * v1, the y-direction velocity, and
  * w1, the z-direction velocity.
  
  This file contains a macro of commands which cause the Viewer 
  (when the macro button is pressed) to display contours 
  automatically.
                                                                                
                                                                                
  ENDDIS                                                                        
   VRV USE
  * Start of frame
  VARIABLE  Pressure; CON ON
  msg Pressure contours
  PAUSE
  * Start of frame
  VARIABLE  Velocity; VEC ON
  msg Pressure contours superimposed by velocity vectors
  PAUSE
  * Start of frame
  * Setting object visibility and painting status
  OBJECT SHOW TYPE BLOCKAGE
  OBJECT PAINT TYPE BLOCKAGE ON
  VARIABLE  Velocity; VEC OFF
  CONTOUR OFF
  msg Velocity contours on the surface of the sphere
  PAUSE
  * Start of frame
  * Setting object visibility and painting status
  OBJECT SHOW TYPE BLOCKAGE
  OBJECT PAINT TYPE BLOCKAGE ON
  VARIABLE  Pressure; VEC OFF
  msg Pressure contours on the surface of the sphere
  PAUSE
  ENDUSE
 ************************************************************                   
 CPVNAM=VDI;SPPNAM=Core                                                         
 ************************************************************                   
 IRUNN   =       1 ;LIBREF =     805                                            
 ************************************************************                   
  Group 1. Run Title                                                            
 TEXT(Sphere In A Uniform Stream; Re=40                                         
 TITLE                                                                          
 ************************************************************                   
  Group 2. Transience                                                           
 STEADY  =    T                                                                 
 ************************************************************                   
  Groups 3, 4, 5  Grid Information                                              
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)                       
 RSET(M,18,18,31,0.001)                                                  
    * Set overall domain extent:                                                
    *        xulast  yvlast  zwlast                                             
            name                                                                
 XSI= 4.000000E+00; YSI= 4.000000E+00; ZSI= 1.000000E+01                        
 RSET(D,CHAM    )                                                               
 ************************************************************                   
  Group 6. Body-Fitted coordinates                                  
 ************************************************************       
  Group 7. Variables: STOREd,SOLVEd,NAMEd                           
 ONEPHS  =    T                                                     
 NAME(150) =PRPS                                                    
    * Solved variables list                                         
 SOLVE(P1  ,U1  ,V1  ,W1  )                                         
    * Stored variables list                                         

 STORE(PRPS,VLSQ)                                                   
    * Additional solver options                                     
 SOLUTN(P1  ,Y,Y,Y,N,N,Y)                                           
 SOLUTN(U1  ,Y,Y,Y,N,N,Y)                                           
 SOLUTN(V1  ,Y,Y,Y,N,N,Y)                                           
 SOLUTN(W1  ,Y,Y,Y,N,N,Y)
          
   inform7begin
(stored var STGP is P1+0.5*RHO1*VLSQ with SWPFIN)                   
   inform7end                                               
                                                                    
 ************************************************************       
  Group 8. Terms & Devices                                          
 ************************************************************       
  Group 9. Properties                                               
 RHO1    = 1.000000E+00                                             
 CP1     = 1.005000E+03                                             
 ENUL    = 5.000000E-02 ;ENUT   = 0.000000E+00                      
 ************************************************************       
  Group 10.Inter-Phase Transfer Processes                           
 ************************************************************       
  Group 11.Initialise Var/Porosity Fields                           
   No PATCHes used for this Group                                   
 FIINIT(W1) = 1.0                                                   
                                                                    
 INIADD  =    F                                                     
 ************************************************************       
  Group 12. Convection and diffusion adjustments                    
   No PATCHes used for this Group                                   
 ************************************************************ 
        
  Group 13. Boundary & Special Sources                              
  Imbalance patches enclosing the sphere, which enable the drag on
  the sphere to be deduced.
  
  All boxes should report the same momentum balance, if the solution
  has converged
PATCH(IMBL3&2,VOLUME,3,NX-2,3,NY-2, 3,NZ-2,1,1)  ! the largest box
COVAL(IMBL3&2,W1,0,0)

PATCH(IMBL4&3,VOLUME,3,NX-2,3,NY-2, 4,NZ-3,1,1)
COVAL(IMBL4&3,W1,0,0)

PATCH(IMBL5&4,VOLUME,3,NX-2,3,NY-2, 5,NZ-4,1,1)
COVAL(IMBL5&4,W1,0,0)
  
PATCH(IMBL810,VOLUME,3,NX-2,3,NY-2, 8,NZ-10,1,1)
COVAL(IMBL810,W1,0,0)
  
PATCH(IMBL815,VOLUME,5,NX-4,5,NY-4, 8,NZ-15,1,1) ! the smallest box
COVAL(IMBL815,W1,0,0)
                                                                    
 ************************************************************       
  Group 14. Downstream Pressure For PARAB                           
 ************************************************************       
  Group 15. Terminate Sweeps                                        
 LSWEEP  =     30                                                   
 RESFAC  = 1.000000E-03                                             
 ************************************************************       
  Group 16. Terminate Iterations 
 LITER(P1) = 250                                               
 ************************************************************       
  Group 17. Relaxation                                              
 RELAX(P1  ,LINRLX, 1.000000E+00)                                   
 ************************************************************       
  Group 18. Limits                                                  
 VARMAX(U1  ) = 1.000000E+06 ;VARMIN(U1  ) =-1.000000E+06           
 VARMAX(V1  ) = 1.000000E+06 ;VARMIN(V1  ) =-1.000000E+06           
 VARMAX(W1  ) = 1.000000E+06 ;VARMIN(W1  ) =-1.000000E+06           
 ************************************************************       
  Group 19. EARTH Calls To GROUND Station                           
 USEGRD  =    T  ;USEGRX =    T                                     
 ASAP    =    T                                                     
 PARSOL  =    T                                                     
 ************************************************************       
  Group 20. Preliminary Printout                                    
 ECHO    =    T  
 distil=t                                                           
 EX(P1  )=   1.298E-01  
 EX(U1  )=   3.240E-02  
 EX(V1  )=   3.335E-02  
 EX(W1  )=   1.012E+00 
 EX(PRPS)=   3.354E+00 
 ************************************************************       
  Group 21. Print-out of Variables                                  
 OUTPUT(U1  ,Y,Y,Y,N,Y,Y)                                           
 ************************************************************       
  Group 22. Monitor Print-Out                                       
 IXMON   =       nx/2 ;IYMON  =       ny/2 ;IZMON  =  - 3*nz/4      
 NPRMON  =  100000                                                  
 NPRMNT  =       1                                                  
 TSTSWP  =      -1                                                  
 ************************************************************       
  Group 23.Field Print-Out & Plot Control                           
 NPRINT  =  100000                                                  
 ISWPRF  =       1 ;ISWPRL =  100000                                
   No PATCHes used for this Group                                   
 ************************************************************       
  Group 24. Dumps For Restarts                                      
 NOWIPE  =    T                                                     
                                                                    
 GVIEW(P,-9.928086E-01,0.000000E+00,-1.197123E-01)                  
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)                   
                                                                    
> DOM,    SIZE,        4.000000E+00, 4.000000E+00, 1.000000E+01     
> DOM,    MONIT,       5.555560E-01, 5.555560E-01, 4.838710E-01     
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00     
> DOM,    SNAPSIZE,    1.000000E-02                                 
> DOM,    RELAX,       5.000000E-01                                 
                                                                    
> OBJ1,   NAME,        B1                                           
> OBJ1,   POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00     
> OBJ1,   SIZE,        4.000000E+00, 4.000000E+00, 0.000000E+00     
> OBJ1,   CLIPART,     cube3                                        
> OBJ1,   ROTATION24,        1                                      
> OBJ1,   TYPE,        INLET                                        
> OBJ1,   PRESSURE,      0.000000E+00                               
> OBJ1,   VELOCITY,      0.000000E+00, 0.000000E+00, 1.000000E+00   
> OBJ1,   TEMPERATURE,   0.000000E+00                               
                                                                    
> OBJ2,   NAME,        B2                                           
> OBJ2,   POSITION,    0.000000E+00, 0.000000E+00, 1.000000E+01     
> OBJ2,   SIZE,        4.000000E+00, 4.000000E+00, 0.000000E+00     
> OBJ2,   CLIPART,     cube12                                       
> OBJ2,   ROTATION24,        1                                      
> OBJ2,   TYPE,        OUTLET                                       
> OBJ2,   PRESSURE,      0.000000E+00                               
> OBJ2,   TEMPERATURE,   0.000000E+00                               
> OBJ2,   COEFFICIENT,   1.000000E+03                               
                                                                    
> OBJ3,   NAME,        B3                                           
> OBJ3,   POSITION,    1.000000E+00, 1.000000E+00, 2.200000E+00     
> OBJ3,   SIZE,        2.000000E+00, 2.000000E+00, 2.000000E+00     
> OBJ3,   ARBORIEN,    0.000000E+00, 0.000000E+00, 0.000000E+01     
> OBJ3,   CLIPART,     smoosphe                                       
> OBJ3,   ROTATION24,        1                                      
> OBJ3,   TYPE,        BLOCKAGE                                     
> OBJ3,   MATERIAL,      198                                        
                                                                    
STOP