1D-RANS/RANS_module.f90 at master · kyung-min-noh/1D-RANS · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
!-----------------------------------------------------------------------------------!
!
!   PROGRAM : RANS_module.f90
!
!   PURPOSE : Moudles for RANS with k-e model
!
!                                                                2016.11.17 K.Noh
!
!-----------------------------------------------------------------------------------!

        MODULE RANS_module

            INTEGER :: Ny, itmax
            REAL(KIND=8) :: del, dy, Re_tau, nu, u_tau, resi, tol
            REAL(KIND=8) :: Cm, Ce1, Ce2, Sk, Se, alpha, beta
            CHARACTER(LEN=65) :: file_name, path_name

            REAL(KIND=8),DIMENSION(:),ALLOCATABLE :: U, U_exac, Y, k, dis, nu_T,&
                                                     U_new, k_new, dis_new, prod


        END MODULE