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

یه کد فرترن برای پایان نامم که حل عددی هست نوشتم که در زمینه انتقال حرارت جابه جایی آزاد هستش درون محفظه ها،میخوام واسه هندسه خودم که دارای چاه و چشمه حرارتی گوشه های محفظه هستش، اصلاحش کنم یکمشو اصلاح کردم اما یه جاهایی ازش نتونستم درستش کنم میخواستم که اصلاح متناسب با هندسه پایان نامه  انجام بگیرد البته با توضیح اینکه مشکل کجا بوده و چجوری درستش کرده ،در ضمن کامل نوشتمش الگوریتم سیمپل هم نوشتم داخلش،فقط فکر کنم شرایط مرزیه یکم باید اصلاح بشه،شکل هندسه ها را داخل پیوست قرار دادم