File: /nfs/home/0/users/jenkins/mfix.git/model/qmomk/qmomk_make_arrays.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: QMOMK_MAKE_ARRAYS                                      C
4     !  Purpose: DES - Initialize/Restart QMOMK arrays                      C
5     !                                                                      C
6     !                                                                      C
7     !  Author: Alberto Passalacqua                        Date:            C
8     !  Reviewer:                                          Date:            C
9     !  Comments:                                                           C
10     !                                                                      C
11     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
12     
13     
14     SUBROUTINE qmomk_make_arrays
15     
16       USE param1
17       USE geometry
18       USE funits
19       USE compar
20       USE qmom_kinetic_equation
21       USE run
22     
23       IMPLICIT NONE
24     
25       INTEGER CHECK_MPI
26     
27       IF(COORDINATES == 'CYLINDRICAL') THEN
28          WRITE (UNIT_LOG, *) ' '
29          WRITE (UNIT_LOG, *) 'Cylindrical coordinates are being used. STOP'
30          WRITE (UNIT_LOG, *) 'QMOMK should only be run using cartesian coordinates.'
31          WRITE (*, *) ' '
32          WRITE (*, *) 'Cylindrical coordinates are being used. STOP'
33          WRITE (*, *) 'QMOMK should only be run using cartesian coordinates.'
34          CALL MFIX_EXIT(myPE)
35       END IF
36     
37       CHECK_MPI = NODESI * NODESJ * NODESK
38       IF((CHECK_MPI.NE.1).AND.(QMOMK)) THEN
39          WRITE (UNIT_LOG, *) ' '
40          WRITE (UNIT_LOG, *) 'QMOMK being run on multiple processors. STOP'
41          WRITE (UNIT_LOG, *) 'QMOMK should only be run serially on one processor.'
42          WRITE (*, *) ' '
43          WRITE (*, *) 'QMOMK being run on multiple processors. STOP'
44          WRITE (*, *) 'QMOMK should only be run serially on one processor.'
45          CALL MFIX_EXIT(myPE)
46       END IF
47     
48       IF(RUN_TYPE == 'RESTART_1') THEN !  Read Restart
49          CALL QMOMK_READ_RESTART
50          WRITE(*,*) 'QMOMK_RES file read at Time= ', TIME
51          WRITE(UNIT_LOG,*) 'QMOMK_RES file read at Time= ', TIME
52       ELSE IF (RUN_TYPE == 'RESTART_2') THEN
53          WRITE(UNIT_LOG,*) 'Restart 2 is not implemented with QMOMK'
54          WRITE(*,*) 'Restart 2 is not implemented with QMOMK'
55          CALL MFIX_EXIT(myPE)
56       END IF
57     
58       RETURN
59     END SUBROUTINE qmomk_make_arrays
60