************************************************************
   Q1 created by VDI menu, Version 3.5, Date 15/03/02
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
  DISPLAY
  This In-Form case provides a VR object for use in the setting
  of source into one half of T-junction.
 
  This example simulates a flow in a T-Junction of which
  contains resistance in one part.
 
  In-Form sets momentum source within the limits
  of VR object with HALFCYL3 name.
 
  The Q1 contains PHOTON USE commands    
  ENDDIS  
  Echo DISPLAY / USE settings
  PHOTON USE
  p;;;

  rot y ang 180
  gr ou z 1; gr ou x 1; gr ou y m
  vec x 1 sh; vec z 1 sh; red
  msg Velocity vectors
  msg Press return for p1
  pause; vec off;red
  msg Pressure contours
  con p1 x 1 fi;0.001; con p1 z 1 fi;0.001
  enduse
 ************************************************************
 IRUNN = 1 ; LIBREF = 774
 ************************************************************
  Group 1. Run Title
 TEXT(T-Junction: In-Form Source.             )
 ************************************************************
  Group 2. Transience
 STEADY  =    T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,12,20,30)
 ************************************************************
  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,VABS)
    * 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)
 
 ************************************************************
  Group 8. Terms & Devices
 TERMS (P1  ,Y,Y,Y,Y,Y,Y)
 ************************************************************
  Group 9. Properties
 PRESS0  = 1.000000E+05
 SETPRPS(1,111)
 ENUT    = 0.000000E+00
 DRH1DP  = 2.000000E+11
 DVO1DT  = 3.700000E-06
 EMISS   = 0.000000E+00 ;SCATT  = 0.000000E+00
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(PRPS) =  1.110000E+02
   No PATCHes used for this Group
 
 INIADD  =    F
 ************************************************************
  Group 12. Convection and diffusion adjustments
   No PATCHes used for this Group
 ************************************************************
  Group 13. Boundary & Special Sources
   No PATCHes used for this Group
 
 ************************************************************
  Echo InForm settings for Group 13
  INFORM13BEGIN
 (SOURCE of U1 at HALFCYL3 is coval(fixflu,-10.*VABS*U1))
 (SOURCE of V1 at HALFCYL3 is coval(fixflu,-10.*VABS*V1))
 (SOURCE of W1 at HALFCYL3 is coval(fixflu,-10.*VABS*W1))
  INFORM13END
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =      200
 RESFAC  = 1.000000E-03
 ************************************************************
  Group 16. Terminate Iterations
 LITER (P1  ) =       50
 ************************************************************
  Group 17. Relaxation
 RELAX(P1  ,LINRLX, 7.000000E-01)
 ************************************************************
  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
 CONWIZ  =    T
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 DISTIL  =    T  ;NULLPR =    F
 NDST    =       0
 DSTTOL  = 1.000000E-02
 EX    (P1  ) =  2.350000E-01 ;EX    (U1  ) =  2.025000E-02
 EX    (V1  ) =  1.611000E-01 ;EX    (W1  ) =  1.616000E-01
 EX    (VABS) =  2.849000E-01 ;EX    (PRPS) =  5.233000E+01
 ************************************************************
  Group 21. Print-out of Variables
 OUTPUT(P1  ,Y,Y,Y,Y,Y,Y)
 OUTPUT(U1  ,Y,Y,Y,Y,Y,Y)
 OUTPUT(V1  ,Y,Y,Y,Y,Y,Y)
 OUTPUT(W1  ,Y,Y,Y,Y,Y,Y)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =       4 ;IYMON  =      14 ;IZMON  =      15
 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,-8.604726E-01,0.000000E+00,-5.094969E-01)
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)
 
> DOM,    SIZE,        6.000000E-01, 1.500000E+00, 3.000000E+00
> DOM,    MONIT,       1.750000E-01, 9.642860E-01, 1.450000E+00
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
 
> OBJ,    NAME,        HALFCYL1
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 1.100000E+00
> OBJ,    SIZE,        4.000000E-01, 1.000000E+00, 8.000000E-01
> OBJ,    CLIPART,     hfcyl
> OBJ,    ROTATION24,        6
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,        1
> OBJ,    SCAL_FIXF,     1.000000E+00
 
> OBJ,    NAME,        INLET
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 1.100000E+00
> OBJ,    SIZE,        4.000000E-01, 0.000000E+00, 8.000000E-01
> OBJ,    CLIPART,     hfcyl
> OBJ,    ROTATION24,        6
> OBJ,    TYPE,        INLET
> OBJ,    DENSITY,       1.189000E+00
> OBJ,    VELOCITY,      0.000000E+00, 1.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   0.000000E+00
 
> OBJ,    NAME,        HALFCYL2
> OBJ,    POSITION,    0.000000E+00, 5.000000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 1.000000E+00, 2.000000E+00
> OBJ,    CLIPART,     hfcyl
> OBJ,    ROTATION24,        4
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,        1
> OBJ,    SCAL_FIXF,     1.000000E+00
 
> OBJ,    NAME,        OUTLET1
> OBJ,    POSITION,    0.000000E+00, 5.000000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 1.000000E+00, 0.000000E+00
> OBJ,    CLIPART,     hfcyl
> OBJ,    ROTATION24,        4
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    TEMPERATURE,   0.000000E+00
> OBJ,    COEFFICIENT,   1.000000E+00
 
> OBJ,    NAME,        OUTLET2
> OBJ,    POSITION,    0.000000E+00, 5.000000E-01, 3.000000E+00
> OBJ,    SIZE,        5.000000E-01, 1.000000E+00, 0.000000E+00
> OBJ,    CLIPART,     hfcyl
> OBJ,    ROTATION24,        4
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    TEMPERATURE,   0.000000E+00
> OBJ,    COEFFICIENT,   1.000000E+00
 
> OBJ,    NAME,        HALFCYL3
> OBJ,    POSITION,    0.000000E+00, 5.000000E-01, 2.000000E+00
> OBJ,    SIZE,        5.000000E-01, 1.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     hfcyl
> OBJ,    ROTATION24,        4
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,        1
> OBJ,    SCAL_FIXF,     1.000000E+00
STOP