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

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name:  BODYFORCE_MOD                                         C
4     !  Purpose: Include file for all body force statement functions        C
5     !                                                                      C
6     !  Author: M. Syamlal                                 Date:  6-MAR-92  C
7     !  Reviewer:                                          Date: dd-mmm-yy  C
8     !                                                                      C
9     !  Revision Number:                                                    C
10     !  Purpose:                                                            C
11     !  Author:                                            Date: dd-mmm-yy  C
12     !  Reviewer:                                          Date: dd-mmm-yy  C
13     !                                                                      C
14     !  Literature/Document References:                                     C
15     !                                                                      C
16     !  Variables referenced:                                               C
17     !  Variables modified:                                                 C
18     !                                                                      C
19     !  Local variables:                                                    C
20     !                                                                      C
21     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
22     !
23     MODULE bodyforce
24     
25       USE constant
26     
27     CONTAINS
28     
29       !  Body force on gas at i+1/2, j, k
30       DOUBLE PRECISION FUNCTION BFX_g(IJK)
31         IMPLICIT NONE
32         INTEGER ijk
33         BFX_g = GRAVITY_X
34       END FUNCTION BFX_g
35     
36       !  Body force on gas at i, j+1/2, k
37       DOUBLE PRECISION FUNCTION BFY_g(IJK)
38         IMPLICIT NONE
39         INTEGER ijk
40         BFY_g = GRAVITY_Y
41       END FUNCTION BFY_g
42     
43       !  Body force on gas at i, j, k+1/2
44       DOUBLE PRECISION FUNCTION BFZ_g(IJK)
45         IMPLICIT NONE
46         INTEGER ijk
47         BFZ_g = GRAVITY_Z
48       END FUNCTION BFZ_g
49     
50       !  Body force on solids m at i+1/2, j, k
51       DOUBLE PRECISION FUNCTION BFX_s(IJK,M)
52         IMPLICIT NONE
53         INTEGER ijk,m
54         BFX_s = GRAVITY_X
55       END FUNCTION BFX_s
56     
57       !  Body force on solids m at i, j+1/2, k
58       DOUBLE PRECISION FUNCTION BFY_s(IJK,M)
59         IMPLICIT NONE
60         INTEGER ijk,m
61         BFY_s = GRAVITY_Y
62       END FUNCTION BFY_s
63     
64       !  Body force on solids m at i, j, k+1/2
65       DOUBLE PRECISION FUNCTION BFZ_s(IJK,M)
66         IMPLICIT NONE
67         INTEGER ijk,m
68         BFZ_s = GRAVITY_Z
69       END FUNCTION BFZ_s
70     
71     END MODULE bodyforce
72