group parameters

code/m_parameters.f90

@@ -2,43 +2,36 @@ module m_parameters
 
   implicit none
 
+     ! Domain Parameter
      integer :: nxp,nyp,nzp
-
+     integer :: nx
      real :: hxp,hyp,hzp
-
      real :: l_0
+     real :: hx
 
-     integer :: startnum,endnum,skipnum,shiftnum
-
+     ! Transport Properties
+     real :: vis,sc,diff
      real :: scp,prp,lep,vis0p,rod
+     real :: lewis, le_a, le_x
 
+     ! Chemistry Properties
      real :: prof_wr,min_wr,min_fsd,min_c,refwr
-
      real :: pre,ac,bc,c_cut,c_ref
-
      real :: lambda1, lambda2, beta1, hrp, beta
 
-     integer :: syp,eyp,twod
-
-     real :: SL_u
-
-     real, parameter :: pi=3.14159265358979323846
-
+     ! Constants
+     real, parameter :: pi=3.14159265358979323846d0
+     ! real, parameter :: pi=acos(-1.d0)
      real, parameter :: me=1.00e-20
 
+     ! Flame Control
+     real :: minf,tar_lo,u0,ctmp,lo_flm=0.
+     real :: pflame,pflold,oldu
+
+     ! Solver Control
+     integer :: ncyc=0,int_pr
      real :: absolute_tolerence=1e-8
-
-     REAL :: hx,dt,vis,sc,diff,tf,t_now,t_uf,dt_uf
-
-     REAL :: lewis, le_a, le_x
-
-     REAL :: minf,tar_lo,u0,ctmp,lo_flm=0.
-
-     REAL :: er_lof=0., erdot=0.
-
-     REAL :: pflame,pflold,oldu
-
-     INTEGER :: ncyc=0,int_pr,nx
+     real :: dt,tf,t_now,t_uf,dt_uf
 
      LOGICAL :: read_itape, read_stdin