gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DRIVER: Use bcells instead of im, jm, km.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-02-04 17:57:06 -02:00
parent 2749993cf0
commit 3dc8f57fb5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/driver.F90
View File

@ -41,7 +41,7 @@ program amun
use boundaries , only : print_boundaries, boundary_variables
use coordinates , only : initialize_coordinates, finalize_coordinates
use coordinates , only : print_coordinates
use coordinates , only : im, jm, km
use coordinates , only : nb => bcells
use domains , only : initialize_domains, finalize_domains
use equations , only : initialize_equations, finalize_equations
use equations , only : print_equations
@ -344,7 +344,11 @@ program amun
call initialize_coordinates(ncells, nghosts, toplev, bdims, xmin, xmax, &
ymin, ymax, zmin, zmax, master, iret)
if (iret > 0) go to 170
call initialize_blocks((/ nv, nv, im, jm, km /), master, iret)
#if NDIMS == 3
call initialize_blocks((/ nv, nv, nb, nb, nb /), master, iret)
#else /* NDIMS == 3 */
call initialize_blocks((/ nv, nv, nb, nb, 1 /), master, iret)
#endif /* NDIMS == 3 */
if (iret > 0) go to 160
call initialize_operators(master, iret)
if (iret > 0) go to 150