Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision 1.20 by molod, Tue Dec 14 19:56:44 2004 UTC | revision 1.21 by molod, Mon Feb 7 20:35:36 2005 UTC | |
---|---|---|
# | Line 311 C ************************************** | Line 311 C ************************************** |
311 | enddo | enddo |
312 | endif | endif |
313 | ||
314 | if (iudiag4.ne.0) then | c if (iudiag4.ne.0) then |
315 | do L = 1,lm | c do L = 1,lm |
316 | do j = 1,jm | c do j = 1,jm |
317 | do i = 1,im | c do i = 1,im |
318 | qdiag(i,j,iudiag4+L-1,bi,bj) = qdiag(i,j,iudiag4+L-1,bi,bj) + | c qdiag(i,j,iudiag4+L-1,bi,bj) = qdiag(i,j,iudiag4+L-1,bi,bj) + |
319 | . tmpimjm(i,j,L) | c . tmpimjm(i,j,L) |
320 | enddo | c enddo |
321 | enddo | c enddo |
322 | enddo | c enddo |
323 | endif | c endif |
324 | ||
325 | if (iolr.ne.0) then | if (iolr.ne.0) then |
326 | do j = 1,jm | do j = 1,jm |
# | Line 343 C ************************************** | Line 343 C ************************************** |
343 | nolr = nolr + 1 | nolr = nolr + 1 |
344 | nolrclr = nolrclr + 1 | nolrclr = nolrclr + 1 |
345 | ||
346 | nudiag4 = nudiag4 + 1 | c nudiag4 = nudiag4 + 1 |
347 | endif | endif |
348 | #endif | #endif |
349 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |