Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.7 by heimbach, Mon Oct 27 22:32:55 2003 UTC | revision 1.8 by heimbach, Fri May 12 02:17:03 2006 UTC | |
|---|---|---|
| # | Line 165 c-- components of the given control va | Line 165 c-- components of the given control va |
| 165 | ncvarcomp = ncvarcomp*ncvarrecs(grdchkvarindex) | ncvarcomp = ncvarcomp*ncvarrecs(grdchkvarindex) |
| 166 | maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex) | maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex) |
| 167 | ||
| 168 | iwetsum(0) = 0 | |
| 169 | do bj = jtlo,jthi | |
| 170 | do bi = itlo,ithi | |
| 171 | do k = 1,ncvarnrmax(grdchkvarindex) | |
| 172 | iwetsum(k) = iwetsum(k-1) + nwettile(bi,bj,k,1) | |
| 173 | enddo | |
| 174 | enddo | |
| 175 | enddo | |
| 176 | ||
| 177 | _END_MASTER( mythid ) | _END_MASTER( mythid ) |
| 178 | ||
| 179 | _BARRIER | _BARRIER |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |