Merge branch 'master' into reconnection

src/boundaries.F90

@@ -401,8 +401,8 @@ module boundaries
     use coordinates    , only : ib, ie, ibl
     use coordinates    , only : jb, je, jbl
     use coordinates    , only : kb, ke, kbl
-#ifdef MPI
     use equations      , only : nv
+#ifdef MPI
     use mpitools       , only : nprocs, nproc, npmax
     use mpitools       , only : send_real_array, receive_real_array
 #endif /* MPI */
@@ -1073,7 +1073,7 @@ module boundaries
 
 ! local variables
 !
-    integer                   :: i, j, k, n
+    integer                   :: i, j, k, n, m
 !
 !-------------------------------------------------------------------------------
 !
@@ -1114,6 +1114,11 @@ module boundaries
 !
               if (.not. periodic(n)) then
 
+! calculate the edge direction (in 2D we don't have face neighbors, so we have
+! to use edge neighbors)
+!
+                m = 3 - n
+
 ! iterate over all corners
 !
                 do j = 1, nsides
@@ -1121,8 +1126,8 @@ module boundaries
 
 ! if the face neighbor is not associated, apply specific boundaries
 !
-                  if (.not. associated(pmeta%edges(i,j,n)%ptr))                &
+                  if (.not. associated(pmeta%edges(i,j,m)%ptr))                &
-                            call block_boundary_specific(i, j, k, 3 - n        &
+                            call block_boundary_specific(i, j, k, n            &
                                           , pmeta%data%q(1:nv,1:im,1:jm,1:km))
 
                   end do ! i = 1, sides
@@ -1223,9 +1228,7 @@ module boundaries
     use coordinates    , only : ie , je , ke
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -1773,9 +1776,7 @@ module boundaries
     use coordinates    , only : ie , je , ke
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -2323,9 +2324,7 @@ module boundaries
     use coordinates    , only : ie , je , ke
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -2900,9 +2899,7 @@ module boundaries
     use coordinates    , only : ie , je , ke
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -3479,9 +3476,7 @@ module boundaries
     use coordinates    , only : ie , je , ke
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -4058,9 +4053,7 @@ module boundaries
     use coordinates    , only : ie , je , ke
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -4648,9 +4641,7 @@ module boundaries
     use coordinates    , only : im , jm , km
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -5109,9 +5100,7 @@ module boundaries
     use coordinates    , only : im , jm , km
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array
@@ -5569,9 +5558,7 @@ module boundaries
     use coordinates    , only : im , jm , km
     use coordinates    , only : ibl, jbl, kbl
     use coordinates    , only : ieu, jeu, keu
-#ifdef MPI
     use equations      , only : nv
-#endif /* MPI */
     use mpitools       , only : nproc, nprocs, npmax
 #ifdef MPI
     use mpitools       , only : send_real_array, receive_real_array

src/domains.F90

@@ -154,7 +154,7 @@ module domains
 ! local variables
 !
     integer      :: i, j, k, n, p, ic, jc, kc
-    real    :: xl, xmn, xmx, yl, ymn, ymx, zl, zmn, zmx
+    real(kind=8) :: xl, xmn, xmx, yl, ymn, ymx, zl, zmn, zmx
 
 ! local arrays
 !

src/driver.F90

@@ -85,7 +85,7 @@ program amun
   integer, dimension(3) :: div = 1
   logical, dimension(3) :: per = .true.
   integer               :: nmax  = huge(1), ndat = 1
-  real                  :: tmax  = 0.0d+00, trun = 9.999d+03, tsav = 3.0d+01
+  real(kind=8)          :: tmax  = 0.0d+00, trun = 9.999d+03, tsav = 3.0d+01
   real(kind=8)          :: dtnext = 0.0d+00
 
 ! flag to adjust time precisely to the snapshots
@@ -118,7 +118,7 @@ program amun
   integer               :: nsteps = 1
   character(len=80)     :: fmt, tmp
 
-  real                  :: tbeg, thrs
+  real(kind=8)          :: tbeg, thrs
   real(kind=8)          :: tm_curr, tm_exec, tm_conv
 
 #ifdef INTEL
@@ -593,7 +593,7 @@ program amun
 
 ! calculate days, hours, seconds
 !
-      ec   = int(tm_curr * (tmax - time) / max(1.0e-8, time - tbeg), kind = 4)
+      ec   = int(tm_curr * (tmax - time) / max(1.0d-08, time - tbeg), kind = 4)
       es   = max(0, int(mod(ec, 60)))
       em   = int(mod(ec / 60, 60))
       eh   = int(ec / 3600)

src/equations.F90

@@ -1145,7 +1145,7 @@ module equations
 ! local variables
 !
     integer      :: i
-    real    :: ek, ei
+    real(kind=8) :: ek, ei
 !
 !-------------------------------------------------------------------------------
 !
@@ -1210,7 +1210,7 @@ module equations
 ! local variables
 !
     integer      :: i
-    real    :: ek, ei
+    real(kind=8) :: ek, ei
 !
 !-------------------------------------------------------------------------------
 !

src/evolution.F90

@@ -41,19 +41,19 @@ module evolution
 
 ! evolution parameters
 !
-  real   , save :: cfl     = 0.5d+00
+  real(kind=8), save :: cfl     = 0.5d+00
 
 ! coefficient controlling the decay of scalar potential ѱ
 !
-  real   , save :: alpha   = 2.0d+00
+  real(kind=8), save :: alpha   = 2.0d+00
-  real   , save :: decay   = 1.0d+00
+  real(kind=8), save :: decay   = 1.0d+00
 
 ! time variables
 !
   integer     , save :: step    = 0
-  real   , save :: time    = 0.0d+00
+  real(kind=8), save :: time    = 0.0d+00
-  real   , save :: dt      = 1.0d+00
+  real(kind=8), save :: dt      = 1.0d+00
-  real   , save :: dtn     = 1.0d+00
+  real(kind=8), save :: dtn     = 1.0d+00
 
 ! by default everything is private
 !
@@ -225,7 +225,7 @@ module evolution
 
 ! input variables
 !
-    real, intent(in) :: dtnext
+    real(kind=8), intent(in) :: dtnext
 !
 !-------------------------------------------------------------------------------
 !
@@ -309,7 +309,7 @@ module evolution
 
 ! input variables
 !
-    real, intent(in) :: dtnext
+    real(kind=8), intent(in) :: dtnext
 
 ! local pointers
 !
@@ -319,11 +319,11 @@ module evolution
 !
     integer                   :: iret
     integer(kind=4)           :: lev
-    real                      :: cm, dx_min
+    real(kind=8)              :: cm, dx_min
 
 ! local parameters
 !
-    real, parameter           :: eps = tiny(cmax)
+    real(kind=8), parameter   :: eps = tiny(cmax)
 !
 !-------------------------------------------------------------------------------
 !
@@ -432,7 +432,7 @@ module evolution
 
 ! local arrays
 !
-    real, dimension(nv,im,jm,km) :: du
+    real(kind=8), dimension(nv,im,jm,km) :: du
 !
 !-------------------------------------------------------------------------------
 !
@@ -517,7 +517,7 @@ module evolution
 
 ! local arrays
 !
-    real, dimension(nv,im,jm,km) :: du
+    real(kind=8), dimension(nv,im,jm,km) :: du
 !
 !-------------------------------------------------------------------------------
 !
@@ -642,7 +642,7 @@ module evolution
 
 ! local vectors
 !
-    real, dimension(3)        :: dx
+    real(kind=8), dimension(3) :: dx
 
 ! local variables
 !

src/hosts/default

@@ -16,10 +16,14 @@ FC       = gfortran
 endif
 LD        = $(FC)
 
+# preprocessor prefix (used by IBM Fortran, e.g.)
+#
+CPPPREFIX =
+
 # compiler and linker flags
 #
 ifeq ($(DEBUG),Y)
-FFLAGS   = -g -O2 -DDEBUG
+FFLAGS    = -g -O2 $(CPPPREFIX)-DDEBUG
 else
 FFLAGS    = -O2
 endif
@@ -37,13 +41,11 @@ LDFLAGS += -static
 endif
 
 ifeq ($(SIGNALS),Y)
-FFLAGS += -DSIGNALS
+FFLAGS += $(CPPPREFIX)-DSIGNALS
 endif
 
-FFLAGS  += -default-real-8 -default-double-8
-
 ifeq ($(MPI),Y)
-FFLAGS  += -DMPI
+FFLAGS  += $(CPPPREFIX)-DMPI
 endif
 
 ifeq ($(OUTPUT),HDF5)

src/integrals.F90

@@ -142,13 +142,18 @@ module integrals
 
 ! create a new integrals file
 !
+#ifdef GNU
+      open (newunit = funit, file = fname, form = 'formatted'                  &
+                                       , status = 'replace')
+#endif /* GNU */
 #ifdef INTEL
       open (newunit = funit, file = fname, form = 'formatted'                  &
                                        , status = 'replace', buffered = 'yes')
-#else /* INTEL */
-      open (newunit = funit, file = fname, form = 'formatted'                  &
-                                       , status = 'replace')
 #endif /* INTEL */
+#ifdef IBM
+      open (unit = funit, file = fname, form = 'formatted'                     &
+                                       , status = 'replace')
+#endif /* IBM */
 
 ! write the integral file header
 !
@@ -163,13 +168,18 @@ module integrals
 
 ! create a new statistics file
 !
+#ifdef GNU
+      open (newunit = sunit, file = fname, form = 'formatted'                  &
+                                       , status = 'replace')
+#endif /* GNU */
 #ifdef INTEL
       open (newunit = sunit, file = fname, form = 'formatted'                  &
                                        , status = 'replace', buffered = 'yes')
-#else /* INTEL */
-      open (newunit = sunit, file = fname, form = 'formatted'                  &
-                                       , status = 'replace')
 #endif /* INTEL */
+#ifdef IBM
+      open (unit = sunit, file = fname, form = 'formatted'                     &
+                                       , status = 'replace')
+#endif /* IBM */
 
 ! write the integral file header
 !

src/interpolations.F90

@@ -453,7 +453,7 @@ module interpolations
 
 ! selection weights
 !
-    real, parameter :: dp = 2.0d+00 / 3.0d+00, dm = 1.0d+00 / 3.0d+00
+    real(kind=8), parameter :: dp = 2.0d+00 / 3.0d+00, dm = 1.0d+00 / 3.0d+00
 !
 !-------------------------------------------------------------------------------
 !
@@ -1555,8 +1555,8 @@ module interpolations
 ! subroutine arguments
 !
     integer                   , intent(in)    :: n
-    real, dimension(n), intent(in)    :: f
+    real(kind=8), dimension(n), intent(in)    :: f
-    real, dimension(n), intent(inout) :: fl, fr
+    real(kind=8), dimension(n), intent(inout) :: fl, fr
 
 ! local variables
 !

src/io.F90

@@ -117,9 +117,9 @@ module io
   integer(kind=4)   , save :: irest       =  1
   integer(kind=4)   , save :: isnap       =  0
   integer(kind=4)   , save :: ishift      =  0
-  real              , save :: hrest       =  6.0e+00
+  real(kind=8)      , save :: hrest       =  6.0e+00
-  real              , save :: hsnap       =  1.0e+00
+  real(kind=8)      , save :: hsnap       =  1.0e+00
-  real              , save :: tsnap       =  0.0e+00
+  real(kind=8)      , save :: tsnap       =  0.0e+00
 
 ! flags to determine the way of data writing
 !
@@ -374,7 +374,7 @@ module io
 
 ! input and output arguments
 !
-    real   , intent(in)  :: thrs
+    real(kind=8), intent(in)  :: thrs
     integer     , intent(in)  :: nrun
     integer     , intent(out) :: iret
 !
@@ -475,7 +475,7 @@ module io
 !
 !===============================================================================
 !
-  real function next_tout()
+  real(kind=8) function next_tout()
 
 ! local variables are not implicit by default
 !

src/makefile

@@ -51,20 +51,20 @@ endif
 #
 # compiler
 #
-FFLAGS  += -D${COMPILER}
+FFLAGS  += ${CPPPREFIX}-D${COMPILER}
 
 # number of dimensions
 #
-FFLAGS  += -DNDIMS=${NDIMS}
+FFLAGS  += ${CPPPREFIX}-DNDIMS=${NDIMS}
 
 # output data format
 #
-FFLAGS  += -D${OUTPUT}
+FFLAGS  += ${CPPPREFIX}-D${OUTPUT}
 
 # compression
 #
 ifneq ($(COMPRESS),NONE)
-FFLAGS  += -DCOMPRESS -D${COMPRESS}
+FFLAGS  += ${CPPPREFIX}-DCOMPRESS ${CPPPREFIX}-D${COMPRESS}
 endif
 
 #-------------------------------------------------------------------------------

src/mesh.F90

@@ -1058,7 +1058,7 @@ module mesh
     integer      :: i, j, k, q, p
     integer      :: il, iu, jl, ju, kl, ku
     integer      :: ic, jc, kc, ip, jp, kp
-    real    :: dul, dur, dux, duy, duz, du1, du2, du3, du4
+    real(kind=8) :: dul, dur, dux, duy, duz, du1, du2, du3, du4
 
 ! local pointers
 !
@@ -1071,7 +1071,7 @@ module mesh
 
 ! local allocatable arrays
 !
-    real, dimension(:,:,:,:), allocatable :: u
+    real(kind=8), dimension(:,:,:,:), allocatable :: u
 
 !-------------------------------------------------------------------------------
 !

src/mpitools.F90

@@ -457,7 +457,7 @@ module mpitools
 
 ! subroutine arguments
 !
-    real   , intent(inout) :: rbuf
+    real(kind=8), intent(inout) :: rbuf
     integer     , intent(inout) :: iret
 !
 !-------------------------------------------------------------------------------
@@ -604,12 +604,12 @@ module mpitools
 
 ! subroutine arguments
 !
-    real   , intent(inout) :: rbuf
+    real(kind=8), intent(inout) :: rbuf
     integer     , intent(out)   :: iret
 
 ! local variables
 !
-    real                   :: tbuf
+    real(kind=8) :: tbuf
 !
 !-------------------------------------------------------------------------------
 !
@@ -715,12 +715,12 @@ module mpitools
 
 ! subroutine arguments
 !
-    real   , intent(inout) :: rbuf
+    real(kind=8), intent(inout) :: rbuf
     integer     , intent(out)   :: iret
 
 ! local variables
 !
-    real                   :: tbuf
+    real(kind=8) :: tbuf
 !
 !-------------------------------------------------------------------------------
 !
@@ -825,12 +825,12 @@ module mpitools
 
 ! subroutine arguments
 !
-    real   , intent(inout) :: rbuf
+    real(kind=8), intent(inout) :: rbuf
     integer     , intent(out)   :: iret
 
 ! local variables
 !
-    real                   :: tbuf
+    real(kind=8) :: tbuf
 !
 !-------------------------------------------------------------------------------
 !
@@ -882,7 +882,7 @@ module mpitools
 ! subroutine arguments
 !
     integer                   , intent(in)    :: n
-    real   , dimension(n), intent(inout) :: rbuf
+    real(kind=8), dimension(n), intent(inout) :: rbuf
     integer                   , intent(out)   :: iret
 
 ! local variables
@@ -939,7 +939,7 @@ module mpitools
 ! subroutine arguments
 !
     integer                   , intent(in)    :: n
-    real   , dimension(n), intent(inout) :: rbuf
+    real(kind=8), dimension(n), intent(inout) :: rbuf
     integer                   , intent(out)   :: iret
 
 ! local variables
@@ -1053,7 +1053,7 @@ module mpitools
 ! subroutine arguments
 !
     integer                   , intent(in)    :: n
-    real   , dimension(n), intent(inout) :: rbuf
+    real(kind=8), dimension(n), intent(inout) :: rbuf
     integer                   , intent(out)   :: iret
 
 ! local variables
@@ -1177,7 +1177,7 @@ module mpitools
 ! subroutine arguments
 !
     integer                   , intent(in)  :: n, dst, tag
-    real   , dimension(n), intent(in)  :: rbuf
+    real(kind=8), dimension(n), intent(in)  :: rbuf
     integer                   , intent(out) :: iret
 !
 !-------------------------------------------------------------------------------
@@ -1233,7 +1233,7 @@ module mpitools
 ! subroutine arguments
 !
     integer                   , intent(in)  :: n, src, tag
-    real   , dimension(n), intent(out) :: rbuf
+    real(kind=8), dimension(n), intent(out) :: rbuf
     integer                   , intent(out) :: iret
 
 ! local variables

src/parameters.F90

@@ -550,7 +550,7 @@ module parameters
 ! subroutine arguments
 !
     character(len=*), intent(in)    :: name
-    real            , intent(inout) :: value
+    real(kind=8)    , intent(inout) :: value
 
 ! local parameter counter
 !

src/random.F90

@@ -97,7 +97,7 @@ module random
 ! local variables
 !
     integer      :: i
-    real    :: r
+    real(kind=4) :: r
 !
 !-------------------------------------------------------------------------------
 !
@@ -218,7 +218,7 @@ module random
 ! local variables
 !
     integer      :: i, l
-    real    :: r
+    real(kind=4) :: r
 !
 !-------------------------------------------------------------------------------
 !
@@ -326,7 +326,7 @@ module random
 
 ! output variables
 !
-    real            :: val
+    real(kind=8)    :: val
 
 ! local variables
 !
@@ -349,7 +349,7 @@ module random
 
     seeds(kp) = jsr
 
-    val = 0.5 + 0.23283064365e-9 * (jz + jsr)
+    val = 0.5d+00 + 0.23283064365d-09 * (jz + jsr)
 
 #ifdef PROFILE
 ! stop accounting time for the random number generation
@@ -380,7 +380,7 @@ module random
 
 ! output variables
 !
-    real            :: val
+    real(kind=8)    :: val
 
 ! local variables
 !
@@ -403,7 +403,7 @@ module random
 
     seeds(kp) = jsr
 
-    val = 0.23283064365e-9 * (jz + jsr)
+    val = 0.23283064365d-09 * (jz + jsr)
 
 #ifdef PROFILE
 ! stop accounting time for the random number generation
@@ -434,7 +434,7 @@ module random
 
 ! output variables
 !
-    real            :: val
+    real(kind=8)    :: val
 
 ! local variables
 !
@@ -457,7 +457,7 @@ module random
 
     seeds(kp) = jsr
 
-    val = 0.46566128730e-9 * (jz + jsr)
+    val = 0.46566128730d-09 * (jz + jsr)
 
 #ifdef PROFILE
 ! stop accounting time for the random number generation