Functions/Subroutines | |
subroutine | do_jacobi_u (u3, u3_old, RHS, viscosity, dx, dy, dz, dt, ex, ey, sx, sy, maxn, ex_max) |
subroutine | do_jacobi_v (v3, v3_old, RHS, viscosity, dx, dy, dz, dt, ex, ey, sx, sy, maxn, ex_max) |
subroutine | do_jacobi_w (w3, w3_old, RHS, viscosity, dx, dy, dz, dt, ex, ey, sx, sy, maxn, ex_max) |
subroutine | get_difference (ua, ub, ex, ey, ez, sx, sy, sz, diff) |
subroutine do_jacobi_u | ( | double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-2) | u3, |
double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-2) | u3_old, | ||
double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-2) | RHS, | ||
double precision, dimension(sx-2:ex+2,sy-2:ey+2,0:maxn) | viscosity, | ||
double precision | dx, | ||
double precision | dy, | ||
double precision | dz, | ||
double precision | dt, | ||
integer | ex, | ||
integer | ey, | ||
integer | sx, | ||
integer | sy, | ||
integer | maxn, | ||
integer | ex_max | ||
) |
subroutine do_jacobi_v | ( | double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-2) | v3, |
double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-2) | v3_old, | ||
double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-2) | RHS, | ||
double precision, dimension(sx-2:ex+2,sy-2:ey+2,0:maxn) | viscosity, | ||
double precision | dx, | ||
double precision | dy, | ||
double precision | dz, | ||
double precision | dt, | ||
integer | ex, | ||
integer | ey, | ||
integer | sx, | ||
integer | sy, | ||
integer | maxn, | ||
integer | ex_max | ||
) |
subroutine do_jacobi_w | ( | double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-1) | w3, |
double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-1) | w3_old, | ||
double precision, dimension(sx-1:ex+1,sy-1:ey+1,0:maxn-1) | RHS, | ||
double precision, dimension(sx-2:ex+2,sy-2:ey+2,0:maxn) | viscosity, | ||
double precision | dx, | ||
double precision | dy, | ||
double precision | dz, | ||
double precision | dt, | ||
integer | ex, | ||
integer | ey, | ||
integer | sx, | ||
integer | sy, | ||
integer | maxn, | ||
integer | ex_max | ||
) |
subroutine get_difference | ( | double precision, dimension(sx-1:ex+1,sy-1:ey+1,sz:ez) | ua, |
double precision, dimension(sx-1:ex+1,sy-1:ey+1,sz:ez) | ub, | ||
integer | ex, | ||
integer | ey, | ||
integer | ez, | ||
integer | sx, | ||
integer | sy, | ||
integer | sz, | ||
double precision | diff | ||
) |