#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