TALK=T;RUN(1,1) PHOTON USE p parphi 1 5000 1 gr ou x 1 con f2 x 1 fi;0.001 upause 1 con f5 x 1 fi;0.001 upause 1 con f8 x 1 fi;0.001 upause 1 con f11 x 1 fi;0.001 upause 1 con f14 x 1 fi;0.001 upause 1 con f17 x 1 fi;0.001 upause 1 con f20 x 1 fi;0.001 upause 1 con f23 x 1 fi;0.001 upause 1 con f26 x 1 fi;0.001 upause 1 con f29 x 1 fi;0.001 upause 1 ENDUSE DISPLAY This Q1 uses the multi-fluid model to simulate turbulence in the surface layer of a body of water subjected to a uniform shear stress. The process is time-dependent. A 2D population of fluids is used, the population-defining attributes being vertical velocity, v, and horizontal velocity, w. The geometrical grid is 1D, the discretized direction being vertical, of 1 meter length. The shear is simulated by filling the bottom cell with the fluid having the attributes v=0, w=0, and the top cell with the fluid having the attributes v=0, w=1 meter/second. The micro-mixing rate is set equal to RATE, prescribed as 1.0 hertz, times a constant: CONMIX. Mixing is simulated by setting the effective viscosity to 1.0 meter ** 2 /seconds. The geometrical grid is as shown below on the left and the 2D population grid as shown on the right. |--------| | T | v NV |--------| +0.5 |------|------|------|------|------| int | | ^ | | | | | | erv |--------| | |------|------|------|------|------| als | | IV | | | | | | |--------| | |------|------|------|------|------| | | | | IFLUID=IV+(IW-1)*NV | | |--------| | |------|------|------|------|------| | | 0.0 | b | | | | t | |--------| |------|------|------|------|------| | | | | | | | | |--------| y |------|------|------|------|------| | | | | | | | | |--------| ^ |------|------|------|------|------| | | | | | | | | | |--------| | -0.5|------|------|------|------|------| | B | | IW |--------| | 0.0 ------------> w 1.0 ---> z NW intervals ENDDIS sharbegin index 1 power 2 factor 0.00001 gradfac 0 sharend ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(1d ocean layer; 2d pop. ; v & w as PDAs ) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 14 ************************************************************ Group 2. Time dependence STEADY = F * Set overall time and no. of steps TFIRST =0. ;TLAST =10. FSTEP = 1 ;LSTEP = 10 TFRAC(1)=0.1 ;TFRAC(2)=0.2 TFRAC(3)=0.3 ;TFRAC(4)=0.4 TFRAC(5)=0.5 ;TFRAC(6)=0.6 TFRAC(7)=0.7 ;TFRAC(8)=0.8 TFRAC(9)=0.9 ;TFRAC(10)=1. ************************************************************ Group 3. X-Direction Grid Spacing CARTES = T NX = 1 XULAST =1. XFRAC(1)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 9 YVLAST =1. YFRAC(1)=0.111111 ;YFRAC(2)=0.222222 YFRAC(3)=0.333333 ;YFRAC(4)=0.444444 YFRAC(5)=0.555556 ;YFRAC(6)=0.666667 YFRAC(7)=0.777778 ;YFRAC(8)=0.888889 YFRAC(9)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 1 ZWLAST =1. ZFRAC(1)=1. ************************************************************ Group 6. Body-Fitted Coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd ONEPHS = T NAME(7)=W1 ;NAME(19)=VIST NAME(20)=F1 ;NAME(21)=F2 NAME(22)=F3 ;NAME(23)=F4 NAME(24)=F5 ;NAME(25)=F6 NAME(26)=F7 ;NAME(27)=F8 NAME(28)=F9 ;NAME(29)=F10 NAME(30)=F11 ;NAME(31)=F12 NAME(32)=F13 ;NAME(33)=F14 NAME(34)=F15 ;NAME(35)=F16 NAME(36)=F17 ;NAME(37)=F18 NAME(38)=F19 ;NAME(39)=F20 NAME(40)=F21 ;NAME(41)=F22 NAME(42)=F23 ;NAME(43)=F24 NAME(44)=F25 ;NAME(45)=F26 NAME(46)=F27 ;NAME(47)=F28 NAME(48)=F29 ;NAME(49)=F30 NAME(50)=F31 ;NAME(51)=F32 NAME(52)=F33 ;NAME(53)=F34 NAME(54)=F35 ;NAME(55)=F36 NAME(56)=F37 ;NAME(57)=F38 NAME(58)=F39 ;NAME(59)=F40 NAME(60)=F41 ;NAME(61)=F42 NAME(62)=F43 ;NAME(63)=F44 NAME(64)=F45 ;NAME(65)=F46 NAME(66)=F47 ;NAME(67)=F48 NAME(68)=F49 ;NAME(69)=F50 NAME(70)=F51 ;NAME(71)=F52 NAME(72)=F53 ;NAME(73)=F54 NAME(74)=F55 ;NAME(75)=F56 NAME(76)=F57 ;NAME(77)=F58 NAME(78)=F59 ;NAME(79)=F60 NAME(80)=F61 ;NAME(81)=F62 NAME(82)=F63 ;NAME(83)=F64 NAME(84)=F65 ;NAME(85)=F66 NAME(86)=F67 ;NAME(87)=F68 NAME(88)=F69 ;NAME(89)=F70 NAME(90)=F71 ;NAME(91)=F72 NAME(92)=F73 ;NAME(93)=F74 NAME(94)=F75 ;NAME(95)=F76 NAME(96)=F77 ;NAME(97)=F78 NAME(98)=F79 ;NAME(99)=F80 NAME(100)=F81 ;NAME(101)=F82 NAME(102)=F83 ;NAME(103)=F84 NAME(104)=F85 ;NAME(105)=F86 NAME(106)=F87 ;NAME(107)=F88 NAME(108)=F89 ;NAME(109)=F90 NAME(110)=F91 ;NAME(111)=F92 NAME(112)=F93 ;NAME(113)=F94 NAME(114)=F95 ;NAME(115)=F96 NAME(116)=F97 ;NAME(117)=F98 NAME(118)=F99 ;NAME(119)=F100 NAME(120)=F101 ;NAME(121)=F102 NAME(122)=F103 ;NAME(123)=F104 NAME(124)=F105 ;NAME(125)=F106 NAME(126)=F107 ;NAME(127)=F108 NAME(128)=F109 ;NAME(129)=F110 NAME(130)=F111 ;NAME(131)=F112 NAME(132)=F113 ;NAME(133)=F114 NAME(134)=F115 ;NAME(135)=F116 NAME(136)=F117 ;NAME(137)=F118 NAME(138)=F119 ;NAME(139)=F120 NAME(140)=F121 ;NAME(141)=FRSM NAME(142)=NETM ;NAME(143)=PGRD NAME(144)=FLSM ;NAME(145)=RMOA NAME(146)=RMSA ;NAME(147)=RMSO NAME(148)=AVER ;NAME(149)=AVEF NAME(150)=RATE * Y in SOLUTN argument list denotes: * 1-stored 2-solved 3-whole-field * 4-point-by-point 5-explicit 6-harmonic averaging SOLUTN(W1,Y,Y,N,N,N,Y) SOLUTN(VIST,Y,N,N,N,N,Y) SOLUTN(F1,Y,Y,N,N,N,Y) SOLUTN(F2,Y,Y,N,N,N,Y) SOLUTN(F3,Y,Y,N,N,N,Y) SOLUTN(F4,Y,Y,N,N,N,Y) SOLUTN(F5,Y,Y,N,N,N,Y) SOLUTN(F6,Y,Y,N,N,N,Y) SOLUTN(F7,Y,Y,N,N,N,Y) SOLUTN(F8,Y,Y,N,N,N,Y) SOLUTN(F9,Y,Y,N,N,N,Y) SOLUTN(F10,Y,Y,N,N,N,Y) SOLUTN(F11,Y,Y,N,N,N,Y) SOLUTN(F12,Y,Y,N,N,N,Y) SOLUTN(F13,Y,Y,N,N,N,Y) SOLUTN(F14,Y,Y,N,N,N,Y) SOLUTN(F15,Y,Y,N,N,N,Y) SOLUTN(F16,Y,Y,N,N,N,Y) SOLUTN(F17,Y,Y,N,N,N,Y) SOLUTN(F18,Y,Y,N,N,N,Y) SOLUTN(F19,Y,Y,N,N,N,Y) SOLUTN(F20,Y,Y,N,N,N,Y) SOLUTN(F21,Y,Y,N,N,N,Y) SOLUTN(F22,Y,Y,N,N,N,Y) SOLUTN(F23,Y,Y,N,N,N,Y) SOLUTN(F24,Y,Y,N,N,N,Y) SOLUTN(F25,Y,Y,N,N,N,Y) SOLUTN(F26,Y,Y,N,N,N,Y) SOLUTN(F27,Y,Y,N,N,N,Y) SOLUTN(F28,Y,Y,N,N,N,Y) SOLUTN(F29,Y,Y,N,N,N,Y) SOLUTN(F30,Y,Y,N,N,N,Y) SOLUTN(F31,Y,Y,N,N,N,Y) SOLUTN(F32,Y,Y,N,N,N,Y) SOLUTN(F33,Y,Y,N,N,N,Y) SOLUTN(F34,Y,Y,N,N,N,Y) SOLUTN(F35,Y,Y,N,N,N,Y) SOLUTN(F36,Y,Y,N,N,N,Y) SOLUTN(F37,Y,Y,N,N,N,Y) SOLUTN(F38,Y,Y,N,N,N,Y) SOLUTN(F39,Y,Y,N,N,N,Y) SOLUTN(F40,Y,Y,N,N,N,Y) SOLUTN(F41,Y,Y,N,N,N,Y) SOLUTN(F42,Y,Y,N,N,N,Y) SOLUTN(F43,Y,Y,N,N,N,Y) SOLUTN(F44,Y,Y,N,N,N,Y) SOLUTN(F45,Y,Y,N,N,N,Y) SOLUTN(F46,Y,Y,N,N,N,Y) SOLUTN(F47,Y,Y,N,N,N,Y) SOLUTN(F48,Y,Y,N,N,N,Y) SOLUTN(F49,Y,Y,N,N,N,Y) SOLUTN(F50,Y,Y,N,N,N,Y) SOLUTN(F51,Y,Y,N,N,N,Y) SOLUTN(F52,Y,Y,N,N,N,Y) SOLUTN(F53,Y,Y,N,N,N,Y) SOLUTN(F54,Y,Y,N,N,N,Y) SOLUTN(F55,Y,Y,N,N,N,Y) SOLUTN(F56,Y,Y,N,N,N,Y) SOLUTN(F57,Y,Y,N,N,N,Y) SOLUTN(F58,Y,Y,N,N,N,Y) SOLUTN(F59,Y,Y,N,N,N,Y) SOLUTN(F60,Y,Y,N,N,N,Y) SOLUTN(F61,Y,Y,N,N,N,Y) SOLUTN(F62,Y,Y,N,N,N,Y) SOLUTN(F63,Y,Y,N,N,N,Y) SOLUTN(F64,Y,Y,N,N,N,Y) SOLUTN(F65,Y,Y,N,N,N,Y) SOLUTN(F66,Y,Y,N,N,N,Y) SOLUTN(F67,Y,Y,N,N,N,Y) SOLUTN(F68,Y,Y,N,N,N,Y) SOLUTN(F69,Y,Y,N,N,N,Y) SOLUTN(F70,Y,Y,N,N,N,Y) SOLUTN(F71,Y,Y,N,N,N,Y) SOLUTN(F72,Y,Y,N,N,N,Y) SOLUTN(F73,Y,Y,N,N,N,Y) SOLUTN(F74,Y,Y,N,N,N,Y) SOLUTN(F75,Y,Y,N,N,N,Y) SOLUTN(F76,Y,Y,N,N,N,Y) SOLUTN(F77,Y,Y,N,N,N,Y) SOLUTN(F78,Y,Y,N,N,N,Y) SOLUTN(F79,Y,Y,N,N,N,Y) SOLUTN(F80,Y,Y,N,N,N,Y) SOLUTN(F81,Y,Y,N,N,N,Y) SOLUTN(F82,Y,Y,N,N,N,Y) SOLUTN(F83,Y,Y,N,N,N,Y) SOLUTN(F84,Y,Y,N,N,N,Y) SOLUTN(F85,Y,Y,N,N,N,Y) SOLUTN(F86,Y,Y,N,N,N,Y) SOLUTN(F87,Y,Y,N,N,N,Y) SOLUTN(F88,Y,Y,N,N,N,Y) SOLUTN(F89,Y,Y,N,N,N,Y) SOLUTN(F90,Y,Y,N,N,N,Y) SOLUTN(F91,Y,Y,N,N,N,Y) SOLUTN(F92,Y,Y,N,N,N,Y) SOLUTN(F93,Y,Y,N,N,N,Y) SOLUTN(F94,Y,Y,N,N,N,Y) SOLUTN(F95,Y,Y,N,N,N,Y) SOLUTN(F96,Y,Y,N,N,N,Y) SOLUTN(F97,Y,Y,N,N,N,Y) SOLUTN(F98,Y,Y,N,N,N,Y) SOLUTN(F99,Y,Y,N,N,N,Y) SOLUTN(F100,Y,Y,N,N,N,Y) SOLUTN(F101,Y,Y,N,N,N,Y) SOLUTN(F102,Y,Y,N,N,N,Y) SOLUTN(F103,Y,Y,N,N,N,Y) SOLUTN(F104,Y,Y,N,N,N,Y) SOLUTN(F105,Y,Y,N,N,N,Y) SOLUTN(F106,Y,Y,N,N,N,Y) SOLUTN(F107,Y,Y,N,N,N,Y) SOLUTN(F108,Y,Y,N,N,N,Y) SOLUTN(F109,Y,Y,N,N,N,Y) SOLUTN(F110,Y,Y,N,N,N,Y) SOLUTN(F111,Y,Y,N,N,N,Y) SOLUTN(F112,Y,Y,N,N,N,Y) SOLUTN(F113,Y,Y,N,N,N,Y) SOLUTN(F114,Y,Y,N,N,N,Y) SOLUTN(F115,Y,Y,N,N,N,Y) SOLUTN(F116,Y,Y,N,N,N,Y) SOLUTN(F117,Y,Y,N,N,N,Y) SOLUTN(F118,Y,Y,N,N,N,Y) SOLUTN(F119,Y,Y,N,N,N,Y) SOLUTN(F120,Y,Y,N,N,N,Y) SOLUTN(F121,Y,Y,N,N,N,Y) SOLUTN(FRSM,Y,N,N,N,N,Y) SOLUTN(NETM,Y,N,N,N,N,Y) SOLUTN(PGRD,Y,N,N,N,N,Y) SOLUTN(FLSM,Y,N,N,N,N,Y) SOLUTN(RMOA,Y,N,N,N,N,Y) SOLUTN(RMSA,Y,N,N,N,N,Y) SOLUTN(RMSO,Y,N,N,N,N,Y) SOLUTN(AVER,Y,N,N,N,N,Y) SOLUTN(AVEF,Y,N,N,N,N,Y) SOLUTN(RATE,Y,N,N,N,N,Y) VIST = 19 ************************************************************ Group 8. Terms & Devices * Y in TERMS argument list denotes: * 1-built-in source 2-convection 3-diffusion 4-transient * 5-first phase variable 6-interphase transport TERMS(W1,N,N,Y,Y,Y,Y) TERMS(F1,N,N,Y,Y,Y,N) TERMS(F2,N,N,Y,Y,Y,N) TERMS(F3,N,N,Y,Y,Y,N) TERMS(F4,N,N,Y,Y,Y,N) TERMS(F5,N,N,Y,Y,Y,N) TERMS(F6,N,N,Y,Y,Y,N) TERMS(F7,N,N,Y,Y,Y,N) TERMS(F8,N,N,Y,Y,Y,N) TERMS(F9,N,N,Y,Y,Y,N) TERMS(F10,N,N,Y,Y,Y,N) TERMS(F11,N,N,Y,Y,Y,N) TERMS(F12,N,N,Y,Y,Y,N) TERMS(F13,N,N,Y,Y,Y,N) TERMS(F14,N,N,Y,Y,Y,N) TERMS(F15,N,N,Y,Y,Y,N) TERMS(F16,N,N,Y,Y,Y,N) TERMS(F17,N,N,Y,Y,Y,N) TERMS(F18,N,N,Y,Y,Y,N) TERMS(F19,N,N,Y,Y,Y,N) TERMS(F20,N,N,Y,Y,Y,N) TERMS(F21,N,N,Y,Y,Y,N) TERMS(F22,N,N,Y,Y,Y,N) TERMS(F23,N,N,Y,Y,Y,N) TERMS(F24,N,N,Y,Y,Y,N) TERMS(F25,N,N,Y,Y,Y,N) TERMS(F26,N,N,Y,Y,Y,N) TERMS(F27,N,N,Y,Y,Y,N) TERMS(F28,N,N,Y,Y,Y,N) TERMS(F29,N,N,Y,Y,Y,N) TERMS(F30,N,N,Y,Y,Y,N) TERMS(F31,N,N,Y,Y,Y,N) TERMS(F32,N,N,Y,Y,Y,N) TERMS(F33,N,N,Y,Y,Y,N) TERMS(F34,N,N,Y,Y,Y,N) TERMS(F35,N,N,Y,Y,Y,N) TERMS(F36,N,N,Y,Y,Y,N) TERMS(F37,N,N,Y,Y,Y,N) TERMS(F38,N,N,Y,Y,Y,N) TERMS(F39,N,N,Y,Y,Y,N) TERMS(F40,N,N,Y,Y,Y,N) TERMS(F41,N,N,Y,Y,Y,N) TERMS(F42,N,N,Y,Y,Y,N) TERMS(F43,N,N,Y,Y,Y,N) TERMS(F44,N,N,Y,Y,Y,N) TERMS(F45,N,N,Y,Y,Y,N) TERMS(F46,N,N,Y,Y,Y,N) TERMS(F47,N,N,Y,Y,Y,N) TERMS(F48,N,N,Y,Y,Y,N) TERMS(F49,N,N,Y,Y,Y,N) TERMS(F50,N,N,Y,Y,Y,N) TERMS(F51,N,N,Y,Y,Y,N) TERMS(F52,N,N,Y,Y,Y,N) TERMS(F53,N,N,Y,Y,Y,N) TERMS(F54,N,N,Y,Y,Y,N) TERMS(F55,N,N,Y,Y,Y,N) TERMS(F56,N,N,Y,Y,Y,N) TERMS(F57,N,N,Y,Y,Y,N) TERMS(F58,N,N,Y,Y,Y,N) TERMS(F59,N,N,Y,Y,Y,N) TERMS(F60,N,N,Y,Y,Y,N) TERMS(F61,N,N,Y,Y,Y,N) TERMS(F62,N,N,Y,Y,Y,N) TERMS(F63,N,N,Y,Y,Y,N) TERMS(F64,N,N,Y,Y,Y,N) TERMS(F65,N,N,Y,Y,Y,N) TERMS(F66,N,N,Y,Y,Y,N) TERMS(F67,N,N,Y,Y,Y,N) TERMS(F68,N,N,Y,Y,Y,N) TERMS(F69,N,N,Y,Y,Y,N) TERMS(F70,N,N,Y,Y,Y,N) TERMS(F71,N,N,Y,Y,Y,N) TERMS(F72,N,N,Y,Y,Y,N) TERMS(F73,N,N,Y,Y,Y,N) TERMS(F74,N,N,Y,Y,Y,N) TERMS(F75,N,N,Y,Y,Y,N) TERMS(F76,N,N,Y,Y,Y,N) TERMS(F77,N,N,Y,Y,Y,N) TERMS(F78,N,N,Y,Y,Y,N) TERMS(F79,N,N,Y,Y,Y,N) TERMS(F80,N,N,Y,Y,Y,N) TERMS(F81,N,N,Y,Y,Y,N) TERMS(F82,N,N,Y,Y,Y,N) TERMS(F83,N,N,Y,Y,Y,N) TERMS(F84,N,N,Y,Y,Y,N) TERMS(F85,N,N,Y,Y,Y,N) TERMS(F86,N,N,Y,Y,Y,N) TERMS(F87,N,N,Y,Y,Y,N) TERMS(F88,N,N,Y,Y,Y,N) TERMS(F89,N,N,Y,Y,Y,N) TERMS(F90,N,N,Y,Y,Y,N) TERMS(F91,N,N,Y,Y,Y,N) TERMS(F92,N,N,Y,Y,Y,N) TERMS(F93,N,N,Y,Y,Y,N) TERMS(F94,N,N,Y,Y,Y,N) TERMS(F95,N,N,Y,Y,Y,N) TERMS(F96,N,N,Y,Y,Y,N) TERMS(F97,N,N,Y,Y,Y,N) TERMS(F98,N,N,Y,Y,Y,N) TERMS(F99,N,N,Y,Y,Y,N) TERMS(F100,N,N,Y,Y,Y,N) TERMS(F101,N,N,Y,Y,Y,N) TERMS(F102,N,N,Y,Y,Y,N) TERMS(F103,N,N,Y,Y,Y,N) TERMS(F104,N,N,Y,Y,Y,N) TERMS(F105,N,N,Y,Y,Y,N) TERMS(F106,N,N,Y,Y,Y,N) TERMS(F107,N,N,Y,Y,Y,N) TERMS(F108,N,N,Y,Y,Y,N) TERMS(F109,N,N,Y,Y,Y,N) TERMS(F110,N,N,Y,Y,Y,N) TERMS(F111,N,N,Y,Y,Y,N) TERMS(F112,N,N,Y,Y,Y,N) TERMS(F113,N,N,Y,Y,Y,N) TERMS(F114,N,N,Y,Y,Y,N) TERMS(F115,N,N,Y,Y,Y,N) TERMS(F116,N,N,Y,Y,Y,N) TERMS(F117,N,N,Y,Y,Y,N) TERMS(F118,N,N,Y,Y,Y,N) TERMS(F119,N,N,Y,Y,Y,N) TERMS(F120,N,N,Y,Y,Y,N) TERMS(F121,N,N,Y,Y,Y,N) DIFCUT =0.5 ;ZDIFAC =1. GALA = F ;ADDDIF = F ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1 ************************************************************ Group 9. Properties used if PRPS is not stored, and where PRPS = -1.0 if it is! RHO1 =1000. ;TMP1 =0. EL1 =0. TSURR =0. ;TEMP0 =0. PRESS0 =0. DVO1DT =0. ;DRH1DP =0. EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. ENUL =1.0E-05 ;ENUT =1. PRNDTL(W1)=1. ;PRNDTL(F1)=1. PRNDTL(F2)=1. ;PRNDTL(F3)=1. PRNDTL(F4)=1. ;PRNDTL(F5)=1. PRNDTL(F6)=1. ;PRNDTL(F7)=1. PRNDTL(F8)=1. ;PRNDTL(F9)=1. PRNDTL(F10)=1. ;PRNDTL(F11)=1. PRNDTL(F12)=1. ;PRNDTL(F13)=1. PRNDTL(F14)=1. ;PRNDTL(F15)=1. PRNDTL(F16)=1. ;PRNDTL(F17)=1. PRNDTL(F18)=1. ;PRNDTL(F19)=1. PRNDTL(F20)=1. ;PRNDTL(F21)=1. PRNDTL(F22)=1. ;PRNDTL(F23)=1. PRNDTL(F24)=1. ;PRNDTL(F25)=1. PRNDTL(F26)=1. ;PRNDTL(F27)=1. PRNDTL(F28)=1. ;PRNDTL(F29)=1. PRNDTL(F30)=1. ;PRNDTL(F31)=1. PRNDTL(F32)=1. ;PRNDTL(F33)=1. PRNDTL(F34)=1. ;PRNDTL(F35)=1. PRNDTL(F36)=1. ;PRNDTL(F37)=1. PRNDTL(F38)=1. ;PRNDTL(F39)=1. PRNDTL(F40)=1. ;PRNDTL(F41)=1. PRNDTL(F42)=1. ;PRNDTL(F43)=1. PRNDTL(F44)=1. ;PRNDTL(F45)=1. PRNDTL(F46)=1. ;PRNDTL(F47)=1. PRNDTL(F48)=1. ;PRNDTL(F49)=1. PRNDTL(F50)=1. ;PRNDTL(F51)=1. PRNDTL(F52)=1. ;PRNDTL(F53)=1. PRNDTL(F54)=1. ;PRNDTL(F55)=1. PRNDTL(F56)=1. ;PRNDTL(F57)=1. PRNDTL(F58)=1. ;PRNDTL(F59)=1. PRNDTL(F60)=1. ;PRNDTL(F61)=1. PRNDTL(F62)=1. ;PRNDTL(F63)=1. PRNDTL(F64)=1. ;PRNDTL(F65)=1. PRNDTL(F66)=1. ;PRNDTL(F67)=1. PRNDTL(F68)=1. ;PRNDTL(F69)=1. PRNDTL(F70)=1. ;PRNDTL(F71)=1. PRNDTL(F72)=1. ;PRNDTL(F73)=1. PRNDTL(F74)=1. ;PRNDTL(F75)=1. PRNDTL(F76)=1. ;PRNDTL(F77)=1. PRNDTL(F78)=1. ;PRNDTL(F79)=1. PRNDTL(F80)=1. ;PRNDTL(F81)=1. PRNDTL(F82)=1. ;PRNDTL(F83)=1. PRNDTL(F84)=1. ;PRNDTL(F85)=1. PRNDTL(F86)=1. ;PRNDTL(F87)=1. PRNDTL(F88)=1. ;PRNDTL(F89)=1. PRNDTL(F90)=1. ;PRNDTL(F91)=1. PRNDTL(F92)=1. ;PRNDTL(F93)=1. PRNDTL(F94)=1. ;PRNDTL(F95)=1. PRNDTL(F96)=1. ;PRNDTL(F97)=1. PRNDTL(F98)=1. ;PRNDTL(F99)=1. PRNDTL(F100)=1. ;PRNDTL(F101)=1. PRNDTL(F102)=1. ;PRNDTL(F103)=1. PRNDTL(F104)=1. ;PRNDTL(F105)=1. PRNDTL(F106)=1. ;PRNDTL(F107)=1. PRNDTL(F108)=1. ;PRNDTL(F109)=1. PRNDTL(F110)=1. ;PRNDTL(F111)=1. PRNDTL(F112)=1. ;PRNDTL(F113)=1. PRNDTL(F114)=1. ;PRNDTL(F115)=1. PRNDTL(F116)=1. ;PRNDTL(F117)=1. PRNDTL(F118)=1. ;PRNDTL(F119)=1. PRNDTL(F120)=1. ;PRNDTL(F121)=1. PRT(W1)=1. ;PRT(F1)=1. PRT(F2)=1. ;PRT(F3)=1. PRT(F4)=1. ;PRT(F5)=1. PRT(F6)=1. ;PRT(F7)=1. PRT(F8)=1. ;PRT(F9)=1. PRT(F10)=1. ;PRT(F11)=1. PRT(F12)=1. ;PRT(F13)=1. PRT(F14)=1. ;PRT(F15)=1. PRT(F16)=1. ;PRT(F17)=1. PRT(F18)=1. ;PRT(F19)=1. PRT(F20)=1. ;PRT(F21)=1. PRT(F22)=1. ;PRT(F23)=1. PRT(F24)=1. ;PRT(F25)=1. PRT(F26)=1. ;PRT(F27)=1. PRT(F28)=1. ;PRT(F29)=1. PRT(F30)=1. ;PRT(F31)=1. PRT(F32)=1. ;PRT(F33)=1. PRT(F34)=1. ;PRT(F35)=1. PRT(F36)=1. ;PRT(F37)=1. PRT(F38)=1. ;PRT(F39)=1. PRT(F40)=1. ;PRT(F41)=1. PRT(F42)=1. ;PRT(F43)=1. PRT(F44)=1. ;PRT(F45)=1. PRT(F46)=1. ;PRT(F47)=1. PRT(F48)=1. ;PRT(F49)=1. PRT(F50)=1. ;PRT(F51)=1. PRT(F52)=1. ;PRT(F53)=1. PRT(F54)=1. ;PRT(F55)=1. PRT(F56)=1. ;PRT(F57)=1. PRT(F58)=1. ;PRT(F59)=1. PRT(F60)=1. ;PRT(F61)=1. PRT(F62)=1. ;PRT(F63)=1. PRT(F64)=1. ;PRT(F65)=1. PRT(F66)=1. ;PRT(F67)=1. PRT(F68)=1. ;PRT(F69)=1. PRT(F70)=1. ;PRT(F71)=1. PRT(F72)=1. ;PRT(F73)=1. PRT(F74)=1. ;PRT(F75)=1. PRT(F76)=1. ;PRT(F77)=1. PRT(F78)=1. ;PRT(F79)=1. PRT(F80)=1. ;PRT(F81)=1. PRT(F82)=1. ;PRT(F83)=1. PRT(F84)=1. ;PRT(F85)=1. PRT(F86)=1. ;PRT(F87)=1. PRT(F88)=1. ;PRT(F89)=1. PRT(F90)=1. ;PRT(F91)=1. PRT(F92)=1. ;PRT(F93)=1. PRT(F94)=1. ;PRT(F95)=1. PRT(F96)=1. ;PRT(F97)=1. PRT(F98)=1. ;PRT(F99)=1. PRT(F100)=1. ;PRT(F101)=1. PRT(F102)=1. ;PRT(F103)=1. PRT(F104)=1. ;PRT(F105)=1. PRT(F106)=1. ;PRT(F107)=1. PRT(F108)=1. ;PRT(F109)=1. PRT(F110)=1. ;PRT(F111)=1. PRT(F112)=1. ;PRT(F113)=1. PRT(F114)=1. ;PRT(F115)=1. PRT(F116)=1. ;PRT(F117)=1. PRT(F118)=1. ;PRT(F119)=1. PRT(F120)=1. ;PRT(F121)=1. CP1 =1. ;CP2 =1. ************************************************************ Group 10.Inter-Phase Transfer Processes ************************************************************ Group 11.Initial field variables (PHIs) FIINIT(W1)=1.0E-10 ;FIINIT(VIST)=1. FIINIT(F1)=0. ;FIINIT(F2)=0. FIINIT(F3)=0. ;FIINIT(F4)=0. FIINIT(F5)=0. ;FIINIT(F6)=0. FIINIT(F7)=0. ;FIINIT(F8)=0. FIINIT(F9)=0. ;FIINIT(F10)=0. FIINIT(F11)=0. ;FIINIT(F12)=0. FIINIT(F13)=0. ;FIINIT(F14)=0. FIINIT(F15)=0. ;FIINIT(F16)=0. FIINIT(F17)=0. ;FIINIT(F18)=0. FIINIT(F19)=0. ;FIINIT(F20)=0. FIINIT(F21)=0. ;FIINIT(F22)=0. FIINIT(F23)=0. ;FIINIT(F24)=0. FIINIT(F25)=0. ;FIINIT(F26)=0. FIINIT(F27)=0. ;FIINIT(F28)=0. FIINIT(F29)=0. ;FIINIT(F30)=0. FIINIT(F31)=0. ;FIINIT(F32)=0. FIINIT(F33)=0. ;FIINIT(F34)=0. FIINIT(F35)=0. ;FIINIT(F36)=0. FIINIT(F37)=0. ;FIINIT(F38)=0. FIINIT(F39)=0. ;FIINIT(F40)=0. FIINIT(F41)=0. ;FIINIT(F42)=0. FIINIT(F43)=0. ;FIINIT(F44)=0. FIINIT(F45)=0. ;FIINIT(F46)=0. FIINIT(F47)=0. ;FIINIT(F48)=0. FIINIT(F49)=0. ;FIINIT(F50)=0. FIINIT(F51)=0. ;FIINIT(F52)=0. FIINIT(F53)=0. ;FIINIT(F54)=0. FIINIT(F55)=0. ;FIINIT(F56)=0. FIINIT(F57)=0. ;FIINIT(F58)=0. FIINIT(F59)=0. ;FIINIT(F60)=0. FIINIT(F61)=0. ;FIINIT(F62)=0. FIINIT(F63)=0. ;FIINIT(F64)=0. FIINIT(F65)=0. ;FIINIT(F66)=0. FIINIT(F67)=0. ;FIINIT(F68)=0. FIINIT(F69)=0. ;FIINIT(F70)=0. FIINIT(F71)=0. ;FIINIT(F72)=0. FIINIT(F73)=0. ;FIINIT(F74)=0. FIINIT(F75)=0. ;FIINIT(F76)=0. FIINIT(F77)=0. ;FIINIT(F78)=0. FIINIT(F79)=0. ;FIINIT(F80)=0. FIINIT(F81)=0. ;FIINIT(F82)=0. FIINIT(F83)=0. ;FIINIT(F84)=0. FIINIT(F85)=0. ;FIINIT(F86)=0. FIINIT(F87)=0. ;FIINIT(F88)=0. FIINIT(F89)=0. ;FIINIT(F90)=0. FIINIT(F91)=0. ;FIINIT(F92)=0. FIINIT(F93)=0. ;FIINIT(F94)=0. FIINIT(F95)=0. ;FIINIT(F96)=0. FIINIT(F97)=0. ;FIINIT(F98)=0. FIINIT(F99)=0. ;FIINIT(F100)=0. FIINIT(F101)=0. ;FIINIT(F102)=0. FIINIT(F103)=0. ;FIINIT(F104)=0. FIINIT(F105)=0. ;FIINIT(F106)=0. FIINIT(F107)=0. ;FIINIT(F108)=0. FIINIT(F109)=0. ;FIINIT(F110)=0. FIINIT(F111)=0. ;FIINIT(F112)=0. FIINIT(F113)=0. ;FIINIT(F114)=0. FIINIT(F115)=0. ;FIINIT(F116)=0. FIINIT(F117)=0. ;FIINIT(F118)=0. FIINIT(F119)=0. ;FIINIT(F120)=0. FIINIT(F121)=0. ;FIINIT(FRSM)=1.0E-10 FIINIT(NETM)=1.0E-10 ;FIINIT(PGRD)=1.0E-10 FIINIT(FLSM)=1.0E-10 ;FIINIT(RMOA)=1.0E-10 FIINIT(RMSA)=1.0E-10 ;FIINIT(RMSO)=1.0E-10 FIINIT(AVER)=1.0E-10 ;FIINIT(AVEF)=1.0E-10 FIINIT(RATE)=1. PATCH(TOPINIT ,INIVAL, 1, 1, 9, 9, 1, 1, 1, 1) INIT(TOPINIT ,F116, FIXVAL ,1. ) PATCH(BTMINIT ,INIVAL, 1, 1, 1, 1, 1, 1, 1, 1) INIT(BTMINIT ,F6 , FIXVAL ,1. ) INIADD = F FSWEEP = 1 NAMFI =CHAM ************************************************************ Group 12. Patchwise adjustment of terms Patches for this group are printed with those for Group 13. Their names begin either with GP12 or & ************************************************************ Group 13. Boundary & Special Sources PATCH(BOTTOM ,CELL , 1, 1, 1, 1, 1, 1, 1, 10) COVAL(BOTTOM ,W1 , FIXVAL ,0. ) COVAL(BOTTOM ,F1 , FIXVAL ,0. ) COVAL(BOTTOM ,F2 , FIXVAL ,0. ) COVAL(BOTTOM ,F3 , FIXVAL ,0. ) COVAL(BOTTOM ,F4 , FIXVAL ,0. ) COVAL(BOTTOM ,F5 , FIXVAL ,0. ) COVAL(BOTTOM ,F6 , FIXVAL ,1. ) COVAL(BOTTOM ,F7 , FIXVAL ,0. ) COVAL(BOTTOM ,F8 , FIXVAL ,0. ) COVAL(BOTTOM ,F9 , FIXVAL ,0. ) COVAL(BOTTOM ,F10 , FIXVAL ,0. ) COVAL(BOTTOM ,F11 , FIXVAL ,0. ) COVAL(BOTTOM ,F12 , FIXVAL ,0. ) COVAL(BOTTOM ,F13 , FIXVAL ,0. ) COVAL(BOTTOM ,F14 , FIXVAL ,0. ) COVAL(BOTTOM ,F15 , FIXVAL ,0. ) COVAL(BOTTOM ,F16 , FIXVAL ,0. ) COVAL(BOTTOM ,F17 , FIXVAL ,0. ) COVAL(BOTTOM ,F18 , FIXVAL ,0. ) COVAL(BOTTOM ,F19 , FIXVAL ,0. ) COVAL(BOTTOM ,F20 , FIXVAL ,0. ) COVAL(BOTTOM ,F21 , FIXVAL ,0. ) COVAL(BOTTOM ,F22 , FIXVAL ,0. ) COVAL(BOTTOM ,F23 , FIXVAL ,0. ) COVAL(BOTTOM ,F24 , FIXVAL ,0. ) COVAL(BOTTOM ,F25 , FIXVAL ,0. ) COVAL(BOTTOM ,F26 , FIXVAL ,0. ) COVAL(BOTTOM ,F27 , FIXVAL ,0. ) COVAL(BOTTOM ,F28 , FIXVAL ,0. ) COVAL(BOTTOM ,F29 , FIXVAL ,0. ) COVAL(BOTTOM ,F30 , FIXVAL ,0. ) COVAL(BOTTOM ,F31 , FIXVAL ,0. ) COVAL(BOTTOM ,F32 , FIXVAL ,0. ) COVAL(BOTTOM ,F33 , FIXVAL ,0. ) COVAL(BOTTOM ,F34 , FIXVAL ,0. ) COVAL(BOTTOM ,F35 , FIXVAL ,0. ) COVAL(BOTTOM ,F36 , FIXVAL ,0. ) COVAL(BOTTOM ,F37 , FIXVAL ,0. ) COVAL(BOTTOM ,F38 , FIXVAL ,0. ) COVAL(BOTTOM ,F39 , FIXVAL ,0. ) COVAL(BOTTOM ,F40 , FIXVAL ,0. ) COVAL(BOTTOM ,F41 , FIXVAL ,0. ) COVAL(BOTTOM ,F42 , FIXVAL ,0. ) COVAL(BOTTOM ,F43 , FIXVAL ,0. ) COVAL(BOTTOM ,F44 , FIXVAL ,0. ) COVAL(BOTTOM ,F45 , FIXVAL ,0. ) COVAL(BOTTOM ,F46 , FIXVAL ,0. ) COVAL(BOTTOM ,F47 , FIXVAL ,0. ) COVAL(BOTTOM ,F48 , FIXVAL ,0. ) COVAL(BOTTOM ,F49 , FIXVAL ,0. ) COVAL(BOTTOM ,F50 , FIXVAL ,0. ) COVAL(BOTTOM ,F51 , FIXVAL ,0. ) COVAL(BOTTOM ,F52 , FIXVAL ,0. ) COVAL(BOTTOM ,F53 , FIXVAL ,0. ) COVAL(BOTTOM ,F54 , FIXVAL ,0. ) COVAL(BOTTOM ,F55 , FIXVAL ,0. ) COVAL(BOTTOM ,F56 , FIXVAL ,0. ) COVAL(BOTTOM ,F57 , FIXVAL ,0. ) COVAL(BOTTOM ,F58 , FIXVAL ,0. ) COVAL(BOTTOM ,F59 , FIXVAL ,0. ) COVAL(BOTTOM ,F60 , FIXVAL ,0. ) COVAL(BOTTOM ,F61 , FIXVAL ,0. ) COVAL(BOTTOM ,F62 , FIXVAL ,0. ) COVAL(BOTTOM ,F63 , FIXVAL ,0. ) COVAL(BOTTOM ,F64 , FIXVAL ,0. ) COVAL(BOTTOM ,F65 , FIXVAL ,0. ) COVAL(BOTTOM ,F66 , FIXVAL ,0. ) COVAL(BOTTOM ,F67 , FIXVAL ,0. ) COVAL(BOTTOM ,F68 , FIXVAL ,0. ) COVAL(BOTTOM ,F69 , FIXVAL ,0. ) COVAL(BOTTOM ,F70 , FIXVAL ,0. ) COVAL(BOTTOM ,F71 , FIXVAL ,0. ) COVAL(BOTTOM ,F72 , FIXVAL ,0. ) COVAL(BOTTOM ,F73 , FIXVAL ,0. ) COVAL(BOTTOM ,F74 , FIXVAL ,0. ) COVAL(BOTTOM ,F75 , FIXVAL ,0. ) COVAL(BOTTOM ,F76 , FIXVAL ,0. ) COVAL(BOTTOM ,F77 , FIXVAL ,0. ) COVAL(BOTTOM ,F78 , FIXVAL ,0. ) COVAL(BOTTOM ,F79 , FIXVAL ,0. ) COVAL(BOTTOM ,F80 , FIXVAL ,0. ) COVAL(BOTTOM ,F81 , FIXVAL ,0. ) COVAL(BOTTOM ,F82 , FIXVAL ,0. ) COVAL(BOTTOM ,F83 , FIXVAL ,0. ) COVAL(BOTTOM ,F84 , FIXVAL ,0. ) COVAL(BOTTOM ,F85 , FIXVAL ,0. ) COVAL(BOTTOM ,F86 , FIXVAL ,0. ) COVAL(BOTTOM ,F87 , FIXVAL ,0. ) COVAL(BOTTOM ,F88 , FIXVAL ,0. ) COVAL(BOTTOM ,F89 , FIXVAL ,0. ) COVAL(BOTTOM ,F90 , FIXVAL ,0. ) COVAL(BOTTOM ,F91 , FIXVAL ,0. ) COVAL(BOTTOM ,F92 , FIXVAL ,0. ) COVAL(BOTTOM ,F93 , FIXVAL ,0. ) COVAL(BOTTOM ,F94 , FIXVAL ,0. ) COVAL(BOTTOM ,F95 , FIXVAL ,0. ) COVAL(BOTTOM ,F96 , FIXVAL ,0. ) COVAL(BOTTOM ,F97 , FIXVAL ,0. ) COVAL(BOTTOM ,F98 , FIXVAL ,0. ) COVAL(BOTTOM ,F99 , FIXVAL ,0. ) COVAL(BOTTOM ,F100, FIXVAL ,0. ) COVAL(BOTTOM ,F101, FIXVAL ,0. ) COVAL(BOTTOM ,F102, FIXVAL ,0. ) COVAL(BOTTOM ,F103, FIXVAL ,0. ) COVAL(BOTTOM ,F104, FIXVAL ,0. ) COVAL(BOTTOM ,F105, FIXVAL ,0. ) COVAL(BOTTOM ,F106, FIXVAL ,0. ) COVAL(BOTTOM ,F107, FIXVAL ,0. ) COVAL(BOTTOM ,F108, FIXVAL ,0. ) COVAL(BOTTOM ,F109, FIXVAL ,0. ) COVAL(BOTTOM ,F110, FIXVAL ,0. ) COVAL(BOTTOM ,F111, FIXVAL ,0. ) COVAL(BOTTOM ,F112, FIXVAL ,0. ) COVAL(BOTTOM ,F113, FIXVAL ,0. ) COVAL(BOTTOM ,F114, FIXVAL ,0. ) COVAL(BOTTOM ,F115, FIXVAL ,0. ) COVAL(BOTTOM ,F116, FIXVAL ,0. ) COVAL(BOTTOM ,F117, FIXVAL ,0. ) COVAL(BOTTOM ,F118, FIXVAL ,0. ) COVAL(BOTTOM ,F119, FIXVAL ,0. ) COVAL(BOTTOM ,F120, FIXVAL ,0. ) COVAL(BOTTOM ,F121, FIXVAL ,0. ) PATCH(TOP ,CELL , 1, 1, 9, 9, 1, 1, 1, 10) COVAL(TOP ,W1 , FIXVAL ,1. ) COVAL(TOP ,F1 , FIXVAL ,0. ) COVAL(TOP ,F2 , FIXVAL ,0. ) COVAL(TOP ,F3 , FIXVAL ,0. ) COVAL(TOP ,F4 , FIXVAL ,0. ) COVAL(TOP ,F5 , FIXVAL ,0. ) COVAL(TOP ,F6 , FIXVAL ,0. ) COVAL(TOP ,F7 , FIXVAL ,0. ) COVAL(TOP ,F8 , FIXVAL ,0. ) COVAL(TOP ,F9 , FIXVAL ,0. ) COVAL(TOP ,F10 , FIXVAL ,0. ) COVAL(TOP ,F11 , FIXVAL ,0. ) COVAL(TOP ,F12 , FIXVAL ,0. ) COVAL(TOP ,F13 , FIXVAL ,0. ) COVAL(TOP ,F14 , FIXVAL ,0. ) COVAL(TOP ,F15 , FIXVAL ,0. ) COVAL(TOP ,F16 , FIXVAL ,0. ) COVAL(TOP ,F17 , FIXVAL ,0. ) COVAL(TOP ,F18 , FIXVAL ,0. ) COVAL(TOP ,F19 , FIXVAL ,0. ) COVAL(TOP ,F20 , FIXVAL ,0. ) COVAL(TOP ,F21 , FIXVAL ,0. ) COVAL(TOP ,F22 , FIXVAL ,0. ) COVAL(TOP ,F23 , FIXVAL ,0. ) COVAL(TOP ,F24 , FIXVAL ,0. ) COVAL(TOP ,F25 , FIXVAL ,0. ) COVAL(TOP ,F26 , FIXVAL ,0. ) COVAL(TOP ,F27 , FIXVAL ,0. ) COVAL(TOP ,F28 , FIXVAL ,0. ) COVAL(TOP ,F29 , FIXVAL ,0. ) COVAL(TOP ,F30 , FIXVAL ,0. ) COVAL(TOP ,F31 , FIXVAL ,0. ) COVAL(TOP ,F32 , FIXVAL ,0. ) COVAL(TOP ,F33 , FIXVAL ,0. ) COVAL(TOP ,F34 , FIXVAL ,0. ) COVAL(TOP ,F35 , FIXVAL ,0. ) COVAL(TOP ,F36 , FIXVAL ,0. ) COVAL(TOP ,F37 , FIXVAL ,0. ) COVAL(TOP ,F38 , FIXVAL ,0. ) COVAL(TOP ,F39 , FIXVAL ,0. ) COVAL(TOP ,F40 , FIXVAL ,0. ) COVAL(TOP ,F41 , FIXVAL ,0. ) COVAL(TOP ,F42 , FIXVAL ,0. ) COVAL(TOP ,F43 , FIXVAL ,0. ) COVAL(TOP ,F44 , FIXVAL ,0. ) COVAL(TOP ,F45 , FIXVAL ,0. ) COVAL(TOP ,F46 , FIXVAL ,0. ) COVAL(TOP ,F47 , FIXVAL ,0. ) COVAL(TOP ,F48 , FIXVAL ,0. ) COVAL(TOP ,F49 , FIXVAL ,0. ) COVAL(TOP ,F50 , FIXVAL ,0. ) COVAL(TOP ,F51 , FIXVAL ,0. ) COVAL(TOP ,F52 , FIXVAL ,0. ) COVAL(TOP ,F53 , FIXVAL ,0. ) COVAL(TOP ,F54 , FIXVAL ,0. ) COVAL(TOP ,F55 , FIXVAL ,0. ) COVAL(TOP ,F56 , FIXVAL ,0. ) COVAL(TOP ,F57 , FIXVAL ,0. ) COVAL(TOP ,F58 , FIXVAL ,0. ) COVAL(TOP ,F59 , FIXVAL ,0. ) COVAL(TOP ,F60 , FIXVAL ,0. ) COVAL(TOP ,F61 , FIXVAL ,0. ) COVAL(TOP ,F62 , FIXVAL ,0. ) COVAL(TOP ,F63 , FIXVAL ,0. ) COVAL(TOP ,F64 , FIXVAL ,0. ) COVAL(TOP ,F65 , FIXVAL ,0. ) COVAL(TOP ,F66 , FIXVAL ,0. ) COVAL(TOP ,F67 , FIXVAL ,0. ) COVAL(TOP ,F68 , FIXVAL ,0. ) COVAL(TOP ,F69 , FIXVAL ,0. ) COVAL(TOP ,F70 , FIXVAL ,0. ) COVAL(TOP ,F71 , FIXVAL ,0. ) COVAL(TOP ,F72 , FIXVAL ,0. ) COVAL(TOP ,F73 , FIXVAL ,0. ) COVAL(TOP ,F74 , FIXVAL ,0. ) COVAL(TOP ,F75 , FIXVAL ,0. ) COVAL(TOP ,F76 , FIXVAL ,0. ) COVAL(TOP ,F77 , FIXVAL ,0. ) COVAL(TOP ,F78 , FIXVAL ,0. ) COVAL(TOP ,F79 , FIXVAL ,0. ) COVAL(TOP ,F80 , FIXVAL ,0. ) COVAL(TOP ,F81 , FIXVAL ,0. ) COVAL(TOP ,F82 , FIXVAL ,0. ) COVAL(TOP ,F83 , FIXVAL ,0. ) COVAL(TOP ,F84 , FIXVAL ,0. ) COVAL(TOP ,F85 , FIXVAL ,0. ) COVAL(TOP ,F86 , FIXVAL ,0. ) COVAL(TOP ,F87 , FIXVAL ,0. ) COVAL(TOP ,F88 , FIXVAL ,0. ) COVAL(TOP ,F89 , FIXVAL ,0. ) COVAL(TOP ,F90 , FIXVAL ,0. ) COVAL(TOP ,F91 , FIXVAL ,0. ) COVAL(TOP ,F92 , FIXVAL ,0. ) COVAL(TOP ,F93 , FIXVAL ,0. ) COVAL(TOP ,F94 , FIXVAL ,0. ) COVAL(TOP ,F95 , FIXVAL ,0. ) COVAL(TOP ,F96 , FIXVAL ,0. ) COVAL(TOP ,F97 , FIXVAL ,0. ) COVAL(TOP ,F98 , FIXVAL ,0. ) COVAL(TOP ,F99 , FIXVAL ,0. ) COVAL(TOP ,F100, FIXVAL ,0. ) COVAL(TOP ,F101, FIXVAL ,0. ) COVAL(TOP ,F102, FIXVAL ,0. ) COVAL(TOP ,F103, FIXVAL ,0. ) COVAL(TOP ,F104, FIXVAL ,0. ) COVAL(TOP ,F105, FIXVAL ,0. ) COVAL(TOP ,F106, FIXVAL ,0. ) COVAL(TOP ,F107, FIXVAL ,0. ) COVAL(TOP ,F108, FIXVAL ,0. ) COVAL(TOP ,F109, FIXVAL ,0. ) COVAL(TOP ,F110, FIXVAL ,0. ) COVAL(TOP ,F111, FIXVAL ,0. ) COVAL(TOP ,F112, FIXVAL ,0. ) COVAL(TOP ,F113, FIXVAL ,0. ) COVAL(TOP ,F114, FIXVAL ,0. ) COVAL(TOP ,F115, FIXVAL ,0. ) COVAL(TOP ,F116, FIXVAL ,1. ) COVAL(TOP ,F117, FIXVAL ,0. ) COVAL(TOP ,F118, FIXVAL ,0. ) COVAL(TOP ,F119, FIXVAL ,0. ) COVAL(TOP ,F120, FIXVAL ,0. ) COVAL(TOP ,F121, FIXVAL ,0. ) XCYCLE = F EGWF = T WALLCO = GRND2 ************************************************************ Group 14. Downstream Pressure For PARAB ************************************************************ Group 15. Terminate Sweeps LSWEEP = 200 ;ISWC1 = 1 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1 SELREF = F RESREF(W1)=1.0E-08 ;RESREF(F1)=0. RESREF(F2)=0. ;RESREF(F3)=1.0E-08 RESREF(F4)=1.0E-08 ;RESREF(F5)=1.0E-08 RESREF(F6)=1.0E-08 ;RESREF(F7)=1.0E-08 RESREF(F8)=1.0E-08 ;RESREF(F9)=1.0E-08 RESREF(F10)=1.0E-08 ;RESREF(F11)=1.0E-08 RESREF(F12)=1.0E-08 ;RESREF(F13)=1.0E-08 RESREF(F14)=1.0E-08 ;RESREF(F15)=1.0E-08 RESREF(F16)=1.0E-08 ;RESREF(F17)=1.0E-08 RESREF(F18)=1.0E-08 ;RESREF(F19)=1.0E-08 RESREF(F20)=1.0E-08 ;RESREF(F21)=1.0E-08 RESREF(F22)=1.0E-08 ;RESREF(F23)=1.0E-08 RESREF(F24)=1.0E-08 ;RESREF(F25)=1.0E-08 RESREF(F26)=1.0E-08 ;RESREF(F27)=1.0E-08 RESREF(F28)=1.0E-08 ;RESREF(F29)=1.0E-08 RESREF(F30)=1.0E-08 ;RESREF(F31)=1.0E-08 RESREF(F32)=1.0E-08 ;RESREF(F33)=1.0E-08 RESREF(F34)=1.0E-08 ;RESREF(F35)=1.0E-08 RESREF(F36)=1.0E-08 ;RESREF(F37)=1.0E-08 RESREF(F38)=1.0E-08 ;RESREF(F39)=1.0E-08 RESREF(F40)=1.0E-08 ;RESREF(F41)=1.0E-08 RESREF(F42)=1.0E-08 ;RESREF(F43)=1.0E-08 RESREF(F44)=1.0E-08 ;RESREF(F45)=1.0E-08 RESREF(F46)=1.0E-08 ;RESREF(F47)=1.0E-08 RESREF(F48)=1.0E-08 ;RESREF(F49)=1.0E-08 RESREF(F50)=1.0E-08 ;RESREF(F51)=1.0E-08 RESREF(F52)=1.0E-08 ;RESREF(F53)=1.0E-08 RESREF(F54)=1.0E-08 ;RESREF(F55)=1.0E-08 RESREF(F56)=1.0E-08 ;RESREF(F57)=1.0E-08 RESREF(F58)=1.0E-08 ;RESREF(F59)=1.0E-08 RESREF(F60)=1.0E-08 ;RESREF(F61)=1.0E-08 RESREF(F62)=1.0E-08 ;RESREF(F63)=1.0E-08 RESREF(F64)=1.0E-08 ;RESREF(F65)=1.0E-08 RESREF(F66)=1.0E-08 ;RESREF(F67)=1.0E-08 RESREF(F68)=1.0E-08 ;RESREF(F69)=1.0E-08 RESREF(F70)=1.0E-08 ;RESREF(F71)=1.0E-08 RESREF(F72)=1.0E-08 ;RESREF(F73)=1.0E-08 RESREF(F74)=1.0E-08 ;RESREF(F75)=1.0E-08 RESREF(F76)=1.0E-08 ;RESREF(F77)=1.0E-08 RESREF(F78)=1.0E-08 ;RESREF(F79)=1.0E-08 RESREF(F80)=1.0E-08 ;RESREF(F81)=1.0E-08 RESREF(F82)=1.0E-08 ;RESREF(F83)=1.0E-08 RESREF(F84)=1.0E-08 ;RESREF(F85)=1.0E-08 RESREF(F86)=1.0E-08 ;RESREF(F87)=1.0E-08 RESREF(F88)=1.0E-08 ;RESREF(F89)=1.0E-08 RESREF(F90)=1.0E-08 ;RESREF(F91)=1.0E-08 RESREF(F92)=1.0E-08 ;RESREF(F93)=1.0E-08 RESREF(F94)=1.0E-08 ;RESREF(F95)=1.0E-08 RESREF(F96)=1.0E-08 ;RESREF(F97)=1.0E-08 RESREF(F98)=1.0E-08 ;RESREF(F99)=1.0E-08 RESREF(F100)=1.0E-08 ;RESREF(F101)=1.0E-08 RESREF(F102)=1.0E-08 ;RESREF(F103)=1.0E-08 RESREF(F104)=1.0E-08 ;RESREF(F105)=1.0E-08 RESREF(F106)=1.0E-08 ;RESREF(F107)=1.0E-08 RESREF(F108)=1.0E-08 ;RESREF(F109)=1.0E-08 RESREF(F110)=1.0E-08 ;RESREF(F111)=1.0E-08 RESREF(F112)=1.0E-08 ;RESREF(F113)=1.0E-08 RESREF(F114)=1.0E-08 ;RESREF(F115)=1.0E-08 RESREF(F116)=1.0E-08 ;RESREF(F117)=1.0E-08 RESREF(F118)=1.0E-08 ;RESREF(F119)=1.0E-08 RESREF(F120)=1.0E-08 ;RESREF(F121)=1.0E-08 ************************************************************ Group 16. Terminate Iterations LITER(W1)=10 ;LITER(F1)=20 LITER(F2)=20 ;LITER(F3)=20 LITER(F4)=20 ;LITER(F5)=20 LITER(F6)=20 ;LITER(F7)=20 LITER(F8)=20 ;LITER(F9)=20 LITER(F10)=20 ;LITER(F11)=20 LITER(F12)=20 ;LITER(F13)=20 LITER(F14)=20 ;LITER(F15)=20 LITER(F16)=20 ;LITER(F17)=20 LITER(F18)=20 ;LITER(F19)=20 LITER(F20)=20 ;LITER(F21)=20 LITER(F22)=20 ;LITER(F23)=20 LITER(F24)=20 ;LITER(F25)=20 LITER(F26)=20 ;LITER(F27)=20 LITER(F28)=20 ;LITER(F29)=20 LITER(F30)=20 ;LITER(F31)=20 LITER(F32)=20 ;LITER(F33)=20 LITER(F34)=20 ;LITER(F35)=20 LITER(F36)=20 ;LITER(F37)=20 LITER(F38)=20 ;LITER(F39)=20 LITER(F40)=20 ;LITER(F41)=20 LITER(F42)=20 ;LITER(F43)=20 LITER(F44)=20 ;LITER(F45)=20 LITER(F46)=20 ;LITER(F47)=20 LITER(F48)=20 ;LITER(F49)=20 LITER(F50)=20 ;LITER(F51)=20 LITER(F52)=20 ;LITER(F53)=20 LITER(F54)=20 ;LITER(F55)=20 LITER(F56)=20 ;LITER(F57)=20 LITER(F58)=20 ;LITER(F59)=20 LITER(F60)=20 ;LITER(F61)=20 LITER(F62)=20 ;LITER(F63)=20 LITER(F64)=20 ;LITER(F65)=20 LITER(F66)=20 ;LITER(F67)=20 LITER(F68)=20 ;LITER(F69)=20 LITER(F70)=20 ;LITER(F71)=20 LITER(F72)=20 ;LITER(F73)=20 LITER(F74)=20 ;LITER(F75)=20 LITER(F76)=20 ;LITER(F77)=20 LITER(F78)=20 ;LITER(F79)=20 LITER(F80)=20 ;LITER(F81)=20 LITER(F82)=20 ;LITER(F83)=20 LITER(F84)=20 ;LITER(F85)=20 LITER(F86)=20 ;LITER(F87)=20 LITER(F88)=20 ;LITER(F89)=20 LITER(F90)=20 ;LITER(F91)=20 LITER(F92)=20 ;LITER(F93)=20 LITER(F94)=20 ;LITER(F95)=20 LITER(F96)=20 ;LITER(F97)=20 LITER(F98)=20 ;LITER(F99)=20 LITER(F100)=20 ;LITER(F101)=20 LITER(F102)=20 ;LITER(F103)=20 LITER(F104)=20 ;LITER(F105)=20 LITER(F106)=20 ;LITER(F107)=20 LITER(F108)=20 ;LITER(F109)=20 LITER(F110)=20 ;LITER(F111)=20 LITER(F112)=20 ;LITER(F113)=20 LITER(F114)=20 ;LITER(F115)=20 LITER(F116)=20 ;LITER(F117)=20 LITER(F118)=20 ;LITER(F119)=20 LITER(F120)=20 ;LITER(F121)=20 ENDIT(W1)=1.0E-03 ;ENDIT(F1)=1.0E-03 ENDIT(F2)=1.0E-03 ;ENDIT(F3)=1.0E-03 ENDIT(F4)=1.0E-03 ;ENDIT(F5)=1.0E-03 ENDIT(F6)=1.0E-03 ;ENDIT(F7)=1.0E-03 ENDIT(F8)=1.0E-03 ;ENDIT(F9)=1.0E-03 ENDIT(F10)=1.0E-03 ;ENDIT(F11)=1.0E-03 ENDIT(F12)=1.0E-03 ;ENDIT(F13)=1.0E-03 ENDIT(F14)=1.0E-03 ;ENDIT(F15)=1.0E-03 ENDIT(F16)=1.0E-03 ;ENDIT(F17)=1.0E-03 ENDIT(F18)=1.0E-03 ;ENDIT(F19)=1.0E-03 ENDIT(F20)=1.0E-03 ;ENDIT(F21)=1.0E-03 ENDIT(F22)=1.0E-03 ;ENDIT(F23)=1.0E-03 ENDIT(F24)=1.0E-03 ;ENDIT(F25)=1.0E-03 ENDIT(F26)=1.0E-03 ;ENDIT(F27)=1.0E-03 ENDIT(F28)=1.0E-03 ;ENDIT(F29)=1.0E-03 ENDIT(F30)=1.0E-03 ;ENDIT(F31)=1.0E-03 ENDIT(F32)=1.0E-03 ;ENDIT(F33)=1.0E-03 ENDIT(F34)=1.0E-03 ;ENDIT(F35)=1.0E-03 ENDIT(F36)=1.0E-03 ;ENDIT(F37)=1.0E-03 ENDIT(F38)=1.0E-03 ;ENDIT(F39)=1.0E-03 ENDIT(F40)=1.0E-03 ;ENDIT(F41)=1.0E-03 ENDIT(F42)=1.0E-03 ;ENDIT(F43)=1.0E-03 ENDIT(F44)=1.0E-03 ;ENDIT(F45)=1.0E-03 ENDIT(F46)=1.0E-03 ;ENDIT(F47)=1.0E-03 ENDIT(F48)=1.0E-03 ;ENDIT(F49)=1.0E-03 ENDIT(F50)=1.0E-03 ;ENDIT(F51)=1.0E-03 ENDIT(F52)=1.0E-03 ;ENDIT(F53)=1.0E-03 ENDIT(F54)=1.0E-03 ;ENDIT(F55)=1.0E-03 ENDIT(F56)=1.0E-03 ;ENDIT(F57)=1.0E-03 ENDIT(F58)=1.0E-03 ;ENDIT(F59)=1.0E-03 ENDIT(F60)=1.0E-03 ;ENDIT(F61)=1.0E-03 ENDIT(F62)=1.0E-03 ;ENDIT(F63)=1.0E-03 ENDIT(F64)=1.0E-03 ;ENDIT(F65)=1.0E-03 ENDIT(F66)=1.0E-03 ;ENDIT(F67)=1.0E-03 ENDIT(F68)=1.0E-03 ;ENDIT(F69)=1.0E-03 ENDIT(F70)=1.0E-03 ;ENDIT(F71)=1.0E-03 ENDIT(F72)=1.0E-03 ;ENDIT(F73)=1.0E-03 ENDIT(F74)=1.0E-03 ;ENDIT(F75)=1.0E-03 ENDIT(F76)=1.0E-03 ;ENDIT(F77)=1.0E-03 ENDIT(F78)=1.0E-03 ;ENDIT(F79)=1.0E-03 ENDIT(F80)=1.0E-03 ;ENDIT(F81)=1.0E-03 ENDIT(F82)=1.0E-03 ;ENDIT(F83)=1.0E-03 ENDIT(F84)=1.0E-03 ;ENDIT(F85)=1.0E-03 ENDIT(F86)=1.0E-03 ;ENDIT(F87)=1.0E-03 ENDIT(F88)=1.0E-03 ;ENDIT(F89)=1.0E-03 ENDIT(F90)=1.0E-03 ;ENDIT(F91)=1.0E-03 ENDIT(F92)=1.0E-03 ;ENDIT(F93)=1.0E-03 ENDIT(F94)=1.0E-03 ;ENDIT(F95)=1.0E-03 ENDIT(F96)=1.0E-03 ;ENDIT(F97)=1.0E-03 ENDIT(F98)=1.0E-03 ;ENDIT(F99)=1.0E-03 ENDIT(F100)=1.0E-03 ;ENDIT(F101)=1.0E-03 ENDIT(F102)=1.0E-03 ;ENDIT(F103)=1.0E-03 ENDIT(F104)=1.0E-03 ;ENDIT(F105)=1.0E-03 ENDIT(F106)=1.0E-03 ;ENDIT(F107)=1.0E-03 ENDIT(F108)=1.0E-03 ;ENDIT(F109)=1.0E-03 ENDIT(F110)=1.0E-03 ;ENDIT(F111)=1.0E-03 ENDIT(F112)=1.0E-03 ;ENDIT(F113)=1.0E-03 ENDIT(F114)=1.0E-03 ;ENDIT(F115)=1.0E-03 ENDIT(F116)=1.0E-03 ;ENDIT(F117)=1.0E-03 ENDIT(F118)=1.0E-03 ;ENDIT(F119)=1.0E-03 ENDIT(F120)=1.0E-03 ;ENDIT(F121)=1.0E-03 ************************************************************ Group 17. Relaxation RELAX(W1,FALSDT,1.) RELAX(VIST,LINRLX,1.) RELAX(F1,LINRLX,0.5) RELAX(F2,LINRLX,0.5) RELAX(F3,LINRLX,0.5) RELAX(F4,LINRLX,0.5) RELAX(F5,LINRLX,0.5) RELAX(F6,LINRLX,0.5) RELAX(F7,LINRLX,0.5) RELAX(F8,LINRLX,0.5) RELAX(F9,LINRLX,0.5) RELAX(F10,LINRLX,0.5) RELAX(F11,LINRLX,0.5) RELAX(F12,LINRLX,0.5) RELAX(F13,LINRLX,0.5) RELAX(F14,LINRLX,0.5) RELAX(F15,LINRLX,0.5) RELAX(F16,LINRLX,0.5) RELAX(F17,LINRLX,0.5) RELAX(F18,LINRLX,0.5) RELAX(F19,LINRLX,0.5) RELAX(F20,LINRLX,0.5) RELAX(F21,LINRLX,0.5) RELAX(F22,LINRLX,0.5) RELAX(F23,LINRLX,0.5) RELAX(F24,LINRLX,0.5) RELAX(F25,LINRLX,0.5) RELAX(F26,LINRLX,0.5) RELAX(F27,LINRLX,0.5) RELAX(F28,LINRLX,0.5) RELAX(F29,LINRLX,0.5) RELAX(F30,LINRLX,0.5) RELAX(F31,LINRLX,0.5) RELAX(F32,LINRLX,0.5) RELAX(F33,LINRLX,0.5) RELAX(F34,LINRLX,0.5) RELAX(F35,LINRLX,0.5) RELAX(F36,LINRLX,0.5) RELAX(F37,LINRLX,0.5) RELAX(F38,LINRLX,0.5) RELAX(F39,LINRLX,0.5) RELAX(F40,LINRLX,0.5) RELAX(F41,LINRLX,0.5) RELAX(F42,LINRLX,0.5) RELAX(F43,LINRLX,0.5) RELAX(F44,LINRLX,0.5) RELAX(F45,LINRLX,0.5) RELAX(F46,LINRLX,0.5) RELAX(F47,LINRLX,0.5) RELAX(F48,LINRLX,0.5) RELAX(F49,LINRLX,0.5) RELAX(F50,LINRLX,0.5) RELAX(F51,LINRLX,0.5) RELAX(F52,LINRLX,0.5) RELAX(F53,LINRLX,0.5) RELAX(F54,LINRLX,0.5) RELAX(F55,LINRLX,0.5) RELAX(F56,LINRLX,0.5) RELAX(F57,LINRLX,0.5) RELAX(F58,LINRLX,0.5) RELAX(F59,LINRLX,0.5) RELAX(F60,LINRLX,0.5) RELAX(F61,LINRLX,0.5) RELAX(F62,LINRLX,0.5) RELAX(F63,LINRLX,0.5) RELAX(F64,LINRLX,0.5) RELAX(F65,LINRLX,0.5) RELAX(F66,LINRLX,0.5) RELAX(F67,LINRLX,0.5) RELAX(F68,LINRLX,0.5) RELAX(F69,LINRLX,0.5) RELAX(F70,LINRLX,0.5) RELAX(F71,LINRLX,0.5) RELAX(F72,LINRLX,0.5) RELAX(F73,LINRLX,0.5) RELAX(F74,LINRLX,0.5) RELAX(F75,LINRLX,0.5) RELAX(F76,LINRLX,0.5) RELAX(F77,LINRLX,0.5) RELAX(F78,LINRLX,0.5) RELAX(F79,LINRLX,0.5) RELAX(F80,LINRLX,0.5) RELAX(F81,LINRLX,0.5) RELAX(F82,LINRLX,0.5) RELAX(F83,LINRLX,0.5) RELAX(F84,LINRLX,0.5) RELAX(F85,LINRLX,0.5) RELAX(F86,LINRLX,0.5) RELAX(F87,LINRLX,0.5) RELAX(F88,LINRLX,0.5) RELAX(F89,LINRLX,0.5) RELAX(F90,LINRLX,0.5) RELAX(F91,LINRLX,0.5) RELAX(F92,LINRLX,0.5) RELAX(F93,LINRLX,0.5) RELAX(F94,LINRLX,0.5) RELAX(F95,LINRLX,0.5) RELAX(F96,LINRLX,0.5) RELAX(F97,LINRLX,0.5) RELAX(F98,LINRLX,0.5) RELAX(F99,LINRLX,0.5) RELAX(F100,LINRLX,0.5) RELAX(F101,LINRLX,0.5) RELAX(F102,LINRLX,0.5) RELAX(F103,LINRLX,0.5) RELAX(F104,LINRLX,0.5) RELAX(F105,LINRLX,0.5) RELAX(F106,LINRLX,0.5) RELAX(F107,LINRLX,0.5) RELAX(F108,LINRLX,0.5) RELAX(F109,LINRLX,0.5) RELAX(F110,LINRLX,0.5) RELAX(F111,LINRLX,0.5) RELAX(F112,LINRLX,0.5) RELAX(F113,LINRLX,0.5) RELAX(F114,LINRLX,0.5) RELAX(F115,LINRLX,0.5) RELAX(F116,LINRLX,0.5) RELAX(F117,LINRLX,0.5) RELAX(F118,LINRLX,0.5) RELAX(F119,LINRLX,0.5) RELAX(F120,LINRLX,0.5) RELAX(F121,LINRLX,0.5) RELAX(FRSM,LINRLX,1.) RELAX(NETM,LINRLX,1.) RELAX(PGRD,LINRLX,1.) RELAX(FLSM,LINRLX,1.) RELAX(RMOA,LINRLX,1.) RELAX(RMSA,LINRLX,1.) RELAX(RMSO,LINRLX,1.) RELAX(AVER,LINRLX,1.) RELAX(AVEF,LINRLX,1.) RELAX(RATE,LINRLX,1.) OVRRLX =0. EXPERT = F ;NNORSL = F ************************************************************ Group 18. Limits VARMAX(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06 VARMAX(VIST)=1.0E+10 ;VARMIN(VIST)=-1.0E+10 VARMAX(F1)=1. ;VARMIN(F1)=0. VARMAX(F2)=1. ;VARMIN(F2)=0. VARMAX(F3)=1. ;VARMIN(F3)=0. VARMAX(F4)=1. ;VARMIN(F4)=0. VARMAX(F5)=1. ;VARMIN(F5)=0. VARMAX(F6)=1. ;VARMIN(F6)=0. VARMAX(F7)=1. ;VARMIN(F7)=0. VARMAX(F8)=1. ;VARMIN(F8)=0. VARMAX(F9)=1. ;VARMIN(F9)=0. VARMAX(F10)=1. ;VARMIN(F10)=0. VARMAX(F11)=1. ;VARMIN(F11)=0. VARMAX(F12)=1. ;VARMIN(F12)=0. VARMAX(F13)=1. ;VARMIN(F13)=0. VARMAX(F14)=1. ;VARMIN(F14)=0. VARMAX(F15)=1. ;VARMIN(F15)=0. VARMAX(F16)=1. ;VARMIN(F16)=0. VARMAX(F17)=1. ;VARMIN(F17)=0. VARMAX(F18)=1. ;VARMIN(F18)=0. VARMAX(F19)=1. ;VARMIN(F19)=0. VARMAX(F20)=1. ;VARMIN(F20)=0. VARMAX(F21)=1. ;VARMIN(F21)=0. VARMAX(F22)=1. ;VARMIN(F22)=0. VARMAX(F23)=1. ;VARMIN(F23)=0. VARMAX(F24)=1. ;VARMIN(F24)=0. VARMAX(F25)=1. ;VARMIN(F25)=0. VARMAX(F26)=1. ;VARMIN(F26)=0. VARMAX(F27)=1. ;VARMIN(F27)=0. VARMAX(F28)=1. ;VARMIN(F28)=0. VARMAX(F29)=1. ;VARMIN(F29)=0. VARMAX(F30)=1. ;VARMIN(F30)=0. VARMAX(F31)=1. ;VARMIN(F31)=0. VARMAX(F32)=1. ;VARMIN(F32)=0. VARMAX(F33)=1. ;VARMIN(F33)=0. VARMAX(F34)=1. ;VARMIN(F34)=0. VARMAX(F35)=1. ;VARMIN(F35)=0. VARMAX(F36)=1. ;VARMIN(F36)=0. VARMAX(F37)=1. ;VARMIN(F37)=0. VARMAX(F38)=1. ;VARMIN(F38)=0. VARMAX(F39)=1. ;VARMIN(F39)=0. VARMAX(F40)=1. ;VARMIN(F40)=0. VARMAX(F41)=1. ;VARMIN(F41)=0. VARMAX(F42)=1. ;VARMIN(F42)=0. VARMAX(F43)=1. ;VARMIN(F43)=0. VARMAX(F44)=1. ;VARMIN(F44)=0. VARMAX(F45)=1. ;VARMIN(F45)=0. VARMAX(F46)=1. ;VARMIN(F46)=0. VARMAX(F47)=1. ;VARMIN(F47)=0. VARMAX(F48)=1. ;VARMIN(F48)=0. VARMAX(F49)=1. ;VARMIN(F49)=0. VARMAX(F50)=1. ;VARMIN(F50)=0. VARMAX(F51)=1. ;VARMIN(F51)=0. VARMAX(F52)=1. ;VARMIN(F52)=0. VARMAX(F53)=1. ;VARMIN(F53)=0. VARMAX(F54)=1. ;VARMIN(F54)=0. VARMAX(F55)=1. ;VARMIN(F55)=0. VARMAX(F56)=1. ;VARMIN(F56)=0. VARMAX(F57)=1. ;VARMIN(F57)=0. VARMAX(F58)=1. ;VARMIN(F58)=0. VARMAX(F59)=1. ;VARMIN(F59)=0. VARMAX(F60)=1. ;VARMIN(F60)=0. VARMAX(F61)=1. ;VARMIN(F61)=0. VARMAX(F62)=1. ;VARMIN(F62)=0. VARMAX(F63)=1. ;VARMIN(F63)=0. VARMAX(F64)=1. ;VARMIN(F64)=0. VARMAX(F65)=1. ;VARMIN(F65)=0. VARMAX(F66)=1. ;VARMIN(F66)=0. VARMAX(F67)=1. ;VARMIN(F67)=0. VARMAX(F68)=1. ;VARMIN(F68)=0. VARMAX(F69)=1. ;VARMIN(F69)=0. VARMAX(F70)=1. ;VARMIN(F70)=0. VARMAX(F71)=1. ;VARMIN(F71)=0. VARMAX(F72)=1. ;VARMIN(F72)=0. VARMAX(F73)=1. ;VARMIN(F73)=0. VARMAX(F74)=1. ;VARMIN(F74)=0. VARMAX(F75)=1. ;VARMIN(F75)=0. VARMAX(F76)=1. ;VARMIN(F76)=0. VARMAX(F77)=1. ;VARMIN(F77)=0. VARMAX(F78)=1. ;VARMIN(F78)=0. VARMAX(F79)=1. ;VARMIN(F79)=0. VARMAX(F80)=1. ;VARMIN(F80)=0. VARMAX(F81)=1. ;VARMIN(F81)=0. VARMAX(F82)=1. ;VARMIN(F82)=0. VARMAX(F83)=1. ;VARMIN(F83)=0. VARMAX(F84)=1. ;VARMIN(F84)=0. VARMAX(F85)=1. ;VARMIN(F85)=0. VARMAX(F86)=1. ;VARMIN(F86)=0. VARMAX(F87)=1. ;VARMIN(F87)=0. VARMAX(F88)=1. ;VARMIN(F88)=0. VARMAX(F89)=1. ;VARMIN(F89)=0. VARMAX(F90)=1. ;VARMIN(F90)=0. VARMAX(F91)=1. ;VARMIN(F91)=0. VARMAX(F92)=1. ;VARMIN(F92)=0. VARMAX(F93)=1. ;VARMIN(F93)=0. VARMAX(F94)=1. ;VARMIN(F94)=0. VARMAX(F95)=1. ;VARMIN(F95)=0. VARMAX(F96)=1. ;VARMIN(F96)=0. VARMAX(F97)=1. ;VARMIN(F97)=0. VARMAX(F98)=1. ;VARMIN(F98)=0. VARMAX(F99)=1. ;VARMIN(F99)=0. VARMAX(F100)=1. ;VARMIN(F100)=0. VARMAX(F101)=1. ;VARMIN(F101)=0. VARMAX(F102)=1. ;VARMIN(F102)=0. VARMAX(F103)=1. ;VARMIN(F103)=0. VARMAX(F104)=1. ;VARMIN(F104)=0. VARMAX(F105)=1. ;VARMIN(F105)=0. VARMAX(F106)=1. ;VARMIN(F106)=0. VARMAX(F107)=1. ;VARMIN(F107)=0. VARMAX(F108)=1. ;VARMIN(F108)=0. VARMAX(F109)=1. ;VARMIN(F109)=0. VARMAX(F110)=1. ;VARMIN(F110)=0. VARMAX(F111)=1. ;VARMIN(F111)=0. VARMAX(F112)=1. ;VARMIN(F112)=0. VARMAX(F113)=1. ;VARMIN(F113)=0. VARMAX(F114)=1. ;VARMIN(F114)=0. VARMAX(F115)=1. ;VARMIN(F115)=0. VARMAX(F116)=1. ;VARMIN(F116)=0. VARMAX(F117)=1. ;VARMIN(F117)=0. VARMAX(F118)=1. ;VARMIN(F118)=0. VARMAX(F119)=1. ;VARMIN(F119)=0. VARMAX(F120)=1. ;VARMIN(F120)=0. VARMAX(F121)=1. ;VARMIN(F121)=0. VARMAX(FRSM)=1.0E+10 ;VARMIN(FRSM)=-1.0E+10 VARMAX(NETM)=1.0E+10 ;VARMIN(NETM)=-1.0E+10 VARMAX(PGRD)=1.0E+10 ;VARMIN(PGRD)=-1.0E+10 VARMAX(FLSM)=1.0E+10 ;VARMIN(FLSM)=-1.0E+10 VARMAX(RMOA)=1.0E+10 ;VARMIN(RMOA)=-1.0E+10 VARMAX(RMSA)=1.0E+10 ;VARMIN(RMSA)=-1.0E+10 VARMAX(RMSO)=1.0E+10 ;VARMIN(RMSO)=-1.0E+10 VARMAX(AVER)=1. ;VARMIN(AVER)=0. VARMAX(AVEF)=1. ;VARMIN(AVEF)=0. VARMAX(RATE)=1.0E+10 ;VARMIN(RATE)=-1.0E+10 ************************************************************ Group 19. Data transmitted to GROUND PARSOL = F ISG62 = 1 SPEDAT(SET,MFM,MFMMOD,C,MFM) SPEDAT(SET,MFM,NFLUIDS,I,121) SPEDAT(SET,MFM,NFLF,I,11) SPEDAT(SET,MFM,NFLR,I,11) SPEDAT(SET,MFM,CONMIX,R,100.) SPEDAT(SET,REALREAD,2DPOP,C,-5&5&0&10) ************************************************************ Group 20. Preliminary Printout ************************************************************ Group 21. Print-out of Variables INIFLD = T ;SUBWGR = F * Y in OUTPUT argument list denotes: * 1-field 2-correction-eq. monitor 3-selective dumping * 4-whole-field residual 5-spot-value table 6-residual table OUTPUT(W1,Y,N,Y,Y,Y,Y) OUTPUT(VIST,N,N,N,N,N,N) OUTPUT(F1,Y,Y,Y,Y,Y,Y) OUTPUT(F2,Y,Y,N,N,Y,Y) OUTPUT(F3,Y,Y,N,N,Y,Y) OUTPUT(F4,Y,Y,N,N,Y,Y) OUTPUT(F5,Y,Y,N,N,Y,Y) OUTPUT(F6,Y,Y,N,N,Y,Y) OUTPUT(F7,Y,Y,N,N,Y,Y) OUTPUT(F8,Y,Y,N,N,Y,Y) OUTPUT(F9,Y,Y,N,N,Y,Y) OUTPUT(F10,Y,Y,N,N,Y,Y) OUTPUT(F11,Y,Y,N,N,Y,Y) OUTPUT(F12,Y,Y,N,N,Y,Y) OUTPUT(F13,Y,Y,N,N,Y,Y) OUTPUT(F14,Y,Y,N,N,Y,Y) OUTPUT(F15,Y,Y,N,N,Y,Y) OUTPUT(F16,Y,Y,N,N,Y,Y) OUTPUT(F17,Y,Y,N,N,Y,Y) OUTPUT(F18,Y,Y,N,N,Y,Y) OUTPUT(F19,Y,Y,N,N,Y,Y) OUTPUT(F20,Y,Y,N,N,Y,Y) OUTPUT(F21,Y,Y,N,N,Y,Y) OUTPUT(F22,Y,Y,N,N,Y,Y) OUTPUT(F23,Y,Y,N,N,Y,Y) OUTPUT(F24,Y,Y,N,N,Y,Y) OUTPUT(F25,Y,Y,N,N,Y,Y) OUTPUT(F26,Y,Y,N,N,Y,Y) OUTPUT(F27,Y,Y,N,N,Y,Y) OUTPUT(F28,Y,Y,N,N,Y,Y) OUTPUT(F29,Y,Y,N,N,Y,Y) OUTPUT(F30,Y,Y,N,N,Y,Y) OUTPUT(F31,Y,Y,N,N,Y,Y) OUTPUT(F32,Y,Y,N,N,Y,Y) OUTPUT(F33,Y,Y,N,N,Y,Y) OUTPUT(F34,Y,Y,N,N,Y,Y) OUTPUT(F35,Y,Y,N,N,Y,Y) OUTPUT(F36,Y,Y,N,N,Y,Y) OUTPUT(F37,Y,Y,N,N,Y,Y) OUTPUT(F38,Y,Y,N,N,Y,Y) OUTPUT(F39,Y,Y,N,N,Y,Y) OUTPUT(F40,Y,Y,N,N,Y,Y) OUTPUT(F41,Y,Y,N,N,Y,Y) OUTPUT(F42,Y,Y,N,N,Y,Y) OUTPUT(F43,Y,Y,N,N,Y,Y) OUTPUT(F44,Y,Y,N,N,Y,Y) OUTPUT(F45,Y,Y,N,N,Y,Y) OUTPUT(F46,Y,Y,N,N,Y,Y) OUTPUT(F47,Y,Y,N,N,Y,Y) OUTPUT(F48,Y,Y,N,N,Y,Y) OUTPUT(F49,Y,Y,N,N,Y,Y) OUTPUT(F50,Y,Y,N,N,Y,Y) OUTPUT(F51,Y,Y,N,N,Y,Y) OUTPUT(F52,Y,Y,N,N,Y,Y) OUTPUT(F53,Y,Y,N,N,Y,Y) OUTPUT(F54,Y,Y,N,N,Y,Y) OUTPUT(F55,Y,Y,N,N,Y,Y) OUTPUT(F56,Y,Y,N,N,Y,Y) OUTPUT(F57,Y,Y,N,N,Y,Y) OUTPUT(F58,Y,Y,N,N,Y,Y) OUTPUT(F59,Y,Y,N,N,Y,Y) OUTPUT(F60,Y,Y,N,N,Y,Y) OUTPUT(F61,Y,Y,N,N,Y,Y) OUTPUT(F62,Y,Y,N,N,Y,Y) OUTPUT(F63,Y,Y,N,N,Y,Y) OUTPUT(F64,Y,Y,N,N,Y,Y) OUTPUT(F65,Y,Y,N,N,Y,Y) OUTPUT(F66,Y,Y,N,N,Y,Y) OUTPUT(F67,Y,Y,N,N,Y,Y) OUTPUT(F68,Y,Y,N,N,Y,Y) OUTPUT(F69,Y,Y,N,N,Y,Y) OUTPUT(F70,Y,Y,N,N,Y,Y) OUTPUT(F71,Y,Y,N,N,Y,Y) OUTPUT(F72,Y,Y,N,N,Y,Y) OUTPUT(F73,Y,Y,N,N,Y,Y) OUTPUT(F74,Y,Y,N,N,Y,Y) OUTPUT(F75,Y,Y,N,N,Y,Y) OUTPUT(F76,Y,Y,N,N,Y,Y) OUTPUT(F77,Y,Y,N,N,Y,Y) OUTPUT(F78,Y,Y,N,N,Y,Y) OUTPUT(F79,Y,Y,N,N,Y,Y) OUTPUT(F80,Y,Y,N,N,Y,Y) OUTPUT(F81,Y,Y,N,N,Y,Y) OUTPUT(F82,Y,Y,N,N,Y,Y) OUTPUT(F83,Y,Y,N,N,Y,Y) OUTPUT(F84,Y,Y,N,N,Y,Y) OUTPUT(F85,Y,Y,N,N,Y,Y) OUTPUT(F86,Y,Y,N,N,Y,Y) OUTPUT(F87,Y,Y,N,N,Y,Y) OUTPUT(F88,Y,Y,N,N,Y,Y) OUTPUT(F89,Y,Y,N,N,Y,Y) OUTPUT(F90,Y,Y,N,N,Y,Y) OUTPUT(F91,Y,Y,N,N,Y,Y) OUTPUT(F92,Y,Y,N,N,Y,Y) OUTPUT(F93,Y,Y,N,N,Y,Y) OUTPUT(F94,Y,Y,N,N,Y,Y) OUTPUT(F95,Y,Y,N,N,Y,Y) OUTPUT(F96,Y,Y,N,N,Y,Y) OUTPUT(F97,Y,Y,N,N,Y,Y) OUTPUT(F98,Y,Y,N,N,Y,Y) OUTPUT(F99,Y,Y,N,N,Y,Y) OUTPUT(F100,Y,Y,N,N,Y,Y) OUTPUT(F101,Y,Y,N,N,Y,Y) OUTPUT(F102,Y,Y,N,N,Y,Y) OUTPUT(F103,Y,Y,N,N,Y,Y) OUTPUT(F104,Y,Y,N,N,Y,Y) OUTPUT(F105,Y,Y,N,N,Y,Y) OUTPUT(F106,Y,Y,N,N,Y,Y) OUTPUT(F107,Y,Y,N,N,Y,Y) OUTPUT(F108,Y,Y,N,N,Y,Y) OUTPUT(F109,Y,Y,N,N,Y,Y) OUTPUT(F110,Y,Y,N,N,Y,Y) OUTPUT(F111,Y,Y,N,N,Y,Y) OUTPUT(F112,Y,Y,N,N,Y,Y) OUTPUT(F113,Y,Y,N,N,Y,Y) OUTPUT(F114,Y,Y,N,N,Y,Y) OUTPUT(F115,Y,Y,N,N,Y,Y) OUTPUT(F116,Y,Y,N,N,Y,Y) OUTPUT(F117,Y,Y,N,N,Y,Y) OUTPUT(F118,Y,Y,N,N,Y,Y) OUTPUT(F119,Y,Y,N,N,Y,Y) OUTPUT(F120,Y,Y,N,N,Y,Y) OUTPUT(F121,Y,Y,N,N,Y,Y) OUTPUT(FRSM,Y,N,Y,N,N,N) OUTPUT(NETM,Y,N,Y,N,N,N) OUTPUT(PGRD,Y,N,Y,N,N,N) OUTPUT(FLSM,Y,N,Y,N,N,N) OUTPUT(RMOA,Y,N,Y,N,N,N) OUTPUT(RMSA,Y,N,Y,N,N,N) OUTPUT(RMSO,Y,N,Y,N,N,N) OUTPUT(AVER,Y,N,Y,N,N,N) OUTPUT(AVEF,Y,N,Y,N,N,N) OUTPUT(RATE,N,N,N,N,N,N) ************************************************************ Group 22. Monitor Print-Out IXMON = 1 ;IYMON = 5 ;IZMON = 1 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1 UWATCH = T ;USTEER = T HIGHLO = F ************************************************************ Group 23.Field Print-Out & Plot Control NPRINT = 100000 ;NUMCLS = 5 NTPRIN = 100000 ;ISTPRF = 1 ;ISTPRL = 100000 NYPRIN = 1 ;IYPRF = 1 ;IYPRL = 10000 IPLTF = 1 ;IPLTL = -1 ;NPLT = -1 ISWPRF = 1 ;ISWPRL = 100000 ITABL = 1 ;IPROF = 1 ABSIZ =0.5 ;ORSIZ =0.2 NTZPRF = 1 ;NCOLPF = 50 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20 PATCH(Y ,PROFIL, 1, 1, 1, 9, 1, 1, 1, 1) PATCH(PLOT ,PROFIL, 1, 1, 1, 9, 1, 1, 1, 10) PLOT(PLOT ,W1 ,0. ,0. ) PLOT(PLOT ,AVER,0. ,0. ) PLOT(PLOT ,AVEF,0. ,0. ) PATCH(PLOT2 ,PROFIL, 1, 1, 1, 9, 1, 1, 1, 10) PLOT(PLOT2 ,F3 ,0. ,0. ) PLOT(PLOT2 ,F8 ,0. ,0. ) PLOT(PLOT2 ,F13 ,0. ,0. ) PLOT(PLOT2 ,F18 ,0. ,0. ) PLOT(PLOT2 ,F23 ,0. ,0. ) ************************************************************ Group 24. Dumps For Restarts SAVE = T ;NOWIPE = F NSAVE =CHAM IDISPA = 1 ;IDISPB = 0 ;IDISPC = 0 STOP