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

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: QMOMK_ALLOCATE_ARRAYS                                  C
4     !  Purpose: DES - Allocate 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     SUBROUTINE qmomk_allocate_arrays
14     
15       USE param
16       USE param1
17       USE indices
18       USE geometry
19       USE physprop
20       USE qmom_kinetic_equation
21     
22       IMPLICIT NONE
23     
24       !     Allocation of QMOMK arrays
25       !     See qmomb_mod.f for a description of the variables
26     
27       Allocate( QMOMK_N0(QMOMK_NN, DIMENSION_3, MMAX) )
28       Allocate( QMOMK_N1(QMOMK_NN, DIMENSION_3, MMAX) )
29     
30       Allocate( QMOMK_M0(QMOMK_NMOM, DIMENSION_3, MMAX) )
31       Allocate( QMOMK_M1(QMOMK_NMOM, DIMENSION_3, MMAX) )
32     
33       Allocate( QMOMK_U0(QMOMK_NN, DIMENSION_3, MMAX) )
34       Allocate( QMOMK_U1(QMOMK_NN, DIMENSION_3, MMAX) )
35     
36       Allocate( QMOMK_V0(QMOMK_NN, DIMENSION_3, MMAX) )
37       Allocate( QMOMK_V1(QMOMK_NN, DIMENSION_3, MMAX) )
38     
39       Allocate( QMOMK_W0(QMOMK_NN, DIMENSION_3, MMAX) )
40       Allocate( QMOMK_W1(QMOMK_NN, DIMENSION_3, MMAX) )
41     
42       Allocate( QMOMK_U_S(DIMENSION_3, MMAX) )
43       Allocate( QMOMK_V_S(DIMENSION_3, MMAX) )
44       Allocate( QMOMK_W_S(DIMENSION_3, MMAX) )
45     
46       Allocate( QMOMK_F_GS(QMOMK_NN, DIMENSION_3, MMAX) )
47       Allocate( QMOMK_TAU_DRAG(QMOMK_NN, DIMENSION_3, MMAX) )
48     
49       Allocate( QMOMK_COLLISION_TIME(DIMENSION_3, MMAX) )
50     
51       RETURN
52     END SUBROUTINE qmomk_allocate_arrays
53