[cig-commits] [commit] Hiro_latest: Delete unused valuables (56df960)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

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

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

commit 56df960462f7aec90ea4bbf19a831bb9d60dcd56
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Fri Nov 1 19:10:31 2013 -0700

    Delete unused valuables


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

56df960462f7aec90ea4bbf19a831bb9d60dcd56
 .../UTILS_src/spherical_grid/const_global_sph_grids_modes.f90    | 4 ++--
 .../UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90         | 4 ++--
 .../UTILS_src/spherical_grid/set_indices_4_sph_tranform.f90      | 9 ++++-----
 3 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/Fortran_libraries/UTILS_src/spherical_grid/const_global_sph_grids_modes.f90 b/src/Fortran_libraries/UTILS_src/spherical_grid/const_global_sph_grids_modes.f90
index 6f39b74..3bb0105 100644
--- a/src/Fortran_libraries/UTILS_src/spherical_grid/const_global_sph_grids_modes.f90
+++ b/src/Fortran_libraries/UTILS_src/spherical_grid/const_global_sph_grids_modes.f90
@@ -336,8 +336,8 @@
      &    nidx_global_rtp(3), mspec_4_ispack, mdx_ispack)
 !
       call set_zonal_wavenum_4_legendre(ndomain_rtm(3),                 &
-     &    l_truncation, nidx_global_rj(2), nidx_global_rtp(2),          &
-     &    nidx_global_rtp(3), jdx_fsph, mdx_4_lgd)
+     &    l_truncation, nidx_global_rtp(2), nidx_global_rtp(3),         &
+     &    jdx_fsph, mdx_4_lgd)
 !
       call set_merged_index_4_sph_trans(ndomain_rtm(3),                 &
      &    l_truncation, nidx_global_rj(2), nidx_global_rtp(3),          &
diff --git a/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90 b/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90
index 3ab65ca..d704247 100644
--- a/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90
+++ b/src/Fortran_libraries/UTILS_src/spherical_grid/set_ctl_gen_shell_grids.f90
@@ -216,8 +216,8 @@
       ndomain_rj(1:2) = 1
       if (ndir_domain_sph_grid .gt. 0) then
         do i = 1, ndir_domain_spectr
-          iflag_t = cmp_no_case(dir_domain_sph_grid_ctl(i), 'modes')    &
-     &       + cmp_no_case(dir_domain_sph_grid_ctl(i), 'degree_order')
+          iflag_t = cmp_no_case(dir_domain_spectr_ctl(i), 'modes')      &
+     &       + cmp_no_case(dir_domain_spectr_ctl(i), 'degree_order')
           if (iflag_t .gt. 0) ndomain_rj(2) = num_domain_spectr_ctl(i)
         end do
 !
diff --git a/src/Fortran_libraries/UTILS_src/spherical_grid/set_indices_4_sph_tranform.f90 b/src/Fortran_libraries/UTILS_src/spherical_grid/set_indices_4_sph_tranform.f90
index e16686e..4267921 100644
--- a/src/Fortran_libraries/UTILS_src/spherical_grid/set_indices_4_sph_tranform.f90
+++ b/src/Fortran_libraries/UTILS_src/spherical_grid/set_indices_4_sph_tranform.f90
@@ -20,7 +20,7 @@
 !!     &          mspec_4_ispack, mdx_ispack)
 !!        output: mspec_4_ispack, mdx_ispack
 !!      subroutine set_zonal_wavenum_4_legendre(ndomain_m,              &
-!!     &          ltr, jmax, nth, nph, jdx_fsph, mdx_4_lgd)
+!!     &          ltr, nth, nph, jdx_fsph, mdx_4_lgd)
 !!        output: jdx_fsph, mdx_4_lgd
 !!
 !!      subroutine set_merged_index_4_sph_trans(ndomain_m, ltr, jmax,   &
@@ -273,14 +273,13 @@
 ! -----------------------------------------------------------------------
 !
       subroutine set_zonal_wavenum_4_legendre(ndomain_m,                &
-     &          ltr, jmax, nth, nph, jdx_fsph, mdx_4_lgd)
+     &          ltr, nth, nph, jdx_fsph, mdx_4_lgd)
 !
-      integer(kind = kint), intent(in) :: ltr, jmax
-      integer(kind = kint), intent(in) :: nth, nph, ndomain_m
+      integer(kind = kint), intent(in) :: ltr, nth, nph, ndomain_m
       integer(kind = kint), intent(inout) :: jdx_fsph(-nth:nth)
       integer(kind = kint), intent(inout) :: mdx_4_lgd(0:nph)
 !
-      integer(kind = kint) :: m, ip, mm, m0, imark, ltr_half
+      integer(kind = kint) :: m, ip, mm, imark, ltr_half
 !
 !
       allocate( ip_tmp(-ltr:ltr) )