[cig-commits] [commit] Hiro_latest: Add boundary group names as parameter (4efdac4)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

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

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

commit 4efdac4087fb91163131882193a9139a98b80f30
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Wed Oct 23 14:46:19 2013 -0700

    Add boundary group names as parameter


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

4efdac4087fb91163131882193a9139a98b80f30
 .../SPH_SPECTR_src/m_spheric_parameter.f90         | 25 ++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/src/Fortran_libraries/SERIAL_src/SPH_SPECTR_src/m_spheric_parameter.f90 b/src/Fortran_libraries/SERIAL_src/SPH_SPECTR_src/m_spheric_parameter.f90
index 522a724..9a3fd8e 100644
--- a/src/Fortran_libraries/SERIAL_src/SPH_SPECTR_src/m_spheric_parameter.f90
+++ b/src/Fortran_libraries/SERIAL_src/SPH_SPECTR_src/m_spheric_parameter.f90
@@ -104,6 +104,31 @@
 !>      global radius data @f$ r(k) @f$
       real(kind = kreal), allocatable :: radius_1d_gl(:)
 !
+!    Group names for spherical shell dynamos
+!
+!>      Group name for ICB
+      character(len=kchara), parameter :: ICB_nod_grp_name = 'ICB'
+!>      Group name for CMB
+      character(len=kchara), parameter :: CMB_nod_grp_name = 'CMB'
+!>      Group name for innermost radius
+      character(len=kchara), parameter                                  &
+     &                      :: CTR_nod_grp_name = 'to_Center'
+!
+!>      Element Group name for inner core
+      character(len=kchara), parameter                                  &
+     &                      :: IC_ele_grp_name = 'inner_core'
+!>      Element Group name for outer core
+      character(len=kchara), parameter                                  &
+     &                      :: OC_ele_grp_name = 'outer_core'
+!
+!>      Surface Group name for ICB
+      character(len=kchara), parameter :: ICB_sf_grp_name = 'ICB_surf'
+!>      Surface Group name for CMB
+      character(len=kchara), parameter :: CMB_sf_grp_name = 'CMB_surf'
+!>      Group name for innermost radius
+      character(len=kchara), parameter                                  &
+     &                      :: CTR_sf_grp_name = 'to_Center_surf'
+!
 !   global parameters
 !
 !>      number of global 1d data points for @f$ f(r,\theta,\phi) @f$