Functional¶
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>
1integer:: ier, discharge_size
2double precision, dimension(:), allocatable:: discharge_time, discharge_value
3
4! Read size
5call cg_iric_read_functionalsize(fid, "discharge", discharge_size, ier)
6! Allocate memory
7allocate(discharge_time(discharge_size))
8allocate(discharge_value(discharge_size))
9! Load values into the allocated memory
10call cg_iric_read_functional(fid, "discharge", discharge_time, discharge_value, ier)
1integer:: ier, discharge_size
2double precision, dimension(:), allocatable:: discharge_time, discharge_value
3
4! Read size
5call cg_iric_read_bc_functionalsize(fid, "inflow", 1, "discharge", discharge_size, ier)
6! Allocate memory
7allocate(discharge_time(discharge_size))
8allocate(discharge_value(discharge_size))
9! Load values into the allocated memory
10call cg_iric_read_bc_functional(fid, "inflow", 1, "discharge", discharge_time, discharge_value, ier)