[cig-commits] [commit] Include_averaging_programs, master: Fix bug in counting number of components in spherical transform (8e5b4fe)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Jun 4 20:00:28 PDT 2014
Repository : https://github.com/geodynamics/calypso
On branches: Include_averaging_programs,master
Link : https://github.com/geodynamics/calypso/compare/d3671756c9a8dc30cd0c89470f2e2f0599bbe718...1d20f55fd74b30f7715f875492f6a7b62f3b6274
>---------------------------------------------------------------
commit 8e5b4fefdb5b27c6ed0b1448a44005ea47b02322
Author: Hiroaki Matsui <h_kemono at mac.com>
Date: Mon Apr 28 11:18:17 2014 -0700
Fix bug in counting number of components in spherical transform
>---------------------------------------------------------------
8e5b4fefdb5b27c6ed0b1448a44005ea47b02322
src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90
index 1787d3f..7086b89 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90
@@ -164,7 +164,8 @@
!
ncomp_bwd = 3*nvector_snap_rj_2_rtp + nscalar_snap_rj_2_rtp
ncomp_fwd = 3*nvector_snap_rtp_2_rj + nscalar_snap_rtp_2_rj
- ncomp_sph_trans = max(ncomp_bwd,ncomp_fwd)
+ ncomp_sph_trans = max(ncomp_sph_trans, ncomp_fwd)
+ ncomp_sph_trans = max(ncomp_sph_trans, ncomp_bwd)
!
end subroutine set_addresses_snapshot_trans
!
More information about the CIG-COMMITS
mailing list