121 lines
2.7 KiB
Fortran
121 lines
2.7 KiB
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 :: absolute_tolerence=1e-8
|
|
|
|
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
|
|
|
|
LOGICAL :: read_itape, read_stdin
|
|
|
|
CHARACTER(100) :: itape_name
|
|
|
|
contains
|
|
|
|
SUBROUTINE READ_INTRO
|
|
CHARACTER(LEN=8) :: cdum
|
|
INTEGER :: itape=300,otape=301
|
|
INTEGER :: i
|
|
|
|
IF (read_stdin) THEN
|
|
itape=5
|
|
ELSE
|
|
OPEN(itape,FILE=itape_name)
|
|
END IF
|
|
|
|
OPEN(otape,FILE='otape')
|
|
READ(itape,*) cdum,nx
|
|
WRITE(otape,*) cdum,nx
|
|
READ(itape,*) cdum,l_0
|
|
WRITE(otape,*) cdum,l_0
|
|
READ(itape,*) cdum,int_pr
|
|
WRITE(otape,*) cdum,int_pr
|
|
READ(itape,*) cdum,tar_lo
|
|
WRITE(otape,*) cdum,tar_lo
|
|
READ(itape,*) cdum,dt
|
|
WRITE(otape,*) cdum,dt
|
|
READ(itape,*) cdum,sc
|
|
WRITE(otape,*) cdum,sc
|
|
READ(itape,*) cdum,vis
|
|
WRITE(otape,*) cdum,vis
|
|
READ(itape,*) cdum,pre
|
|
WRITE(otape,*) cdum,pre
|
|
READ(itape,*) cdum,ac
|
|
WRITE(otape,*) cdum,ac
|
|
READ(itape,*) cdum,bc
|
|
WRITE(otape,*) cdum,bc
|
|
READ(itape,*) cdum,u0
|
|
WRITE(otape,*) cdum,u0
|
|
READ(itape,*) cdum,tf
|
|
WRITE(otape,*) cdum,tf
|
|
READ(itape,*) cdum,dt_uf
|
|
WRITE(otape,*) cdum,dt_uf
|
|
READ(itape,*) cdum,ctmp
|
|
WRITE(otape,*) cdum,ctmp
|
|
READ(itape,*) cdum,c_cut
|
|
WRITE(otape,*) cdum,c_cut
|
|
! READ(itape,*) cdum,cs
|
|
! WRITE(otape,*) cdum,cs
|
|
READ(itape,*) cdum,c_ref
|
|
WRITE(otape,*) cdum,c_ref
|
|
READ(itape,*) cdum,min_wr
|
|
WRITE(otape,*) cdum,min_wr
|
|
READ(itape,*) cdum,prof_wr
|
|
WRITE(otape,*) cdum,prof_wr
|
|
READ(itape,*) cdum,lewis
|
|
WRITE(otape,*) cdum,lewis
|
|
|
|
IF (.not.read_stdin) THEN
|
|
CLOSE(itape)
|
|
END IF
|
|
|
|
l_0=l_0*pi
|
|
|
|
hx=l_0/REAL(nx)
|
|
cdum='hx'
|
|
WRITE(otape,*) cdum,hx
|
|
cdum='Ta/Tu'
|
|
WRITE(otape,*) cdum,ac
|
|
cdum='Tb/Tu'
|
|
WRITE(otape,*) cdum,bc+1
|
|
diff=vis/sc
|
|
cdum='diff'
|
|
WRITE(otape,*) cdum,diff
|
|
|
|
refwr=pre*1.*exp(-ac/(1.+bc*c_ref))
|
|
|
|
END SUBROUTINE READ_INTRO
|
|
|
|
end module m_parameters
|