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

MESH, REFINEMENT: Use statement formatting.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2013-12-27 17:41:04 -02:00
parent 9d7f4b2196
commit acb7eb812d
2 changed files with 61 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mesh.F90
View File

@ -87,8 +87,8 @@ module mesh
! import external procedures and variables
!
use blocks , only : datablock_set_dims
use coordinates, only : xmin, xmax, ymin, ymax, zmin, zmax
use coordinates, only : toplev, im, jm, km
use coordinates , only : xmin, xmax, ymin, ymax, zmin, zmax
use coordinates , only : toplev, im, jm, km
use equations , only : nv
use mpitools , only : master, nprocs
@ -1549,7 +1549,7 @@ module mesh
use coordinates , only : ng, nh, in, jn, kn, im, jm, km
use coordinates , only : ib, ie, jb, je, kb, ke
use equations , only : nv
use interpolations, only : limiter
use interpolations , only : limiter
! local variables are not implicit by default
!
@ -1746,8 +1746,8 @@ module mesh
!
use blocks , only : ndims
use blocks , only : block_meta, block_data, nchild
use coordinates, only : ng, nh, in, jn, kn, im, jm, km
use coordinates, only : ih, jh, kh, ib, jb, kb, ie, je, ke
use coordinates , only : ng, nh, in, jn, kn, im, jm, km
use coordinates , only : ih, jh, kh, ib, jb, kb, ie, je, ke
use equations , only : nv
! local variables are not implicit by default
@ -1890,8 +1890,8 @@ module mesh
! import external procedures and variables
!
use blocks, only : block_meta, list_meta
use blocks, only : check_metablock
use blocks , only : block_meta, list_meta
use blocks , only : check_metablock
! local variables are not implicit by default
!

4
src/refinement.F90
View File

@ -231,7 +231,7 @@ module refinement
!
function check_refinement_criterion(pdata) result(criterion)
! variables and subroutines imported from other modules
! import external procedures and variables
!
use blocks , only : block_data
use equations , only : nv
@ -319,7 +319,7 @@ module refinement
!
function second_derivative_error(iqt, pdata) result(error)
! variables and subroutines imported from other modules
! import external procedures and variables
!
use blocks , only : block_data
use coordinates , only : ib, jb, kb, ie, je, ke