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

BOUNDARIES: Stop compiler complaining if MPI is off.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-12-03 10:58:57 -03:00
parent 7112a12e1c
commit 8d27d95a76
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
sources/boundaries.F90
View File

@ -1546,7 +1546,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : nh => ncells_half, ng => nghosts
#endif /* MPI */
use coordinates, only : faces_gc, faces_dc
use equations , only : nv
#ifdef MPI
@ -1888,7 +1890,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : nh => ncells_half, ng => nghosts
#endif /* MPI */
use coordinates, only : faces_gr
use equations , only : nv
#ifdef MPI
@ -2638,7 +2642,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : nh => ncells_half, ng => nghosts
#endif /* MPI */
use coordinates, only : edges_gc, edges_dc
use equations , only : nv
#ifdef MPI
@ -3060,7 +3066,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : nh => ncells_half, ng => nghosts
#endif /* MPI */
use coordinates, only : edges_gr
use equations , only : nv
#ifdef MPI
@ -3973,7 +3981,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : ng => nghosts
#endif /* MPI */
use coordinates, only : corners_gc, corners_dc
use equations , only : nv
#ifdef MPI
@ -4349,7 +4359,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : ng => nghosts
#endif /* MPI */
use coordinates, only : corners_gr
use equations , only : nv
#ifdef MPI
@ -4706,7 +4718,9 @@ module boundaries
use blocks , only : block_meta, block_data, block_leaf
use blocks , only : list_leaf
use blocks , only : block_info, pointer_info
#ifdef MPI
use coordinates, only : ng => nghosts
#endif /* MPI */
use coordinates, only : corners_gp
use equations , only : nv
#ifdef MPI