File: /nfs/home/0/users/jenkins/mfix.git/model/des/des_linked_list_data_mod.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
2     !  Module name: DES_LINKED_LIST_DATA_MOD                               !
3     !                                                                      !
4     !                                                                      !
5     !  Reviewer: R. Garg                                  Date: 19-Mar-14  !
6     !
7     !                                                                      !
8     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
9     
10           MODULE DES_LINKED_LIST_DATA
11           use error_manager
12     
13           IMPLICIT NONE
14     
15           TYPE PARTICLE
16           INTEGER :: CELL(4)
17           LOGICAL :: INDOMAIN
18     ! Solid phase
19           INTEGER :: M
20           double precision :: RAD, DENS, STATWT
21           double precision :: VELOCITY(3), POSITION(3)
22     
23           !could be made allocatable later to reduce memory usage for 2-D runs
24           TYPE (PARTICLE), POINTER :: NEXT=>NULL() ! NEXT PARTICLE ADDRESS
25           TYPE (PARTICLE), POINTER :: PREV=>NULL() ! PREVIOUS PARTICLE ADDRESS
26     
27           END TYPE PARTICLE
28     
29     ! This is the linked list of first set of particles
30           TYPE (PARTICLE), POINTER :: ORIG_PART_LIST => NULL()
31     ! This is the linked list of deleted set of particles
32           TYPE (PARTICLE), POINTER :: DEL_PART_LIST => NULL()
33     ! This is the linked list of remaining set of particles
34           TYPE (PARTICLE), POINTER :: REM_PART_LIST => NULL()
35     
36           END MODULE DES_LINKED_LIST_DATA
37     
38     
39