[cig-commits] [commit] Hiro_latest: Bug fix (55f05e6)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

On branch  : Hiro_latest
Link       : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce

>---------------------------------------------------------------

commit 55f05e6f912525a4e43ad26675861601b2308dcb
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Sun Nov 17 09:14:33 2013 -0800

    Bug fix


>---------------------------------------------------------------

55f05e6f912525a4e43ad26675861601b2308dcb
 src/Fortran_libraries/MHD_src/sph_MHD/set_sph_scalar_mat_bc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/set_sph_scalar_mat_bc.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/set_sph_scalar_mat_bc.f90
index 5d93b00..5d63208 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/set_sph_scalar_mat_bc.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/set_sph_scalar_mat_bc.f90
@@ -121,7 +121,7 @@
      &                         *    coef_fdm_fix_dr_CMB_2(-1,3)
           evo_mat(2,nlayer_CMB,  j) = one + coef_imp*dt*coef_d          &
      &                         * ( -coef_fdm_fix_dr_CMB_2( 0,3)         &
-     &                          + g_sph_rj(j,3)*ar_1d_rj(nlayer_ICB,2))
+     &                          + g_sph_rj(j,3)*ar_1d_rj(nlayer_CMB,2))
       end do
 !
       end subroutine set_fix_flux_cmb_rmat_sph