sll_m_boundary_condition_descriptors.F90

Go to the documentation of this file.

 
!
! To be considered here is to include also BC combinations, which may help
! save some coding instead of managing this internally within routines, for
! example a flag like SLL_DIRICHLET_NEUMANN could indicate two BC's along
! a particular dimension...
module sll_m_boundary_condition_descriptors
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#include "sll_working_precision.h"
 
   implicit none
 
   public :: &
      sll_p_conductor, &
      sll_p_dirichlet, &
      sll_p_halo, &
      sll_p_one_sided, &
      sll_p_hermite, &
      sll_p_interior, &
      sll_p_neumann, &
      sll_p_neumann_mode_0, &
      sll_p_polar_origin, &
      sll_p_periodic, &
      sll_p_open, &
      sll_p_mirror, &
      sll_p_greville, &
      sll_p_set_to_limit, &
      sll_p_silver_muller, &
      sll_p_user_defined
 
   private
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
   sll_int32, parameter :: sll_p_user_defined = -1
   sll_int32, parameter :: sll_p_periodic = 0
   sll_int32, parameter :: sll_p_dirichlet = 1
   sll_int32, parameter :: sll_p_neumann = 2
   sll_int32, parameter :: sll_p_hermite = 3
   sll_int32, parameter :: sll_p_neumann_mode_0 = 4
   sll_int32, parameter :: sll_p_set_to_limit = 5
   sll_int32, parameter :: sll_p_interior = 6
   sll_int32, parameter :: sll_incoming_wave = 7
   sll_int32, parameter :: sll_p_conductor = 8
   sll_int32, parameter :: sll_p_silver_muller = 9
   sll_int32, parameter :: sll_p_one_sided = 10
   sll_int32, parameter :: sll_p_halo = 11
   sll_int32, parameter :: sll_p_greville = 12
   sll_int32, parameter :: sll_p_open = 13
   sll_int32, parameter :: sll_p_mirror = 14
   sll_int32, parameter :: sll_p_polar_origin = 15
 
end module sll_m_boundary_condition_descriptors