diff --git a/README.md b/README.md index fa4f1b3..f658b6c 100644 --- a/README.md +++ b/README.md @@ -1,6 +1,6 @@ # **The AMUN Code** -## Copyright (C) 2008-2023 Grzegorz Kowal +## Copyright (C) 2008-2024 Grzegorz Kowal [![Build Status](https://drone.amuncode.org/api/badges/gkowal/amun-code/status.svg)](https://drone.amuncode.org/gkowal/amun-code) diff --git a/problems/kelvin-helmholtz.in b/problems/kelvin-helmholtz.in new file mode 100644 index 0000000..0727fd6 --- /dev/null +++ b/problems/kelvin-helmholtz.in @@ -0,0 +1,40 @@ +# problem name and parameters +# +problem = "Kelvin-Helmholtz" + +# random number generator parameters +# +gentype = "random" + +# physics +# +equation_system = "hd" +equation_of_state = "adi" + +# methods +# +time_advance = "rk5(4)10" +riemann_solver = "kepes" +reconstruction = "mp5" + +# mesh parameters +# +xmin = -5.0d-01 +xmax = 5.0d-01 +ymin = -5.0d-01 +ymax = 5.0d-01 + +# refinement control +# +ncells = 16 +maxlev = 6 + +# runtime control parameters +# +tmax = 1.0d+00 +cfl = 4.0d-01 + +# data output control +# +snapshot_interval = 1.0d-01 +compression_format = "lz4" \ No newline at end of file diff --git a/problems/kh.in b/problems/kh.in deleted file mode 100644 index cd2272f..0000000 --- a/problems/kh.in +++ /dev/null @@ -1,58 +0,0 @@ -# problem name and parameters -# -problem = "kh" - -# random number generator parameters -# -gentype = "random" - -# physics -# -equation_system = "mhd" -equation_of_state = "adi" - -# methods -# -time_advance = "rk2" -riemann_solver = "hlld" -reconstruction = "limo3" -limiter = "mc" -fix_positivity = "off" - -# mesh parameters -# -xmin = -5.0d-01 -xmax = 5.0d-01 -ymin = -5.0d-01 -ymax = 5.0d-01 -zmin = -5.0d-01 -zmax = 5.0d-01 - -# refinement control -# -ncells = 8 -nghosts = 2 -minlev = 1 -maxlev = 7 - -# boundary conditions -# -xlbndry = "periodic" -xubndry = "periodic" -ylbndry = "periodic" -yubndry = "periodic" -zlbndry = "periodic" -zubndry = "periodic" - -# runtime control parameters -# -tmax = 1.0d+00 -cfl = 4.0d-01 - -# data output control -# -precise_snapshots = "on" -snapshot_type = "p" -snapshot_interval = 1.0d-01 -restart_number = -1 -integrals_interval = 10 diff --git a/problems/orszag-tang.in b/problems/orszag-tang.in new file mode 100644 index 0000000..86e140d --- /dev/null +++ b/problems/orszag-tang.in @@ -0,0 +1,46 @@ +# problem name and parameters +# +problem = "Orszag-Tang" + +# physics +# +equation_system = "mhd" +equation_of_state = "adi" +glm_source_terms = "kepes" + +# methods +# +time_advance = "ssprk3(2)4" +riemann_solver = "kepes" +reconstruction = "mp5" + +# mesh parameters +# +xmin = -5.00d-01 +xmax = 5.00d-01 +ymin = -5.00d-01 +ymax = 5.00d-01 + +# refinement control +# +ncells = 32 +maxlev = 5 +refinement_variables = "dens pres vort curr" + +# boundary conditions +# +xlbndry = "periodic" +xubndry = "periodic" +ylbndry = "periodic" +yubndry = "periodic" +zlbndry = "periodic" +zubndry = "periodic" + +# runtime control parameters +# +tmax = 5.0d-01 +cfl = 5.0d-01 + +# data output control +# +snapshot_interval = 1.0d-02 diff --git a/problems/tearing.in b/problems/tearing.in index 7554d5a..5291154 100644 --- a/problems/tearing.in +++ b/problems/tearing.in @@ -16,19 +16,12 @@ equation_of_state = "adi" # methods # -time_advance = "ssprk(m,3)" -stages = 4 -riemann_solver = "hlld" -reconstruction = "crmp7" -limiter = "mc" -prolongation_limiter = "mc" -fix_positivity = "off" +time_advance = "ssprk3(2)4" +riemann_solver = "roe" +reconstruction = "crmp5" # mesh parameters # -xblocks = 1 -yblocks = 1 -zblocks = 1 xmin = -5.0d-01 xmax = 5.0d-01 ymin = -5.0d-01 @@ -38,8 +31,7 @@ zmax = 5.0d-01 # refinement control # -ncells = 16 -minlev = 1 +ncells = 32 maxlev = 10 refinement_variables = "dens pres curr" @@ -55,11 +47,9 @@ zubndry = "periodic" # runtime control parameters # tmax = 1.0d+00 -cfl = 3.0d-01 +cfl = 5.0d-01 # data output control # snapshot_interval = 1.0d-01 -compression_format = "lz4" -compression_level = 30 -integrals_interval = 1 +compression_format = "zstd" diff --git a/python/amunpy/src/amunpy/__init__.py b/python/amunpy/src/amunpy/__init__.py index 62fa7eb..3e1b62d 100644 --- a/python/amunpy/src/amunpy/__init__.py +++ b/python/amunpy/src/amunpy/__init__.py @@ -20,7 +20,7 @@ __all__ = [ 'AmunXML', 'AmunH5', 'WriteVTK', \ 'amun_attribute', 'amun_coordinate', 'amun_dataset', 'amun_dataset_vtk', 'amun_integrals' ] __author__ = "Grzegorz Kowal" -__copyright__ = "Copyright 2018-2023 Grzegorz Kowal " +__copyright__ = "Copyright 2018-2024 Grzegorz Kowal " __version__ = "0.9.11" __maintainer__ = "Grzegorz Kowal" __email__ = "grzegorz@amuncode.org" diff --git a/python/amunpy/src/amunpy/amun.py b/python/amunpy/src/amunpy/amun.py index 6871369..44171d0 100644 --- a/python/amunpy/src/amunpy/amun.py +++ b/python/amunpy/src/amunpy/amun.py @@ -5,7 +5,7 @@ This file is part of the AMUN source code, a program to perform Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive grid. - Copyright (C) 2021-2023 Grzegorz Kowal + Copyright (C) 2021-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/amunh5.py b/python/amunpy/src/amunpy/amunh5.py index 50e794d..424f544 100644 --- a/python/amunpy/src/amunpy/amunh5.py +++ b/python/amunpy/src/amunpy/amunh5.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/amunh5_deprecated.py b/python/amunpy/src/amunpy/amunh5_deprecated.py index 828107c..b6344b2 100644 --- a/python/amunpy/src/amunpy/amunh5_deprecated.py +++ b/python/amunpy/src/amunpy/amunh5_deprecated.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/amunxml.py b/python/amunpy/src/amunpy/amunxml.py index bf364b9..147375a 100644 --- a/python/amunpy/src/amunpy/amunxml.py +++ b/python/amunpy/src/amunpy/amunxml.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/integrals.py b/python/amunpy/src/amunpy/integrals.py index 55e8fe5..1930a5e 100644 --- a/python/amunpy/src/amunpy/integrals.py +++ b/python/amunpy/src/amunpy/integrals.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/interpolation.py b/python/amunpy/src/amunpy/interpolation.py index a71a96d..65f4492 100644 --- a/python/amunpy/src/amunpy/interpolation.py +++ b/python/amunpy/src/amunpy/interpolation.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/octree.py b/python/amunpy/src/amunpy/octree.py index 68dc6aa..7f87a5b 100644 --- a/python/amunpy/src/amunpy/octree.py +++ b/python/amunpy/src/amunpy/octree.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/python/amunpy/src/amunpy/vtkio.py b/python/amunpy/src/amunpy/vtkio.py index d3a90d9..7bf20de 100644 --- a/python/amunpy/src/amunpy/vtkio.py +++ b/python/amunpy/src/amunpy/vtkio.py @@ -5,7 +5,7 @@ Newtonian or relativistic magnetohydrodynamical simulations on uniform or adaptive mesh. - Copyright (C) 2018-2023 Grzegorz Kowal + Copyright (C) 2018-2024 Grzegorz Kowal This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/sources/algebra.F90 b/sources/algebra.F90 index 18c1166..6827d7f 100644 --- a/sources/algebra.F90 +++ b/sources/algebra.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/amun.F90 b/sources/amun.F90 index 2ac4e6b..ebdbf9c 100644 --- a/sources/amun.F90 +++ b/sources/amun.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/blocks.F90 b/sources/blocks.F90 index 3958571..b567aab 100644 --- a/sources/blocks.F90 +++ b/sources/blocks.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/boundaries.F90 b/sources/boundaries.F90 index c55362d..649db61 100644 --- a/sources/boundaries.F90 +++ b/sources/boundaries.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/compression.F90 b/sources/compression.F90 index 98a7ef4..1b3f7bf 100644 --- a/sources/compression.F90 +++ b/sources/compression.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2020-2023 Grzegorz Kowal +!! Copyright (C) 2020-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/constants.F90 b/sources/constants.F90 index 2d68e62..8ee1f38 100644 --- a/sources/constants.F90 +++ b/sources/constants.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/coordinates.F90 b/sources/coordinates.F90 index 604354a..6f6d2ec 100644 --- a/sources/coordinates.F90 +++ b/sources/coordinates.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/equations.F90 b/sources/equations.F90 index 1d438fd..96da4dd 100644 --- a/sources/equations.F90 +++ b/sources/equations.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/evolution.F90 b/sources/evolution.F90 index 423906f..2a11c42 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/forcing.F90 b/sources/forcing.F90 index a577bca..73f6240 100644 --- a/sources/forcing.F90 +++ b/sources/forcing.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2017-2023 Grzegorz Kowal +!! Copyright (C) 2017-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/gravity.F90 b/sources/gravity.F90 index 3a9cad2..d6a8ae5 100644 --- a/sources/gravity.F90 +++ b/sources/gravity.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/hash.F90 b/sources/hash.F90 index d2dc2c6..8d81f1c 100644 --- a/sources/hash.F90 +++ b/sources/hash.F90 @@ -5,7 +5,7 @@ !! adaptive mesh. !! !! Copyright (C) 2012-2020 Yann Collet -!! Copyright (C) 2020-2023 Grzegorz Kowal +!! Copyright (C) 2020-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/helpers.F90 b/sources/helpers.F90 index c8e3ef9..88c0b37 100644 --- a/sources/helpers.F90 +++ b/sources/helpers.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2019-2023 Grzegorz Kowal +!! Copyright (C) 2019-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by @@ -91,7 +91,7 @@ module helpers write(*,"(1x,78('-'))") write(*,"(1x,18('='),17x,a,17x,19('='))") 'A M U N' write(*,"(1x,16('='),4x,a,4x,16('='))") & - 'Copyright (C) 2008-2023 Grzegorz Kowal' + 'Copyright (C) 2008-2024 Grzegorz Kowal' write(*,"(1x,18('='),9x,a,9x,19('='))") & 'under GNU GPLv3 license' write(*,"(1x,78('-'))") diff --git a/sources/interpolations.F90 b/sources/interpolations.F90 index 2914df8..778de4b 100644 --- a/sources/interpolations.F90 +++ b/sources/interpolations.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/io.F90 b/sources/io.F90 index 7fd905c..47f0a72 100644 --- a/sources/io.F90 +++ b/sources/io.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/mesh.F90 b/sources/mesh.F90 index cb184f3..2e3b143 100644 --- a/sources/mesh.F90 +++ b/sources/mesh.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/mpitools.F90 b/sources/mpitools.F90 index bf40e3c..38fe16f 100644 --- a/sources/mpitools.F90 +++ b/sources/mpitools.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/operators.F90 b/sources/operators.F90 index 1a27970..d9ba251 100644 --- a/sources/operators.F90 +++ b/sources/operators.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/parameters.F90 b/sources/parameters.F90 index 2fd2670..660b58a 100644 --- a/sources/parameters.F90 +++ b/sources/parameters.F90 @@ -4,7 +4,7 @@ ! (classical and relativistic) plasma modeling software for the study of ! astrophysical phenomena. ! -! Copyright (C) 2008-2023 Grzegorz Kowal +! Copyright (C) 2008-2024 Grzegorz Kowal ! ! ! This program is free software: you can redistribute it and/or modify diff --git a/sources/problems.F90 b/sources/problems.F90 index 21ff78f..a09d568 100644 --- a/sources/problems.F90 +++ b/sources/problems.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by @@ -98,7 +98,7 @@ module problems case("implosion") setup_problem => setup_problem_implosion - case("kh", "kelvinhelmholtz", "kelvin-helmholtz") + case("kh", "kelvinhelmholtz", "kelvin-helmholtz", "Kelvin-Helmholtz") setup_problem => setup_problem_kelvin_helmholtz case("rt", "rayleightaylor", "rayleigh-taylor") diff --git a/sources/random.F90 b/sources/random.F90 index d6e909f..2986faa 100644 --- a/sources/random.F90 +++ b/sources/random.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/refinement.F90 b/sources/refinement.F90 index ccfabe3..a0151e8 100644 --- a/sources/refinement.F90 +++ b/sources/refinement.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/schemes.F90 b/sources/schemes.F90 index ea13213..eca68ed 100644 --- a/sources/schemes.F90 +++ b/sources/schemes.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by @@ -1969,7 +1969,7 @@ module schemes bty = qi(iby) / br btz = qi(ibz) / br else - bty = 0.0d+00 + bty = 1.0d+00 btz = 0.0d+00 end if @@ -3170,7 +3170,7 @@ module schemes btz = qi(ibz) / br else br = 0.0d+00 - bty = 0.0d+00 + bty = 1.0d+00 btz = 0.0d+00 end if @@ -3306,18 +3306,18 @@ module schemes f4 = alf * cf / norm f5 = qs * vqstr lvec(1,1) = f1 * (v2 - hp) - f4 * lm(7) + f5 - aspb - lvec(1,5) = f1 lvec(1,2) = - f1 * qi(ivx) + f4 lvec(1,3) = - f1 * qi(ivy) - f2 * bty lvec(1,4) = - f1 * qi(ivz) - f2 * btz + lvec(1,5) = f1 lvec(1,6) = f3 * bty - f1 * qi(iby) lvec(1,7) = f3 * btz - f1 * qi(ibz) lvec(7,1) = f1 * (v2 - hp) + f4 * lm(1) - f5 - aspb - lvec(7,5) = f1 lvec(7,2) = - f1 * qi(ivx) - f4 lvec(7,3) = - f1 * qi(ivy) + f2 * bty lvec(7,4) = - f1 * qi(ivz) + f2 * btz + lvec(7,5) = f1 lvec(7,6) = lvec(1,6) lvec(7,7) = lvec(1,7) @@ -3327,18 +3327,18 @@ module schemes f4 = als * cs / norm f5 = qf * vqstr lvec(3,1) = f1 * (v2 - hp) - f4 * lm(5) - f5 + afpb - lvec(3,5) = f1 lvec(3,2) = - f1 * qi(ivx) + f4 lvec(3,3) = - f1 * qi(ivy) + f2 * bty lvec(3,4) = - f1 * qi(ivz) + f2 * btz + lvec(3,5) = f1 lvec(3,6) = - f3 * bty - f1 * qi(iby) - lvec(3,6) = - f3 * btz - f1 * qi(ibz) + lvec(3,7) = - f3 * btz - f1 * qi(ibz) lvec(5,1) = f1 * (v2 - hp) + f4 * lm(3) + f5 + afpb - lvec(5,5) = f1 lvec(5,2) = - f1 * qi(ivx) - f4 lvec(5,3) = - f1 * qi(ivy) - f2 * bty lvec(5,4) = - f1 * qi(ivz) - f2 * btz + lvec(5,5) = f1 lvec(5,6) = lvec(3,6) lvec(5,7) = lvec(3,7) @@ -3359,10 +3359,10 @@ module schemes f1 = 1.0d+00 / cc2 lvec(4,1) = 1.0d+00 - f1 * (v2h - adi_m2d1 * xx) - lvec(4,5) = - f1 lvec(4,2) = f1 * qi(ivx) lvec(4,3) = f1 * qi(ivy) lvec(4,4) = f1 * qi(ivz) + lvec(4,5) = - f1 lvec(4,6) = f1 * qi(iby) lvec(4,7) = f1 * qi(ibz) diff --git a/sources/shapes.F90 b/sources/shapes.F90 index da8ffbf..624eead 100644 --- a/sources/shapes.F90 +++ b/sources/shapes.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/sources.F90 b/sources/sources.F90 index 9d46622..201a456 100644 --- a/sources/sources.F90 +++ b/sources/sources.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/statistics.F90 b/sources/statistics.F90 index f4a3c94..50cbbbc 100644 --- a/sources/statistics.F90 +++ b/sources/statistics.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/system.F90 b/sources/system.F90 index 3972834..a6bb127 100644 --- a/sources/system.F90 +++ b/sources/system.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2017-2023 Grzegorz Kowal +!! Copyright (C) 2017-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/timers.F90 b/sources/timers.F90 index e3fce91..4e1de23 100644 --- a/sources/timers.F90 +++ b/sources/timers.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2008-2023 Grzegorz Kowal +!! Copyright (C) 2008-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/user_problem.F90 b/sources/user_problem.F90 index 178f6d1..0dbd05e 100644 --- a/sources/user_problem.F90 +++ b/sources/user_problem.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2017-2023 Grzegorz Kowal +!! Copyright (C) 2017-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/workspace.F90 b/sources/workspace.F90 index 4e94d0b..a88eaa2 100644 --- a/sources/workspace.F90 +++ b/sources/workspace.F90 @@ -4,7 +4,7 @@ !! Newtonian or relativistic magnetohydrodynamical simulations on uniform or !! adaptive mesh. !! -!! Copyright (C) 2022-2023 Grzegorz Kowal +!! Copyright (C) 2022-2024 Grzegorz Kowal !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by diff --git a/sources/xml.F90 b/sources/xml.F90 index 9d79d32..94525ec 100644 --- a/sources/xml.F90 +++ b/sources/xml.F90 @@ -6,7 +6,7 @@ ! magnetohydrodynamic (classical and relativistic) plasma modeling studies ! of astrophysical phenomena. ! -! Copyright (C) 2023 Grzegorz Kowal +! Copyright (C) 2023-2024 Grzegorz Kowal ! ! This program is free software: you can redistribute it and/or modify ! it under the terms of the GNU General Public License as published by