#clS
TEXT(In-Form accesses correction coeffs
title
  DISPLAY
  
  This In-Form case shows how it is possible to store, print
  and manipulate the coefficients used in the finite-volume 
  equations, whether the whole-field or slab-wise solver is used.
 
  Case 277, the cubical cavity with a reduced grid size and number 
  of sweeps, is used as the basic starting point.
  
    
  ENDDIS  
LOAD(277)
CSG3=' '
EXPERT=F
ENUL=ENUL*100
RELAX(H1,LINRLX,0.1)
ISWC1=1
LSWEEP=10

     ** Storage of intermediate variable
     
     ** Pressure-correction coefficients

(STORED of SUP1 is RESI(P1))
VARMAX(SUP1) = 1.E-3;VARMIN(SUP1) = -1.E-3
(STORED of APP1 is APCO(P1))
(STORED of AEP1 is AECO(P1))
(STORED of AWP1 is AWCO(P1))
(STORED of ANP1 is ANCO(P1))
(STORED of ASP1 is ASCO(P1))
(STORED of AHP1 is AHCO(P1))
(STORED of ALP1 is ALCO(P1))


     ** U1-velocity equation coefficients

(STORED of SUU1 is RESI(U1))
(STORED of APU1 is APCO(U1))
FIINIT(APU1)= 1.E3; RELAX(APU1,LINRLX,0.001)
(STORED of AEU1 is AECO(U1))
(STORED of AWU1 is AWCO(U1))
(STORED of ANU1 is ANCO(U1))
(STORED of ASU1 is ASCO(U1))
(STORED of AHU1 is AHCO(U1))
(STORED of ALU1 is ALCO(U1))

     ** Exchange coefficients of  U1 velocity

(STORED of GAU1 is GAMM(U1))


     ** V1 velocity equation coefficients

(STORED of SUV1 is RESI(V1))
(STORED of APV1 is APCO(V1))
(STORED of AEV1 is AECO(V1))
(STORED of AWV1 is AWCO(V1))
(STORED of ANV1 is ANCO(V1))
(STORED of ASV1 is ASCO(V1))
(STORED of AHV1 is AHCO(V1))
(STORED of ALV1 is ALCO(V1))

     ** Exchange coefficient of  V1 velocity

(STORED of GAV1 is GAMM(V1))


     ** W1 velocity equation coefficients

(STORED of SUW1 is RESI(W1))
(STORED of APW1 is APCO(W1))
(STORED of AEW1 is AECO(W1))
(STORED of AWW1 is AWCO(W1))
(STORED of ANW1 is ANCO(W1))
(STORED of ASW1 is ASCO(W1))
(STORED of AHW1 is AHCO(W1))
(STORED of ALW1 is ALCO(W1))

     ** Exchange coefficient of  W1 velocity

(STORED of GAW1 is GAMM(W1))


     ** Enthalpy equation coefficients
  SOLUTN(H1,Y,Y,N,P,P,P)
(STORED of SUH1 is RESI(H1))
(STORED of APH1 is APCO(H1))
(STORED of AEH1 is AECO(H1))
(STORED of AWH1 is AWCO(H1))
(STORED of ANH1 is ANCO(H1))
(STORED of ASH1 is ASCO(H1))
(STORED of AHH1 is AHCO(H1))
(STORED of ALH1 is ALCO(H1))

     ** Exchange coefficients of  H1, enthalpy

(STORED of GAH1 is GAMM(H1))


     ** Reduction of grid size

GRDPWR(X,-5,0.1,2.0)
GRDPWR(Y,-5,0.1,2.0)
GRDPWR(Z,-5,0.1,2.0)

     ** Slab-by-slab solver activated for h1
SOLUTN(H1,Y,Y,N,P,P,P)
  
LIBREF=788
DISTIL=T
 EX(P1)=4.606E-01; EX(U1)=3.798E-02; EX(V1)=1.968E-02
 EX(W1)=6.408E-05; EX(H1)=1.072E-01; EX(GAH1)=1.429E-03
 EX(ALH1)=2.189E-05; EX(AHH1)=2.189E-05; EX(ASH1)=2.190E-05
 EX(ANH1)=2.190E-05; EX(AWH1)=2.237E-05; EX(AEH1)=2.237E-05
 EX(APH1)=1.581E-04; EX(SUH1)=1.462E-05; EX(GAW1)=8.000E-04
 EX(ALW1)=8.882E-06; EX(AHW1)=8.882E-06; EX(ASW1)=1.244E-05
 EX(ANW1)=1.244E-05; EX(AWW1)=1.150E-05; EX(AEW1)=1.150E-05
 EX(APW1)=7.461E-03; EX(SUW1)=2.179E-07; EX(GAV1)=1.000E-03
 EX(ALV1)=1.532E-05; EX(AHV1)=1.532E-05; EX(ASV1)=7.645E-06
 EX(ANV1)=7.645E-06; EX(AWV1)=1.319E-05; EX(AEV1)=1.319E-05
 EX(APV1)=1.312E-02; EX(SUV1)=8.753E-06; EX(GAU1)=1.000E-03
 EX(ALU1)=1.532E-05; EX(AHU1)=1.532E-05; EX(ASU1)=1.397E-05
 EX(ANU1)=1.397E-05; EX(AWU1)=6.775E-06; EX(AEU1)=6.775E-06
 EX(APU1)=8.119E-03; EX(SUU1)=1.853E-05; EX(ALP1)=1.531E-05
 EX(AHP1)=1.531E-05; EX(ASP1)=1.532E-05; EX(ANP1)=1.532E-05
 EX(AWP1)=1.531E-05; EX(AEP1)=1.531E-05; EX(APP1)=8.000E-03
 EX(SUP1)=3.272E-08
STOP