MFIX  2016-1
deprecated.f
Go to the documentation of this file.
1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
2 ! !
3 ! Module name: DEPRECATED_OR_UNKNOWN !
4 ! Author: J.Musser Date: 5-SEPT-14 !
5 ! !
6 ! Purpose: This routine is called when a keyword was not matched !
7 ! to any of the keywords in the namelist files. This routine !
8 ! reports if the keyword was deprecated or incorrect. !
9 ! !
10 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
11  SUBROUTINE deprecated_or_unknown(LINE_NO, INPUT)
12 
13  use param
14  use param1
15  use compar, only: mype
16  use error_manager
17 
18  IMPLICIT NONE
19 
20  INTEGER, INTENT(IN) :: LINE_NO
21  CHARACTER(len=*), INTENT(IN) :: INPUT
22 
23  CHARACTER(len=256) :: STRING
24  INTEGER :: IOS
25 
26 ! Old keyword for solids density :: Replaced by RO_s0
27  DOUBLE PRECISION :: RO_s
28  LOGICAL :: BC_APPLY_TO_MPPIC(dimension_bc)
29  INTEGER :: COHESION_DEBUG, DES_MMAX,DES_NMAX_s(dim_m),DIMN
30  CHARACTER(LEN=16) :: DES_BC_TYPE(dimension_bc)
31  DOUBLE PRECISION :: DES_BC_MASSFLOW_s(dimension_bc, dim_m)
32  DOUBLE PRECISION :: DES_BC_ROP_s (dimension_bc, dim_m)
33  DOUBLE PRECISION :: DES_BC_T_s (dimension_ic, dim_m)
34  DOUBLE PRECISION :: DES_BC_VOLFLOW_s(dimension_bc, dim_m)
35  DOUBLE PRECISION :: DES_BC_X_e(dimension_bc)
36  DOUBLE PRECISION :: DES_BC_X_w(dimension_bc)
37  DOUBLE PRECISION :: DES_BC_Y_n(dimension_bc)
38  DOUBLE PRECISION :: DES_BC_Y_s(dimension_bc)
39  DOUBLE PRECISION :: DES_BC_Z_b(dimension_bc)
40  DOUBLE PRECISION :: DES_BC_Z_t(dimension_bc)
41  DOUBLE PRECISION :: DES_C_ps0(dim_m), DES_K_s0(dim_m)
42  LOGICAL :: DES_CALC_BEDHEIGHT, DES_CONV_EQ, DES_ENERGY_EQ
43  LOGICAL :: DES_COND_EQ,DES_COND_EQ_PFP,DES_COND_EQ_PP, DES_RADI_EQ
44 
45  DOUBLE PRECISION :: DES_D_P0 (dim_m), DES_F, DES_GAMMA
46  DOUBLE PRECISION :: DES_EPS_XSTART,DES_EPS_YSTART,DES_EPS_ZSTART
47 
48  DOUBLE PRECISION :: DES_IC_X_e(dimension_ic)
49  DOUBLE PRECISION :: DES_IC_X_w(dimension_ic)
50  DOUBLE PRECISION :: DES_IC_Y_n(dimension_ic)
51  DOUBLE PRECISION :: DES_IC_Y_s(dimension_ic)
52  DOUBLE PRECISION :: DES_IC_Z_b(dimension_ic)
53  DOUBLE PRECISION :: DES_IC_Z_t(dimension_ic)
54  DOUBLE PRECISION :: DES_IC_T_s (dimension_ic, dim_m)
55  DOUBLE PRECISION :: DES_MW_s(dim_m, dim_n_s), DES_RO_s (dim_m)
56  DOUBLE PRECISION :: DTSOLID_FACTOR, LID_VEL
57  DOUBLE PRECISION :: MASTER_WELL_DEPTH, MASTER_WALL_WELL_DEPTH
58  CHARACTER(len=18) DES_SPECIES_s(dim_m, dim_n_s)
59  CHARACTER(len=32) DES_SPECIES_ALIAS_s(dim_m, dim_n_s)
60  LOGICAL :: DES_PERIODIC_WALLS, DES_PERIODIC_WALLS_X,DES_SPECIES_EQ
61  LOGICAL :: DES_PERIODIC_WALLS_Y, DES_PERIODIC_WALLS_Z,TSUJI_DRAG
62 
63  INTEGER :: MAX_DES_BC_CELL, NPC_PIC(dim_m)
64  INTEGER :: QLM, QLN, INIT_QUAD_COUNT
65  LOGICAL :: MPPIC_CONSTANTNPC, MPPIC_CONSTANTWT, SQUARE_WELL
66  LOGICAL :: WALLDTSPLIT,WALLREFLECT, CALL_DI, CALL_GROW, CALL_ISAT
67  DOUBLE PRECISION :: MQUAD_FACTOR,STATWT_PIC(dim_m), ISATdt
68  DOUBLE PRECISION :: RADIUS_RATIO,WALL_RADIUS_RATIO
69  DOUBLE PRECISION :: pvel_mean, PVEL_StDev,VOL_FRAC(dim_m)
70  CHARACTER(LEN=64) :: REACTION_MODEL
71 
72  LOGICAL :: DISCRETE_ELEMENT, MPPIC, DES_CONTINUUM_HYBRID
73 
74  DOUBLE PRECISION :: PARTICLES_FACTOR, DES_RES_DT, DES_SPX_DT
75  INTEGER :: MAX_PIS, MAX_FACETS_PER_CELL_DES
76  LOGICAL :: USE_STL_DES, DES_CONTINUUM_COUPLED, &
77  DES_CONVERT_BOX_TO_FACETS
78 
79 
80 ! 2014-1 Deprecated list:
81 !-----------------------------------------------------------------------
82  namelist / dep_2014_1 / ro_s, bc_apply_to_mppic, cohesion_debug, &
83  des_bc_massflow_s, des_bc_rop_s,des_bc_t_s,des_bc_type, &
84  des_bc_volflow_s,des_bc_x_e,des_bc_x_w, des_bc_y_n,des_bc_y_s,&
85  des_bc_z_b,des_bc_z_t,des_calc_bedheight,qlm,qln,des_cond_eq, &
86  des_cond_eq_pfp,des_cond_eq_pp,des_conv_eq,des_c_ps0,des_d_p0,&
87  des_energy_eq,des_eps_xstart,des_f,des_eps_ystart,dimn, &
88  des_eps_zstart,des_gamma,des_ic_t_s,des_ic_x_e,des_ic_x_w, &
89  des_ic_y_n,des_ic_y_s,des_ic_z_b,des_ic_z_t,des_k_s0,des_mmax,&
90  des_mw_s,des_nmax_s,des_periodic_walls,des_species_s,lid_vel, &
91  des_periodic_walls_x,des_periodic_walls_y,wallreflect, &
92  des_periodic_walls_z,des_radi_eq,des_ro_s,des_species_alias_s,&
93  des_species_eq,dtsolid_factor,init_quad_count,max_des_bc_cell,&
94  master_wall_well_depth,master_well_depth,mppic_constantnpc, &
95  mppic_constantwt,mquad_factor,npc_pic,pvel_mean,pvel_stdev, &
96  radius_ratio,reaction_model,square_well,statwt_pic,statwt_pic,&
97  tsuji_drag,vol_frac,walldtsplit,wall_radius_ratio, call_di, &
98  call_grow, call_isat, isatdt
99 
100 
101 ! 2015-1 Deprecated list:
102 !-----------------------------------------------------------------------
103  namelist / dep_2015_1 / max_pis, particles_factor, use_stl_des, &
104  discrete_element, mppic, des_continuum_hybrid
105 
106 ! 2015-2 Deprecated list:
107 !-----------------------------------------------------------------------
108  namelist / dep_2015_2 / des_continuum_coupled, des_res_dt, &
109  des_spx_dt
110 
111 ! 2016-1 Deprecated list:
112 !-----------------------------------------------------------------------
113  namelist / dep_2016_1 / max_facets_per_cell_des, &
114  des_convert_box_to_facets
115 
116 ! 2014-1 Release Deprecated keywords.
117  string=''; string = '&DEP_2014_1 '//trim(adjustl(input))//'/'
118  READ(string,nml=dep_2014_1,iostat=ios)
119  IF(ios == 0) CALL deprecated(line_no, input, '2014-1')
120 
121 
122 ! 2015-1 Release Deprecated keywords.
123  string=''; string = '&DEP_2015_1 '//trim(adjustl(input))//'/'
124  READ(string,nml=dep_2015_1,iostat=ios)
125  IF(ios == 0) CALL deprecated(line_no, input, '2015-1')
126 
127 ! 2015-2 Release Deprecated keywords.
128  string=''; string = '&DEP_2015_2 '//trim(adjustl(input))//'/'
129  READ(string,nml=dep_2015_1,iostat=ios)
130  IF(ios == 0) CALL deprecated(line_no, input, '2015-2')
131 
132 ! Everything else... This should be the last call in this routine.
133  CALL unknown_keyword(line_no, input)
134 
135 
136  CONTAINS
137 
138 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
139 ! !
140 ! Module name: DEPRECATED !
141 ! Author: J.Musser Date: 5-SEPT-14 !
142 ! !
143 ! Purpose: Write the error message for deprecated keywords. !
144 ! !
145 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
146  SUBROUTINE deprecated(LINE_NO, INPUT, RELEASE)
147 
148  INTEGER, INTENT(IN) :: LINE_NO
149  CHARACTER(len=*), INTENT(IN) :: INPUT
150  CHARACTER(len=*), INTENT(IN) :: RELEASE
151 
152  IF(mype == 0) &
153  WRITE(*,1000) trim(ival(line_no)), release, trim(input)
154 
155  CALL mfix_exit(mype)
156 
157  1000 FORMAT(//1x,70('*')/' From DEPRECATED',/' Error 1000:', &
158  ' A keyword pair on line ',a,' of the mfix.dat file was',/ &
159  ' identified as being deprecated as of the ',a,' Release.',// &
160  3x,a,//' Please see the user documentation and update the ', &
161  'mfix.dat file.',/1x,70('*')//)
162 
163  END SUBROUTINE deprecated
164 
165 
166 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
167 ! !
168 ! Module name: UNKNOWN_KEYWORD !
169 ! Author: J.Musser Date: 5-SEPT-14 !
170 ! !
171 ! Purpose: Write the error message for deprecated keywords. !
172 ! !
173 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
174  SUBROUTINE unknown_keyword(LINE_NO, INPUT)
175 
176  INTEGER, INTENT(IN) :: LINE_NO
177  CHARACTER(len=*), INTENT(IN) :: INPUT
178 
179  IF(mype == 0) WRITE(*,2000) trim(ival(line_no)), trim(input)
180 
181  CALL mfix_exit(mype)
182 
183  2000 FORMAT(//1x,70('*')/' From: UNKNOWN_KEYWORD',/' Error 2000: ', &
184  'Unable to process line ',a,' of the mfix.dat file.',2/3x, &
185  a,2/1x,'Possible causes are',/3x,'* Incorrect or illegal ', &
186  'keyword format',/3x,'* Unknown or mistyped name',/3x,'* ', &
187  'The mensioned item is too small (array overflow).', 2/1x, &
188  'Please see the user documentation and update the mfix.dat ', &
189  'file. ',/1x,70('*')//)
190 
191 
192  END SUBROUTINE unknown_keyword
193 
194 
195  END SUBROUTINE deprecated_or_unknown
param::dimension_ic
integer, parameter dimension_ic
Definition: param_mod.f:59
unknown_keyword
subroutine unknown_keyword(LINE_NO, INPUT)
Definition: deprecated.f:175
error_manager::ival
Definition: error_manager_mod.f:17
param::dim_m
integer, parameter dim_m
Definition: param_mod.f:67
param::dimension_bc
integer, parameter dimension_bc
Definition: param_mod.f:61
deprecated
subroutine deprecated(LINE_NO, INPUT, RELEASE)
Definition: deprecated.f:147
deprecated_or_unknown
subroutine deprecated_or_unknown(LINE_NO, INPUT)
Definition: deprecated.f:12
param
Definition: param_mod.f:2
compar::mype
integer mype
Definition: compar_mod.f:24
param::dim_n_s
integer, parameter dim_n_s
Definition: param_mod.f:71
error_manager
Definition: error_manager_mod.f:8