1 subroutine shell
(Re
,Pr
,nx
,ny
,nz
,
2 $nuim
,nuex2
,nuex4
,cfl
,scheme
,conf
,ni
,maxit
)
3 real*8 q
(5,nx
,ny
,nz
),dq
(5,nx
,ny
,nz
),rhs
(5,nx
,ny
,nz
),e
(5,nx
,ny
,nz
),
4 1 f
(5,nx
,ny
,nz
),g
(5,nx
,ny
,nz
),ev
(5,nx
,ny
,nz
),fv
(5,nx
,ny
,nz
),
5 2 gv
(5,nx
,ny
,nz
),diss
(5,nx
,ny
,nz
)
11 3 (g
(l
,i
,j
,kp1
)-g
(l
,i
,j
,km1
))/dz
) +
12 4 dt
/Re*
((ev
(l
,i
,j
,k
)-ev
(l
,im1
,j
,k
))/dx
+
13 6 (gv
(l
,i
,j
,k
)-gv
(l
,i
,j
,km1
))/dz
)