hecmw_couple_define_f.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module hecmw_couple_define_f
 
  use hecmw_util
 
  implicit none
  private
 
  integer(kind=kint), parameter, public :: hecmw_couple_type_undef  = -100
  integer(kind=kint), parameter, public :: hecmw_couple_type_mxn    =  101
  integer(kind=kint), parameter, public :: hecmw_couple_type_maxmn  =  102
  integer(kind=kint), parameter, public :: hecmw_couple_type_manual =  103
 
  integer(kind=kint), parameter, public :: hecmw_couple_unit_undef = -200
  integer(kind=kint), parameter, public :: hecmw_couple_unit1      =  201
  integer(kind=kint), parameter, public :: hecmw_couple_unit2      =  202
 
  integer(kind=kint), parameter, public :: hecmw_couple_direction_undef = -300
  integer(kind=kint), parameter, public :: hecmw_couple_unit1_to_unit2  =  301
  integer(kind=kint), parameter, public :: hecmw_couple_unit2_to_unit1  =  302
 
  integer(kind=kint), parameter, public :: hecmw_couple_group_undef   = -400
  integer(kind=kint), parameter, public :: hecmw_couple_node_group    =  401
  integer(kind=kint), parameter, public :: hecmw_couple_element_group =  402
  integer(kind=kint), parameter, public :: hecmw_couple_surface_group =  403
 
  integer(kind=kint), parameter, public :: hecmw_couple_ip_undef        = -500
  integer(kind=kint), parameter, public :: hecmw_couple_ip_node_to_node =  501
  integer(kind=kint), parameter, public :: hecmw_couple_ip_node_to_elem =  502
  integer(kind=kint), parameter, public :: hecmw_couple_ip_node_to_surf =  503
  integer(kind=kint), parameter, public :: hecmw_couple_ip_elem_to_node =  511
  integer(kind=kint), parameter, public :: hecmw_couple_ip_elem_to_elem =  512
  integer(kind=kint), parameter, public :: hecmw_couple_ip_elem_to_surf =  513
  integer(kind=kint), parameter, public :: hecmw_couple_ip_surf_to_node =  521
  integer(kind=kint), parameter, public :: hecmw_couple_ip_surf_to_elem =  522
  integer(kind=kint), parameter, public :: hecmw_couple_ip_surf_to_surf =  523
 
  integer(kind=kint), parameter, public :: hecmw_couple_map_undef        = -600
  integer(kind=kint), parameter, public :: hecmw_couple_map_node_to_node =  601
  integer(kind=kint), parameter, public :: hecmw_couple_map_node_to_elem =  602
  integer(kind=kint), parameter, public :: hecmw_couple_map_node_to_surf =  603
  integer(kind=kint), parameter, public :: hecmw_couple_map_elem_to_node =  611
  integer(kind=kint), parameter, public :: hecmw_couple_map_elem_to_elem =  612
  integer(kind=kint), parameter, public :: hecmw_couple_map_elem_to_surf =  613
  integer(kind=kint), parameter, public :: hecmw_couple_map_surf_to_node =  621
  integer(kind=kint), parameter, public :: hecmw_couple_map_surf_to_elem =  622
  integer(kind=kint), parameter, public :: hecmw_couple_map_surf_to_surf =  623
 
end module hecmw_couple_define_f