|
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 |
|