Lines Matching refs:id
94 do id=1,npro
95 rsq=xx(id,1)*xx(id,1) + xx(id,2)*xx(id,2)
97 bcool(id)=grthOSponge*(rsq-zoutSponge)**2
98 bcool(id)=min(bcool(id),betamax)
100 den = ytargeti(id,1) / (Rgas * ytargeti(id,5))
101 ei = ytargeti(id,5) * ( Rgas / gamma1 )
102 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
103 & +ytargeti(id,4)**2 )
105 duitarg(id,1) = den
106 duitarg(id,2) = den * ytargeti(id,2)
107 duitarg(id,3) = den * ytargeti(id,3)
108 duitarg(id,4) = den * ytargeti(id,4)
109 duitarg(id,5) = den * (ei + rk)
112 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
114 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
116 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
118 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
120 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))
131 do id=1,npro
132 radsqr=xx(id,2)**2+xx(id,1)**2
133 if(xx(id,3).lt. zinSponge) then ! map this into big outflow
137 xx(id,3)=(zinSponge-xx(id,3))*CoefRatioI2O
145 if((xx(id,3).gt.zoutSponge).or.(radsqr.gt.radsts)) then
148 zval=max(xx(id,3),zoutSponge)
149 bcool(id)=grthOSponge*((zval-zoutSponge)**2
151 bcool(id)=min(bcool(id),betamax)
153 den = ytargeti(id,1) / (Rgas * ytargeti(id,5))
154 ei = ytargeti(id,5) * ( Rgas / gamma1 )
155 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
156 & +ytargeti(id,4)**2 )
158 duitarg(id,1) = den
159 duitarg(id,2) = den * ytargeti(id,2)
160 duitarg(id,3) = den * ytargeti(id,3)
161 duitarg(id,4) = den * ytargeti(id,4)
162 duitarg(id,5) = den * (ei + rk)
165 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
167 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
169 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
171 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
173 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))