Better handling of nodisk

This commit is contained in:
Kurt Glaesmann 2009-12-07 20:26:17 +00:00
parent ff9a1eefa1
commit 7a4f967332

View file

@ -132,6 +132,7 @@ c dont use disk for grid pts
c
largenode=.true.
grid_file_open=.true.
if(oreopen)grid_file_open=.false.
return
endif
max_file_rec = nint((0.95*1024.0d0*availkb) /