File: N:\mfix\model\qmomk\qmomk_init_namelist.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: QMOMK_INIT_NAMELIST                                    C
4     !  Purpose: Initializie namelist for QMOM                              C
5     !                                                                      C
6     !                                                                      C
7     !  Author: Alberto Passalacqua                        Date:            C
8     !  Reviewer:                                          Date:            C
9     !  Comments:                                                           C
10     !                                                                      C
11     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
12     
13     SUBROUTINE qmomk_init_namelist
14     
15       USE param1
16       USE qmom_kinetic_equation
17       Implicit none
18       INCLUDE 'qmomknamelist.inc'
19     
20       QMOMK = .FALSE.
21       QMOMK_TYPE = 'QMOM'
22       QMOMK_WALL_BC_TYPE = 'SPECULAR_REFLECTIVE'
23       QMOMK_COLLISIONS = 'BGK'
24       QMOMK_COUPLED = .TRUE.
25       QMOMK_CFL = 0.4
26       QMOMK_COLLISIONS_ORDER = 0
27      RETURN
28     
29     END SUBROUTINE qmomk_init_namelist
30