次へ 上へ 前へ 目次へ
次へ:Heat radiation (radiate.f) 上へ:User-defined loading 前へ:Heat convection (film.f) 目次へ


境界条件(uboun.f)

このサブルーチンは *BOUNDARYQ カードのパラメーター USER で特徴づけられるユーザー定義の境界値のために使用されます。ヘッダーと変数の意味は以下の通りです。

      subroutine uboun(boun,kstep,kinc,time,node,idof,coords,vold,mi)
!
!     ユーザーサブルーチン uboun
!
!
!     入力:
!
!     kstep              ステップ番号
!     kinc               インクリメント番号
!     time(1)            現在のステップ時間
!     time(2)            現在の総時間
!     node               節点番号
!     idof               自由度
!     coords  (1..3)     節点のグローバル座標
!     vold(0..4,1..nk)   全節点で解かれる場
!                        0: 温度
!                        1: グローバル X 方向の変位(流体節点の場合は質量流量変化)
!                        2: グローバル Y 方向の変位
!                        3: グローバル Z 方向の変位
!                        4: 静圧
!     mi(1)              要素あたりの積分点の最大数(全要素にわたる最大値)
!     mi(2)              場での節点あたりの最大自由度(全節点にわたる最大値)。例 v(0:mi(2))。
!
!     出力:
!
!     boun               節点 "node" での自由度 idof の境界値
!



guido dhondt 2016-03-08