41 lines
670 B
Fortran
41 lines
670 B
Fortran
module m_parameters
|
|
|
|
implicit none
|
|
|
|
integer :: nxp,nyp,nzp
|
|
|
|
real :: hxp,hyp,hzp
|
|
|
|
real :: l_0
|
|
|
|
integer :: startnum,endnum,skipnum,shiftnum
|
|
|
|
real :: scp,prp,lep,vis0p,rod
|
|
|
|
real :: prof_wr,min_wr,min_fsd,min_c,refwr
|
|
|
|
real :: pre,ac,bc,c_cut,c_ref
|
|
|
|
integer :: syp,eyp,twod
|
|
|
|
real :: SL_u
|
|
|
|
real, parameter :: pi=3.14159265358979323846
|
|
|
|
real, parameter :: me=1.00e-20
|
|
|
|
REAL :: hx,dt,vis,sc,diff,tf,t_now,t_uf,dt_uf
|
|
|
|
REAL :: lewis
|
|
|
|
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
|
|
|
|
contains
|
|
|
|
end module m_parameters
|