Lines Matching refs:n
96 do n = 1, nshl
97 dui(:,1) = dui(:,1) + shape(:,n) * yl(:,n,1) ! p
98 dui(:,2) = dui(:,2) + shape(:,n) * yl(:,n,2) ! u1
99 dui(:,3) = dui(:,3) + shape(:,n) * yl(:,n,3) ! u2
100 dui(:,4) = dui(:,4) + shape(:,n) * yl(:,n,4) ! u3
101 dui(:,5) = dui(:,5) + shape(:,n) * yl(:,n,5) ! T
114 do n = 1, nshl
115 Sclr = Sclr + shape(:,n) * ycl(:,n,isc)
147 do n = 1, nshl
151 pres = pres + shape(:,n) * ycl(:,n,1)
152 u1 = u1 + shape(:,n) * ycl(:,n,2)
153 u2 = u2 + shape(:,n) * ycl(:,n,3)
154 u3 = u3 + shape(:,n) * ycl(:,n,4)
155 T = T + shape(:,n) * ycl(:,n,5)
160 do n = 1, nshl
162 rlsli(:,1) = rlsli(:,1) + shape(:,n) * rlsl(:,n,1)
163 rlsli(:,2) = rlsli(:,2) + shape(:,n) * rlsl(:,n,2)
164 rlsli(:,3) = rlsli(:,3) + shape(:,n) * rlsl(:,n,3)
165 rlsli(:,4) = rlsli(:,4) + shape(:,n) * rlsl(:,n,4)
166 rlsli(:,5) = rlsli(:,5) + shape(:,n) * rlsl(:,n,5)
167 rlsli(:,6) = rlsli(:,6) + shape(:,n) * rlsl(:,n,6)
188 do n = 1, nshl
189 aci(:,1) = aci(:,1) + shape(:,n) * acl(:,n,1)
190 aci(:,2) = aci(:,2) + shape(:,n) * acl(:,n,2)
191 aci(:,3) = aci(:,3) + shape(:,n) * acl(:,n,3)
192 aci(:,4) = aci(:,4) + shape(:,n) * acl(:,n,4)
193 aci(:,5) = aci(:,5) + shape(:,n) * acl(:,n,5)
213 do n = 1, nshl
214 Sclr = Sclr + shape(:,n) * ycl(:,n,isc)
336 do n = 1, nshl
337 g1yi(:,1) = g1yi(:,1) + shg(:,n,1) * yl(:,n,1)
338 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * yl(:,n,2)
339 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * yl(:,n,3)
340 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * yl(:,n,4)
341 g1yi(:,5) = g1yi(:,5) + shg(:,n,1) * yl(:,n,5)
343 g2yi(:,1) = g2yi(:,1) + shg(:,n,2) * yl(:,n,1)
344 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * yl(:,n,2)
345 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * yl(:,n,3)
346 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * yl(:,n,4)
347 g2yi(:,5) = g2yi(:,5) + shg(:,n,2) * yl(:,n,5)
349 g3yi(:,1) = g3yi(:,1) + shg(:,n,3) * yl(:,n,1)
350 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * yl(:,n,2)
351 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * yl(:,n,3)
352 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * yl(:,n,4)
353 g3yi(:,5) = g3yi(:,5) + shg(:,n,3) * yl(:,n,5)
376 do n=1, nshl
378 divqi(:,1) = divqi(:,1) + shg(:,n,1)*ql(:,n,1 )
379 & + shg(:,n,2)*ql(:,n,5 )
380 & + shg(:,n,3)*ql(:,n,9 )
382 divqi(:,2) = divqi(:,2) + shg(:,n,1)*ql(:,n,2 )
383 & + shg(:,n,2)*ql(:,n,6 )
384 & + shg(:,n,3)*ql(:,n,10)
386 divqi(:,3) = divqi(:,3) + shg(:,n,1)*ql(:,n,3 )
387 & + shg(:,n,2)*ql(:,n,7 )
388 & + shg(:,n,3)*ql(:,n,11)
390 divqi(:,4) = divqi(:,4) + shg(:,n,1)*ql(:,n,4 )
391 & + shg(:,n,2)*ql(:,n,8 )
392 & + shg(:,n,3)*ql(:,n,12)
399 do n=1, nshl
401 & + shg(:,n,1)*ql(:,n,idflx-2)
402 & + shg(:,n,2)*ql(:,n,idflx-1)
403 & + shg(:,n,3)*ql(:,n,idflx)
411 do n = 1, nshl
412 Sclr(i) = Sclr(i) + shape(i,n) * ycl(i,n,6) !scalar
416 gyti(i,1) = gyti(i,1) + shg(i,n,1) * ycl(i,n,6)
417 gyti(i,2) = gyti(i,2) + shg(i,n,2) * ycl(i,n,6)
418 gyti(i,3) = gyti(i,3) + shg(i,n,3) * ycl(i,n,6)
597 do n = 1, nshl
601 pres = pres + shape(:,n) * ycl( :,n,1)
602 u1 = u1 + shape(:,n) * ycl( :,n,2)
603 u2 = u2 + shape(:,n) * ycl( :,n,3)
604 u3 = u3 + shape(:,n) * ycl( :,n,4)
605 T = T + shape(:,n) * ycl( :,n,5)
606 Sclr = Sclr + shape(:,n) * ycl(:,n,id)
608 dist2w = dist2w + shape(:,n) * dwl(:,n)
623 do n = 1, nshl
624 acti(:) = acti(:) + shape(:,n) * acl(:,n,id)
677 do n = 1, nshl
679 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * ycl(:,n,2)
680 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * ycl(:,n,3)
681 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * ycl(:,n,4)
685 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * ycl(:,n,2)
686 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * ycl(:,n,3)
687 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * ycl(:,n,4)
691 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * ycl(:,n,2)
692 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * ycl(:,n,3)
693 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * ycl(:,n,4)
709 do n = 1, nshl
710 g1yti(:) = g1yti(:) + shg(:,n,1) * ycl(:,n,id)
711 g2yti(:) = g2yti(:) + shg(:,n,2) * ycl(:,n,id)
712 g3yti(:) = g3yti(:) + shg(:,n,3) * ycl(:,n,id)