2 Star 10 Fork 2

李诗尧 / WENO-2D

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
commomdata.f90 816 Bytes
一键复制 编辑 原始数据 按行查看 历史
李诗尧 提交于 2020-09-30 16:22 . 变量声明与常数设置
module commondata
implicit none
integer, parameter :: kn = 4
real*8, parameter :: pi = 3.1415926535898d0
real*8, parameter :: eps = 1.0d-20
real*8, parameter :: epsilon = 1.0d-20
integer :: FLG_continue, FLG_prob, FLG_split, FLG_order, FLG_recon
integer :: im, jn, nrk
integer :: ifs, jfs ! ǰ̨׽ǵλ
integer :: i, j, k
real*8 :: gamma, t_end, xlong, ylong, dx, dy, dt, tn, CFL
real*8, allocatable :: xr(:,:), ys(:,:), var(:,:,:), v0(:,:,:), v1(:,:,:), vtemp(:,:,:)
real*8, allocatable :: fxp(:,:,:), fxm(:,:,:), fyp(:,:,:), fym(:,:,:)
real*8, allocatable :: fx(:,:,:), fy(:,:,:)
! var--ԭʼ--rho, u, v, p, c
! v0,v1--غ--rho, rho*u, rho*v, E
! fp--ͨ; fm--ͨ; f--fluxͨ
end module commondata
FORTRAN
1
https://gitee.com/humbert_611/weno-2-d.git
git@gitee.com:humbert_611/weno-2-d.git
humbert_611
weno-2-d
WENO-2D
master

搜索帮助