Skip to content

Commit

Permalink
remove nprobe and nlist
Browse files Browse the repository at this point in the history
  • Loading branch information
slaizet committed Apr 17, 2024
1 parent b17f038 commit 251e6d2
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 4 deletions.
3 changes: 1 addition & 2 deletions src/module_param.f90
Original file line number Diff line number Diff line change
Expand Up @@ -21,12 +21,11 @@ module variables
!2-->every 2 mesh nodes
!4-->every 4 mesh nodes
!nvisu = size for visualization collection
!nprobe = size for probe collection (energy spectra)

!Possible n points: 3 5 7 9 11 13 17 19 21 25 31 33 37 41 49 51 55 61 65 73 81 91 97 101 109 121 129 145 151 161 163 181 193 201 217 241 251 257 271 289 301 321 325 361 385 401 433 451 481 487 501 513 541 577 601 641 649 721 751 769 801 811 865 901 961 973 1001 1025 1081 1153 1201 1251 1281 1297 1351 1441 1459 1501 1537 1601 1621 1729 1801 1921 1945 2001 2049 2161 2251 2305 2401 2431 2501 2561 2593 2701 2881 2917 3001 3073 3201 3241 3457 3601 3751 3841 3889 4001 4051 4097 4321 4375 4501 4609 4801 4861 5001 5121 5185 5401 5761 5833 6001 6145 6251 6401 6481 6751 6913 7201 7291 7501 7681 7777 8001 8101 8193 8641 8749 9001 9217 9601 9721 enough

integer :: nx,ny,nz,numscalar,p_row,p_col,nxm,nym,nzm,spinup_time
integer :: nstat=1,nvisu=1,nprobe=1,nlength=1,ilist=25
integer :: nstat=1,nvisu=1,ilist=25

real(mytype),allocatable,dimension(:) :: sc,uset,cp,ri,group
real(mytype) :: nu0nu, cnu
Expand Down
3 changes: 1 addition & 2 deletions src/xcompact3d.f90
Original file line number Diff line number Diff line change
Expand Up @@ -113,7 +113,7 @@ subroutine init_xcompact3d()

use variables, only : nx, ny, nz, nxm, nym, nzm
use variables, only : p_row, p_col
use variables, only : nstat, nvisu, nprobe, ilist
use variables, only : nstat, nvisu, ilist

use les, only: init_explicit_les
use turbine, only: init_turbines
Expand Down Expand Up @@ -172,7 +172,6 @@ subroutine init_xcompact3d()
call decomp_2d_io_init()
call init_coarser_mesh_statS(nstat,nstat,nstat,.true.) !start from 1 == true
call init_coarser_mesh_statV(nvisu,nvisu,nvisu,.true.) !start from 1 == true
call init_coarser_mesh_statP(nprobe,nprobe,nprobe,.true.) !start from 1 == true
!div: nx ny nz --> nxm ny nz --> nxm nym nz --> nxm nym nzm
call decomp_info_init(nxm, nym, nzm, ph1)
call decomp_info_init(nxm, ny, nz, ph4)
Expand Down

0 comments on commit 251e6d2

Please sign in to comment.