qmomk_allocate_arrays.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: QMOMK_ALLOCATE_ARRAYS                                  C
!  Purpose: DES - Allocate QMOMK arrays                                C
!                                                                      C
!                                                                      C
!  Author: Alberto Passalacqua                        Date:            C
!  Reviewer:                                          Date:            C
!  Comments:                                                           C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C

SUBROUTINE qmomk_allocate_arrays

  USE param
  USE param1
  USE indices
  USE geometry
  USE physprop
  USE qmom_kinetic_equation

  IMPLICIT NONE

  !     Allocation of QMOMK arrays
  !     See qmomb_mod.f for a description of the variables

  Allocate( qmomk_n0(qmomk_nn, dimension_3, mmax) )
  Allocate( qmomk_n1(qmomk_nn, dimension_3, mmax) )

  Allocate( qmomk_m0(qmomk_nmom, dimension_3, mmax) )
  Allocate( qmomk_m1(qmomk_nmom, dimension_3, mmax) )

  Allocate( qmomk_u0(qmomk_nn, dimension_3, mmax) )
  Allocate( qmomk_u1(qmomk_nn, dimension_3, mmax) )

  Allocate( qmomk_v0(qmomk_nn, dimension_3, mmax) )
  Allocate( qmomk_v1(qmomk_nn, dimension_3, mmax) )

  Allocate( qmomk_w0(qmomk_nn, dimension_3, mmax) )
  Allocate( qmomk_w1(qmomk_nn, dimension_3, mmax) )

  Allocate( qmomk_u_s(dimension_3, mmax) )
  Allocate( qmomk_v_s(dimension_3, mmax) )
  Allocate( qmomk_w_s(dimension_3, mmax) )

  Allocate( qmomk_f_gs(qmomk_nn, dimension_3, mmax) )
  Allocate( qmomk_tau_drag(qmomk_nn, dimension_3, mmax) )

  Allocate( qmomk_collision_time(dimension_3, mmax) )

  RETURN
END SUBROUTINE qmomk_allocate_arrays