I am working on forced convection fluid flow.Using stream function formulation. I am using frotran code for programming but facing logical problem,I am praying anybodies help.The code I have written is
do i=1,m
do j=1,n
tmp(i,j)=0.25*(psi(j+1,i)+psi(j-1,i)+psi(j,i+1)+psi(j,i-1))
end do
end do
I am not sure is it right or wrong. Please help me!