Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by stephd, Thu Aug 25 22:32:44 2005 UTC | revision 1.10 by stephd, Thu Oct 13 16:25:12 2005 UTC | |
---|---|---|
# | Line 235 C update | Line 235 C update |
235 | ENDDO | ENDDO |
236 | ENDDO | ENDDO |
237 | ||
238 | #ifdef ALLOW_FE | |
239 | #ifdef MINFE | |
240 | c find free iron and get rid of insoluble part | |
241 | call fe_chem(bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe, | |
242 | & myIter, mythid) | |
243 | #endif | |
244 | #endif | |
245 | ||
246 | ||
247 | #ifdef ALLOW_TIMEAVE | #ifdef ALLOW_TIMEAVE |
248 | c save averages | c save averages |
249 | DO k=1,Nr | DO k=1,Nr |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |