1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
2 ! Namelist: GEOMETRY_LOCKED !
3 ! Author: J.Musser Date: 03-APR-15 !
5 ! Purpose: List MFIX keywords that CANNOT be edited during
a run. !
6 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
7 NAMELIST / GEOMETRY_LOCKED /&
10 IMAX, DX, XLENGTH, NO_I, CYCLIC_X, CYCLIC_X_PD, XMIN, &
11 JMAX, DY, YLENGTH, NO_J, CYCLIC_Y, CYCLIC_Y_PD, &
12 KMAX, DZ, ZLENGTH, NO_K, CYCLIC_Z, CYCLIC_Z_PD, &
13 CYLINDRICAL_2D, I_CYL_NUM, I_CYL_TRANSITION, &
18 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
19 ! Namelist: GEOMETRY_UNLOCKED !
20 ! Author: J.Musser Date: 03-APR-15 !
22 ! Purpose: List MFIX keywords that may be edited during
a run by !
23 ! invoking
a REFRESH. !
24 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
25 NAMELIST / GEOMETRY_UNLOCKED /&
27 FLUX_G, DELP_X, DELP_Y, DELP_Z
double precision, dimension(:), allocatable a