|
|
@ -581,8 +581,8 @@ contains
|
|
|
|
call read_data(prec%aggr_type,inp_unit) ! type of aggregation
|
|
|
|
call read_data(prec%aggr_type,inp_unit) ! type of aggregation
|
|
|
|
call read_data(prec%aggr_size,inp_unit) ! Requested size of the aggregates for MATCHBOXP
|
|
|
|
call read_data(prec%aggr_size,inp_unit) ! Requested size of the aggregates for MATCHBOXP
|
|
|
|
call read_data(prec%aggr_ord,inp_unit) ! ordering for aggregation
|
|
|
|
call read_data(prec%aggr_ord,inp_unit) ! ordering for aggregation
|
|
|
|
call read_data(prec%aggr_filter,inp_unit) ! filtering
|
|
|
|
|
|
|
|
call read_data(prec%mncrratio,inp_unit) ! minimum aggregation ratio
|
|
|
|
call read_data(prec%mncrratio,inp_unit) ! minimum aggregation ratio
|
|
|
|
|
|
|
|
call read_data(prec%aggr_filter,inp_unit) ! filtering
|
|
|
|
call read_data(prec%athres,inp_unit) ! smoothed aggr thresh
|
|
|
|
call read_data(prec%athres,inp_unit) ! smoothed aggr thresh
|
|
|
|
call read_data(prec%thrvsz,inp_unit) ! size of aggr thresh vector
|
|
|
|
call read_data(prec%thrvsz,inp_unit) ! size of aggr thresh vector
|
|
|
|
if (prec%thrvsz > 0) then
|
|
|
|
if (prec%thrvsz > 0) then
|
|
|
|