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

COORDINATES: Rewrite this module.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-29 16:05:45 -02:00
parent 0cd8abb47c
commit fa3ea8ca5d
1 changed files with 68 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
src/coordinates.F90
View File

@ -34,54 +34,57 @@ module coordinates
! !
implicit none implicit none
! MODULE PARAMETERS:
! =================
!
! the domain block dimensions ! the domain block dimensions
! !
integer, save :: nn = 8, in = 8, jn = 8, kn = 1 integer , save :: nn = 8, in = 8, jn = 8, kn = 1
! the number of ghost zones ! the number of ghost zones
! !
integer, save :: ng = 2, nh = 1, nd = 4 integer , save :: ng = 2, nh = 1, nd = 4
! the domain block dimensions including the ghost zones ! the domain block dimensions including the ghost zones
! !
integer, save :: im = 12, jm = 12, km = 1 integer , save :: im = 12, jm = 12, km = 1
! the domain division ! the domain division
! !
integer, save :: ir = 1, jr = 1, kr = 1 integer , save :: ir = 1, jr = 1, kr = 1
! the limits of refinement level ! the limits of refinement level
! !
integer, save :: minlev = 1, maxlev = 1, toplev = 1 integer , save :: minlev = 1, maxlev = 1, toplev = 1
! block indices ! block indices
! !
integer, save :: ih = 6, jh = 6, kh = 1 integer , save :: ih = 6, jh = 6, kh = 1
integer, save :: ib = 3, jb = 3, kb = 1 integer , save :: ib = 3, jb = 3, kb = 1
integer, save :: ie = 10, je = 10, ke = 1 integer , save :: ie = 10, je = 10, ke = 1
integer, save :: ibl = 2, jbl = 2, kbl = 1 integer , save :: ibl = 2, jbl = 2, kbl = 1
integer, save :: ibu = 4, jbu = 4, kbu = 1 integer , save :: ibu = 4, jbu = 4, kbu = 1
integer, save :: iel = 9, jel = 9, kel = 1 integer , save :: iel = 9, jel = 9, kel = 1
integer, save :: ieu = 11, jeu = 11, keu = 1 integer , save :: ieu = 11, jeu = 11, keu = 1
! the domain bounds ! the domain bounds
! !
real, save :: xmin = 0.0d0 real(kind=8), save :: xmin = 0.0d+00
real, save :: xmax = 1.0d0 real(kind=8), save :: xmax = 1.0d+00
real, save :: xlen = 1.0d0 real(kind=8), save :: xlen = 1.0d+00
real, save :: ymin = 0.0d0 real(kind=8), save :: ymin = 0.0d+00
real, save :: ymax = 1.0d0 real(kind=8), save :: ymax = 1.0d+00
real, save :: ylen = 1.0d0 real(kind=8), save :: ylen = 1.0d+00
real, save :: zmin = 0.0d0 real(kind=8), save :: zmin = 0.0d+00
real, save :: zmax = 1.0d0 real(kind=8), save :: zmax = 1.0d+00
real, save :: zlen = 1.0d0 real(kind=8), save :: zlen = 1.0d+00
! the block coordinates for all levels of refinement ! the block coordinates for all levels of refinement
! !
real, dimension(:,:), allocatable, save :: ax , ay , az real(kind=8), dimension(:,:), allocatable, save :: ax , ay , az
real, dimension(: ), allocatable, save :: adx , ady , adz, adr real(kind=8), dimension(: ), allocatable, save :: adx , ady , adz, adr
real, dimension(: ), allocatable, save :: adxi, adyi, adzi real(kind=8), dimension(: ), allocatable, save :: adxi, adyi, adzi
real, dimension(: ), allocatable, save :: advol real(kind=8), dimension(: ), allocatable, save :: advol
! by default everything is private ! by default everything is private
! !
@ -98,11 +101,16 @@ module coordinates
! !
! Subroutine initializes mesh coordinates and other coordinate parameters. ! Subroutine initializes mesh coordinates and other coordinate parameters.
! !
! Arguments:
!
! verbose - flag determining if the subroutine should be verbose;
! iret - return flag of the procedure execution status;
!
!=============================================================================== !===============================================================================
! !
subroutine initialize_coordinates(verbose, iret) subroutine initialize_coordinates(verbose, iret)
! include external procedures and variables ! include external procedures
! !
use parameters, only : get_parameter_integer, get_parameter_real use parameters, only : get_parameter_integer, get_parameter_real
@ -140,7 +148,7 @@ module coordinates
kn = nn kn = nn
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! change individual block dimension if set ! change individual block dimension if requested
! !
call get_parameter_integer("icells", in ) call get_parameter_integer("icells", in )
call get_parameter_integer("jcells", jn ) call get_parameter_integer("jcells", jn )
@ -217,7 +225,7 @@ module coordinates
call get_parameter_real ("zmin" , zmin ) call get_parameter_real ("zmin" , zmin )
call get_parameter_real ("zmax" , zmax ) call get_parameter_real ("zmax" , zmax )
! allocate space for coordinate variables and resolutions ! allocate space for coordinate variables
! !
allocate(ax (toplev, im)) allocate(ax (toplev, im))
allocate(ay (toplev, jm)) allocate(ay (toplev, jm))
@ -233,17 +241,17 @@ module coordinates
! reset all coordinate variables to initial values ! reset all coordinate variables to initial values
! !
ax (:,:) = 0.0d0 ax (:,:) = 0.0d+00
ay (:,:) = 0.0d0 ay (:,:) = 0.0d+00
az (:,:) = 0.0d0 az (:,:) = 0.0d+00
adx (:) = 1.0d0 adx (:) = 1.0d+00
ady (:) = 1.0d0 ady (:) = 1.0d+00
adz (:) = 1.0d0 adz (:) = 1.0d+00
adr (:) = 1.0d0 adr (:) = 1.0d+00
adxi (:) = 1.0d0 adxi (:) = 1.0d+00
adyi (:) = 1.0d0 adyi (:) = 1.0d+00
adzi (:) = 1.0d0 adzi (:) = 1.0d+00
advol(:) = 1.0d0 advol(:) = 1.0d+00
! generate the coordinate variables for each level ! generate the coordinate variables for each level
! !
@ -251,10 +259,10 @@ module coordinates
! calculate the block resolution at each level ! calculate the block resolution at each level
! !
j = 2**(l - 1) ff = 2**(l - 1)
ni = in * j ni = in * ff
nj = jn * j nj = jn * ff
nk = kn * j nk = kn * ff
! calculate the cell sizes for each level ! calculate the cell sizes for each level
! !
@ -272,25 +280,25 @@ module coordinates
! calculate the inverse of cell size ! calculate the inverse of cell size
! !
adxi(l) = 1.0d0 / adx(l) adxi(l) = 1.0d+00 / adx(l)
adyi(l) = 1.0d0 / ady(l) adyi(l) = 1.0d+00 / ady(l)
#if NDIMS == 3 #if NDIMS == 3
adzi(l) = 1.0d0 / adz(l) adzi(l) = 1.0d+00 / adz(l)
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! calculate the block coordinates for each level ! calculate the block coordinates for each level
! !
ax(l,:) = ((/(i, i = 1, im)/) - ng - 0.5d0) * adx(l) ax(l,:) = ((/(i, i = 1, im)/) - ng - 5.0d-01) * adx(l)
ay(l,:) = ((/(j, j = 1, jm)/) - ng - 0.5d0) * ady(l) ay(l,:) = ((/(j, j = 1, jm)/) - ng - 5.0d-01) * ady(l)
#if NDIMS == 3 #if NDIMS == 3
az(l,:) = ((/(k, k = 1, km)/) - ng - 0.5d0) * adz(l) az(l,:) = ((/(k, k = 1, km)/) - ng - 5.0d-01) * adz(l)
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! calculate the cell volume at each level ! calculate the cell volume at each level
! !
advol(l) = adx(l) * ady(l) * adz(l) advol(l) = adx(l) * ady(l) * adz(l)
end do end do ! l = 1, toplev
! print general information about the level resolutions ! print general information about the level resolutions
! !
@ -315,16 +323,20 @@ module coordinates
dm(2) = rm(2) / jn dm(2) = rm(2) / jn
dm(3) = rm(3) / kn dm(3) = rm(3) / kn
! obtain the maximum number of block
!
ff = product(dm(1:NDIMS))
! print info ! print info
! !
write(*,"(4x,a, 1x,i6 )" ) "refinement to level =", toplev write(*,"(4x,a, 1x,i6 )" ) "refinement to level =", toplev
write(*,"(4x,a,3(1x,i6 ))") "base configuration =", ir, jr, kr write(*,"(4x,a,3(1x,i6 ))") "base configuration =", ir, jr, kr
write(*,"(4x,a,3(1x,i6 ))") "top level blocks =", dm(1:NDIMS) write(*,"(4x,a,3(1x,i6 ))") "top level blocks =", dm(1:NDIMS)
write(*,"(4x,a, 3x,i18)" ) "maximum cover blocks =", product(dm(1:NDIMS)) write(*,"(4x,a, 3x,i18)" ) "maximum cover blocks =", ff
write(*,"(4x,a,3(1x,i6 ))") "base resolution =", cm(1:NDIMS) write(*,"(4x,a,3(1x,i6 ))") "base resolution =", cm(1:NDIMS)
write(*,"(4x,a,3(1x,i6 ))") "effective resolution =", rm(1:NDIMS) write(*,"(4x,a,3(1x,i6 ))") "effective resolution =", rm(1:NDIMS)
end if ! master end if ! verbose
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -337,6 +349,10 @@ module coordinates
! !
! Subroutine deallocates mesh coordinates. ! Subroutine deallocates mesh coordinates.
! !
! Arguments:
!
! iret - return flag of the procedure execution status;
!
!=============================================================================== !===============================================================================
! !
subroutine finalize_coordinates(iret) subroutine finalize_coordinates(iret)