fields_f = fields_f + f_f_k * dt
!$omp parallel do default(shared) private(i,j,k)
LOOP
fields_f(i, j, k) = fields_f(i, j, k) + f_f_k(i, j, k) * dt
ENDLOOP
!$omp end parallel do
好像应该发在算法区的| 欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |