関数型

リスト 47 関数型の条件の定義例
1<Item name="discharge" caption="Discharge time series">
2  <Definition valueType="functional" >
3    <Parameter valueType="real" caption="Time" />
4    <Value valueType="real" caption="Discharge" />
5  </Definition>
6</Item>
../_images/widget_example_func.png

図 56 関数型の条件の表示例

リスト 48 関数型の条件を読み込むための処理の記述例 (計算条件・格子生成条件)
 1integer:: ier, discharge_size
 2double precision, dimension(:), allocatable:: discharge_time, discharge_value
 3
 4! サイズを調べる
 5call cg_iric_read_functionalsize_f("discharge", discharge_size, ier)
 6! メモリを確保
 7allocate(discharge_time(discharge_size))
 8allocate(discharge_value(discharge_size))
 9! 確保したメモリに値を読み込む
10call cg_iric_read_functional_f("discharge", discharge_time, discharge_value, ier)
リスト 49 関数型の条件を読み込むための処理の記述例 (境界条件)
 1integer:: ier, discharge_size
 2double precision, dimension(:), allocatable:: discharge_time, discharge_value
 3
 4! サイズを調べる
 5call cg_iric_read_bc_functionalsize_f("inflow", 1, "discharge", discharge_size, ier)
 6! メモリを確保
 7allocate(discharge_time(discharge_size))
 8allocate(discharge_value(discharge_size))
 9! 確保したメモリに値を読み込む
10call cg_iric_read_bc_functional_f("inflow", 1, "discharge", discharge_time, discharge_value, ier)