Subroutine Boundary

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: boundary.f90,v 1.2 2005/04/22 15:01:52 sugiyama Exp $
• Tag Name: $Name: $
• Change History:

Overview

境界条件を与えるためのモジュール. 引数 type に指定された境界条件から, 「のり代」の部分の値を設定する

Error Handling

Known Bugs

Note

水平鉛直に摩擦無し境界とする設定は, 移流のテスト計算用であることに注意.

Future Plans

Dependency

use dc_trace, only: BeginSub, EndSub
use dc_message, only: MessageNotify
use gridset, only: DimXMin, DimXMax, DimZMin, DimZMax, Margin, &
     &             RegXMin, RegXMax, RegZMin, RegZMax

Input

character(*), intent(in)   :: type

In/Out

real(8), intent(inout)     :: var(DimXMin:DimXMax, DimZMin:DimZMax)