pulse-dev/param_mod.f at master · tarynblack/pulse-dev · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
      MODULE param


!
!======Begin file param.inc ============================================
!
! 1.  Problem size dependent parameters:
!
!
!                      Maximum of the number of cells in the x direction
      INTEGER          DIMENSION_I
!
!                      Maximum of the number of cells in the y direction
      INTEGER          DIMENSION_J
!
!                      Maximum of the number of cells in the z direction
      INTEGER          DIMENSION_K
!
!                      Maximum number of computational cells
      INTEGER          DIMENSION_3
!                      Maximum number of computational cells for
!                      higher order implementation
      INTEGER          DIMENSION_4
!      PARAMETER (DIMENSION_3 =918)
!//375 1025 added two new global and local subdomain size variables
      INTEGER          DIMENSION_3L, DIMENSION_3G
!
!                      Maximum number of solids phases
      INTEGER          DIMENSION_M
!
!                      Maximum number of gas species
      INTEGER          DIMENSION_N_g
!
!                      Maximum number of solids species. For multiple solids
!                      phase use the maximum for all phases
      INTEGER          DIMENSION_N_s
!
!                      Maximum number of user-defined scalars
      INTEGER          DIM_Scalar2
      INTEGER          DIMENSION_Scalar

!===============================================================================
!
! 2.  Parameters for controlling data input:  This section seldom needs
!     to be changed.
!
!                      Maximum number of reactions defined in data file
      INTEGER, PARAMETER          :: DIMENSION_RXN = 10
!
!
!                      Number of user defined constants
      INTEGER, PARAMETER          :: DIMENSION_C = 50
!
!                      Maximum number of items for specifying initial
!                      conditions
      INTEGER, PARAMETER          :: DIMENSION_IC = 50000
!
!                      Maximum number of items for specifying boundary
!                      conditions
      INTEGER, PARAMETER          :: DIMENSION_BC = 50000
!
!                      Maximum number of items for specifying internal
!                      surfaces.  Because FLAG_E, FLAG_N, and FLAG_T also
!                      points to the IS number, their manipulation should be
!                      modified if this dimension is made greater than 999.
      INTEGER, PARAMETER          :: DIMENSION_IS = 50
!
!                      Maximum number of solids phases that can be read
      INTEGER, PARAMETER          :: DIM_M = 10
!
!                      Maximum number of gas species  that can be read
      INTEGER, PARAMETER          :: DIM_N_g = 10
!
!                      Maximum number of solids species. For multiple solids
!                      phase use the maximum for all phases that can be read
      INTEGER, PARAMETER          :: DIM_N_s = 10
!
!                      maximum of DIM_N_g and DIM_N_s
      INTEGER, PARAMETER          :: DIM_N = MAX(DIM_N_g, DIM_N_s)
!
!                      Total number of species allowed
      INTEGER, PARAMETER          :: DIM_N_ALL = 2*DIM_N

!
!                      Maximum of the number of cells in the x direction that can be read
      INTEGER, PARAMETER          :: DIM_I = 5000
!
!                      Maximum of the number of cells in the y direction that can be read
      INTEGER, PARAMETER          :: DIM_J = 5000
!
!                      Maximum of the number of cells in the z direction that can be read
      INTEGER, PARAMETER          :: DIM_K = 5000

!                      Maximum number of user-defined output files
      INTEGER, PARAMETER          :: DIMENSION_USR = 5
!
!                      Maximum of the number of scalars that can be read
      INTEGER, PARAMETER          :: DIM_SCALAR = 100
!======End file param.inc ==============================================
!


!!!HPF$ TEMPLATE TT(1000)
!!!HPF$ DISTRIBUTE TT(BLOCK)
      END MODULE param