Parent Directory | Revision Log | Revision Graph | Patch
revision 1.11 by heimbach, Sat Nov 4 14:28:09 2006 UTC | revision 1.12 by jmc, Tue Feb 5 15:31:19 2008 UTC | |
---|---|---|
# | Line 32 C !LOCAL VARIABLES: | Line 32 C !LOCAL VARIABLES: |
32 | C Zero out the qdiag array which accumulates during integration | C Zero out the qdiag array which accumulates during integration |
33 | DO bj = myByLo(myThid), myByHi(myThid) | DO bj = myByLo(myThid), myByHi(myThid) |
34 | DO bi = myBxLo(myThid), myBxHi(myThid) | DO bi = myBxLo(myThid), myBxHi(myThid) |
35 | DO k = 1,numdiags | DO k = 1,numDiags |
36 | DO j = 1-Oly,sNy+Oly | DO j = 1-Oly,sNy+Oly |
37 | DO i = 1-Olx,sNx+Olx | DO i = 1-Olx,sNx+Olx |
38 | qdiag(i,j,k,bi,bj) = 0. _d 0 | qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |