کد فورترن شبیه سازی کانوکشن طبیعی در یک محفظه مربعی به روش لتیس بولتزمن

در کد پیش رو که به زبان فورترن 90 نوشته شده است جریان کانوکشن (جابجایی) طبیعی در یک محفظه مربعی شکل دو بعدی به روش لتیس بولتزمن حل شده است. در این بررسی دو دیواره سمت راست و چپ دارای اختلاف دمای 100 بوده و همین اختلاف دما باعث به وجود آمدن جریان سیال درون محفظه می گردد. خروجی های کد به صورت بردارهای سرعت و مقدار دما در روی نقاط شبکه بندی 100 در 100 (که قابل تغییر نیز است) می باشد.