Parent Directory | Revision Log | Revision Graph | Patch
revision 1.24 by edhill, Fri Oct 22 21:30:31 2004 UTC | revision 1.25 by edhill, Sun Nov 14 03:34:35 2004 UTC | |
---|---|---|
# | Line 238 C based on the byte count per | Line 238 C based on the byte count per |
238 | fsnu = (1.0 _d 0 + 1.0 _d 0 / DBLE(unlim_sz)) | fsnu = (1.0 _d 0 + 1.0 _d 0 / DBLE(unlim_sz)) |
239 | & * DBLE(nbytes) | & * DBLE(nbytes) |
240 | IF (fsnu .GT. mnc_max_fsize) THEN | IF (fsnu .GT. mnc_max_fsize) THEN |
241 | C Delete the now-full fname from the lookup tables since | |
242 | C we are all done writing to it. | |
243 | CALL MNC_FILE_CLOSE(fname, myThid) | |
244 | iseq = iseq + 1 | iseq = iseq + 1 |
245 | indu = 1 | indu = 1 |
246 | mnc_cw_fgud(indfg) = 1 | mnc_cw_fgud(indfg) = 1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |