Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by cnh, Wed Sep 26 18:09:14 2001 UTC | revision 1.4 by heimbach, Thu May 30 02:27:00 2002 UTC | |
---|---|---|
# | Line 44 C I, J, K - Loop counters | Line 44 C I, J, K - Loop counters |
44 | INTEGER i,j | INTEGER i,j |
45 | CEOP | CEOP |
46 | ||
47 | DO j=jMin,jMax | DO j = 1-Oly, sNy+Oly |
48 | DO i=iMin,iMax | DO i = 1-Olx, sNx+Olx |
49 | KappaRU(i,j,k) = viscAr | KappaRU(i,j,k) = viscAr |
50 | ENDDO | ENDDO |
51 | ENDDO | ENDDO |
52 | ||
53 | DO j=jMin,jMax | DO j = 1-Oly, sNy+Oly |
54 | DO i=iMin,iMax | DO i = 1-Olx, sNx+Olx |
55 | KappaRV(i,j,k) = viscAr | KappaRV(i,j,k) = viscAr |
56 | ENDDO | ENDDO |
57 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |