#include "finclude/petscdef.h"
Functions/Subroutines | |
program | mainprogram |
subroutine | channel_output_uvw (u3, v3, w3, p, l, m, n, dx, dy, dz, filename) |
subroutine | channel_output_phi (phi, l, m, n, dx, dy, dz, filename) |
subroutine | channel_output2d (u3, v3, w3, p, phi, visc, l, m, n, dx, dy, dz, filename) |
subroutine | backup_channel (u2, v2, w2, conv0_u, conv1_u, conv0_v, conv1_v, conv0_w, conv1_w, pres_old, pres, phi, conv0_phi, conv1_phi, l, m, n, filename) |
subroutine | dataload_channel (u2, v2, w2, conv0_u, conv1_u, conv0_v, conv1_v, conv0_w, conv1_w, pres_old, pres, phi, conv0_phi, conv1_phi, l, m, n) |
subroutine backup_channel | ( | double precision, dimension(0:l,0:m,0:n-2) | u2, |
double precision, dimension(0:l,0:m,0:n-2) | v2, | ||
double precision, dimension(0:l,0:m,0:n-1) | w2, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv0_u, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv1_u, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv0_v, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv1_v, | ||
double precision, dimension(0:l,0:m,0:n-1) | conv0_w, | ||
double precision, dimension(0:l,0:m,0:n-1) | conv1_w, | ||
double precision, dimension(0:l,0:m,0:n) | pres_old, | ||
double precision, dimension(0:l,0:m,0:n) | pres, | ||
double precision, dimension(0:l,0:m,0:n) | phi, | ||
double precision, dimension(0:l,0:m,0:n) | conv0_phi, | ||
double precision, dimension(0:l,0:m,0:n) | conv1_phi, | ||
integer | l, | ||
integer | m, | ||
integer | n, | ||
character(len=60) | filename | ||
) |
subroutine channel_output2d | ( | double precision, dimension(0:l,0:m,0:n-2) | u3, |
double precision, dimension(0:l,0:m,0:n-2) | v3, | ||
double precision, dimension(0:l,0:m,0:n-1) | w3, | ||
double precision, dimension(0:l,0:m,0:n) | p, | ||
double precision, dimension(0:l,0:m,0:n) | phi, | ||
double precision, dimension(0:l,0:m,0:n) | visc, | ||
integer | l, | ||
integer | m, | ||
integer | n, | ||
double precision | dx, | ||
double precision | dy, | ||
double precision | dz, | ||
character(len=60) | filename | ||
) |
subroutine channel_output_phi | ( | double precision, dimension(0:l,0:m,0:n) | phi, |
integer | l, | ||
integer | m, | ||
integer | n, | ||
double precision | dx, | ||
double precision | dy, | ||
double precision | dz, | ||
character(len=60) | filename | ||
) |
subroutine channel_output_uvw | ( | double precision, dimension(0:l,0:m,0:n-2), intent(in) | u3, |
double precision, dimension(0:l,0:m,0:n-2), intent(in) | v3, | ||
double precision, dimension(0:l,0:m,0:n-1), intent(in) | w3, | ||
double precision, dimension(0:l,0:m,0:n), intent(in) | p, | ||
integer, intent(in) | l, | ||
integer, intent(in) | m, | ||
integer, intent(in) | n, | ||
double precision, intent(in) | dx, | ||
double precision, intent(in) | dy, | ||
double precision, intent(in) | dz, | ||
character(len=60), intent(in) | filename | ||
) |
subroutine dataload_channel | ( | double precision, dimension(0:l,0:m,0:n-2) | u2, |
double precision, dimension(0:l,0:m,0:n-2) | v2, | ||
double precision, dimension(0:l,0:m,0:n-1) | w2, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv0_u, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv1_u, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv0_v, | ||
double precision, dimension(0:l,0:m,0:n-2) | conv1_v, | ||
double precision, dimension(0:l,0:m,0:n-1) | conv0_w, | ||
double precision, dimension(0:l,0:m,0:n-1) | conv1_w, | ||
double precision, dimension(0:l,0:m,0:n) | pres_old, | ||
double precision, dimension(0:l,0:m,0:n) | pres, | ||
double precision, dimension(0:l,0:m,0:n) | phi, | ||
double precision, dimension(0:l,0:m,0:n) | conv0_phi, | ||
double precision, dimension(0:l,0:m,0:n) | conv1_phi, | ||
integer | l, | ||
integer | m, | ||
integer | n | ||
) |
program mainprogram | ( | ) |