Go to the source code of this file.
Functions/Subroutines | |
subroutine | fd1load |
subroutine | fd1interior (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, U, KN) |
subroutine | fd1interiorx (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, U, KN) |
subroutine | fd1interiory (N1, N2, N3, S1, E1, S2, E2, S3, E3, DY, U, KN) |
subroutine | fd1interiorz (N1, N2, N3, S1, E1, S2, E2, S3, E3, DZ, U, KN) |
subroutine | fd1interior2 (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, DY, U, KX, KY) |
subroutine | fd1interior3 (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, DY, DZ, U, KX, KY, KZ) |
subroutine | fd1grad3 (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, DY, DZ, U, GRADU) |
subroutine | fd1div3 (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, DY, DZ, UVEC, DIVU) |
subroutine | fd1div3all (N1, N2, N3, OPINTERVAL, DX, DY, DZ, UVHLEFT, UVHRIGHT, UVHFRONT, UVHBACK, UVHBOTTOM, UVHTOP, UVEC, DIVU) |
subroutine | fd1leftboundary (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, u0, Tau, U, KN) |
subroutine | fd1rightboundary (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, u0, Tau, U, KN) |
subroutine | fd1haloleft (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, U, KN, HL) |
subroutine | fd1haloright (N1, N2, N3, S1, E1, S2, E2, S3, E3, DX, U, KN, HR) |
subroutine | fd1halofront (N1, N2, N3, S1, E1, S2, E2, S3, E3, DY, U, KN, HL) |
subroutine | fd1haloback (N1, N2, N3, S1, E1, S2, E2, S3, E3, DY, U, KN, HL) |
subroutine | fd1halotop (N1, N2, N3, S1, E1, S2, E2, S3, E3, DZ, U, KN, HL) |
subroutine | fd1halobottom (N1, N2, N3, S1, E1, S2, E2, S3, E3, DZ, U, KN, HL) |
subroutine fd1div3 | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(3*n1*n2*n3), intent(in) | UVEC, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | DIVU | ||
) |
subroutine fd1div3all | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), dimension(6), intent(in) | OPINTERVAL, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(3*n2*n3), intent(in) | UVHLEFT, | ||
real(kind=8), dimension(3*n2*n3), intent(in) | UVHRIGHT, | ||
real(kind=8), dimension(3*n1*n3), intent(in) | UVHFRONT, | ||
real(kind=8), dimension(3*n1*n3), intent(in) | UVHBACK, | ||
real(kind=8), dimension(3*n1*n2), intent(in) | UVHBOTTOM, | ||
real(kind=8), dimension(3*n1*n2), intent(in) | UVHTOP, | ||
real(kind=8), dimension(3*n1*n2*n3), intent(in) | UVEC, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | DIVU | ||
) |
subroutine fd1grad3 | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(3*n1*n2*n3), intent(out) | GRADU | ||
) |
subroutine fd1haloback | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN, | ||
real(kind=8), dimension(n1*n3), intent(in) | HL | ||
) |
subroutine fd1halobottom | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN, | ||
real(kind=8), dimension(n1*n2), intent(in) | HL | ||
) |
subroutine fd1halofront | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN, | ||
real(kind=8), dimension(n1*n3), intent(in) | HL | ||
) |
subroutine fd1haloleft | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN, | ||
real(kind=8), dimension(n2*n3), intent(in) | HL | ||
) |
subroutine fd1haloright | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN, | ||
real(kind=8), dimension(n2*n3), intent(in) | HR | ||
) |
subroutine fd1halotop | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN, | ||
real(kind=8), dimension(n1*n2), intent(in) | HL | ||
) |
subroutine fd1interior | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN | ||
) |
subroutine fd1interior2 | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KX, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KY | ||
) |
subroutine fd1interior3 | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KX, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KY, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KZ | ||
) |
subroutine fd1interiorx | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN | ||
) |
subroutine fd1interiory | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DY, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN | ||
) |
subroutine fd1interiorz | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DZ, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN | ||
) |
subroutine fd1leftboundary | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | u0, | ||
real(kind=8), intent(in) | Tau, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN | ||
) |
subroutine fd1rightboundary | ( | integer(kind=8), intent(in) | N1, |
integer(kind=8), intent(in) | N2, | ||
integer(kind=8), intent(in) | N3, | ||
integer(kind=8), intent(in) | S1, | ||
integer(kind=8), intent(in) | E1, | ||
integer(kind=8), intent(in) | S2, | ||
integer(kind=8), intent(in) | E2, | ||
integer(kind=8), intent(in) | S3, | ||
integer(kind=8), intent(in) | E3, | ||
real(kind=8), intent(in) | DX, | ||
real(kind=8), intent(in) | u0, | ||
real(kind=8), intent(in) | Tau, | ||
real(kind=8), dimension(n1*n2*n3), intent(in) | U, | ||
real(kind=8), dimension(n1*n2*n3), intent(out) | KN | ||
) |