Nusselt number
Hello,
I tried to compute the mean Nusselt in a square cavity, but I miss where the mistake is, here is what I wrote: sunul1=0.0 do i=1,n do j=0,m rnull=(th(i-1,j)-th(i,j))*float(n) sunul1=sunul1+rnull write(12,*)j/float(m),rnull,sunul1 end do end do meannul=sunul1/float(m) print*, meannul Thanks |
All times are GMT -4. The time now is 13:27. |