Modules | Functions/Subroutines | Variables
module_parameters.f90 File Reference

Go to the source code of this file.

Modules

module  module_parameters
 

Functions/Subroutines

subroutine initiate_parameters
 
subroutine initiate_mpi
 
subroutine finalize_mpi
 
subroutine initiate_indices
 
subroutine get_mesh_param
 
subroutine calculate_ubar (u)
 
subroutine get_fft_plan
 
subroutine update_ri (stps)
 
subroutine update_dpx_drive
 
subroutine assign_rk_coeff (a_in, b_in, c_in)
 

Variables

real(mytype), parameter pi =3.1415926535897932_mytype
 
integer, save, protected p_row
 
integer, save, protected p_col
 
real(mytype), save, protected lx
 
real(mytype), save, protected ly
 
real(mytype), save, protected lz
 
integer, save, protected nx
 
integer, save, protected ny
 
integer, save, protected nz
 
real(mytype), save, protected zstretch
 
integer, save, protected ochannel
 
integer, save, protected dp_opt
 
integer, save, protected issk
 
integer, save, protected cds
 
integer, save, protected dts
 
real(mytype), save, protected dt
 
integer, save, protected imax
 
real(mytype), save, protected nu
 
real(mytype), save, protected alpha
 
real(mytype), save, protected got
 
real(mytype), save, protected fc
 
real(mytype), save, protected ug
 
real(mytype), save, protected vg
 
integer, save, protected isscalar
 
real(mytype), save, protected t_ref
 
real(mytype), save, protected tbot
 
real(mytype), save, protected ttop
 
integer, save, protected is_ri_var
 
real(mytype), save, protected ri_str
 
real(mytype), save, protected ri_end
 
integer, save, protected isnoise
 
real(mytype), save, protected noise_mag
 
integer, save, protected isdamp
 
integer, save, protected nzdamp
 
real(mytype), save, protected cdamp
 
real(mytype), save, protected u_mrf
 
integer, save, protected ibackup
 
integer, save, protected iinstfl
 
integer, save, protected imeanfl
 
integer, save, protected restart
 
integer, save, protected istmsr
 
integer, save, protected isxy2d
 
integer, dimension(50), save, protected xy2d_id
 
integer, save, protected isxz2d
 
integer, dimension(50), save, protected xz2d_id
 
integer, save, protected isyz2d
 
integer, dimension(50), save, protected yz2d_id
 
integer, save, protected intv_2d
 
integer, save, protected nprc
 
complex(mytype), parameter iii =cmplx(0.d0, 1.d0, kind=mytype)
 
real(mytype), save, protected dx
 
real(mytype), save, protected dy
 
real(mytype), save, protected dx2
 
real(mytype), save, protected dy2
 
integer, parameter ghst =2
 
integer, save, protected istr3
 
integer, save, protected iend3
 
integer, save, protected jstr3
 
integer, save, protected jend3
 
integer, save, protected kstr3
 
integer, save, protected kend3
 
integer, save, protected nia1
 
integer, save, protected nja1
 
integer, save, protected nka1
 
integer, save, protected nia2
 
integer, save, protected nja2
 
integer, save, protected nka2
 
integer, save, protected nia3
 
integer, save, protected nja3
 
integer, save, protected nka3
 
integer, save, protected i_offset
 
integer, save, protected j_offset
 
real(mytype), save div_hist_max =0.d0
 
real(mytype), save time_sim =0.d0
 
real(mytype), save cfl_max =0.d0
 
real(mytype), save, protected dpx_drive
 
real(mytype), save, protected dpx_coef
 
real(mytype), save, protected ubar
 
complex(mytype), save, protected wx1
 
complex(mytype), save, protected wy1
 
real(mytype), dimension(3), parameter rkc1 =(/8.d0/15.d0,5.d0/12.d0,3.d0/4.d0/)
 
real(mytype), dimension(3), parameter rkc2 =(/0.d0,-17.d0/60.d0,-5.d0/12.d0/)
 
real(mytype), dimension(3), parameter rkc3 =(/8.d0/15.d0,2.d0/15.d0,1.d0/3.d0/)
 
real(mytype), save, protected rk_a
 
real(mytype), save, protected rk_b
 
real(mytype), save, protected rk_c
 
real(mytype), dimension(:), allocatable, save, protected dz
 
real(mytype), dimension(:), allocatable, save, protected l_t
 
real(mytype), dimension(:), allocatable, save, protected l_b
 
real(mytype), dimension(:), allocatable, save, protected dz_t
 
real(mytype), dimension(:), allocatable, save, protected dz_b
 
integer, save, protected myid
 
integer, save, protected myid_rowindx
 
integer, save, protected myid_colindx
 
integer, save ierr
 
integer, dimension(:,:), allocatable, save, protected pij
 
type(c_ptr), save, protected fft_plan1
 
type(c_ptr), save, protected ifft_plan1
 
type(c_ptr), save, protected fft_plan2
 
type(c_ptr), save, protected ifft_plan2