Skip to content
Snippets Groups Projects
Commit d55bcc95 authored by Evgeny Mortikov's avatar Evgeny Mortikov
Browse files

configuration file setup

parent ad58b9da
Branches
Tags
No related merge requests found
......@@ -343,16 +343,23 @@ program sfx_main
write(*, *) ' FAILURE! > unknown dataset [key]: ', trim(char_array2str(config_field))
stop
end if
!< save nmax if previously set
nmax = dataset%nmax
call set_dataset(dataset, id)
dataset%nmax = nmax
if (dataset%id == dataset_user) then
call get_charf("dataset.filename"//C_NULL_CHAR, config_field)
dataset%filename = char_array2str(config_field)
call get_float("dataset.h"//C_NULL_CHAR, dataset%h)
call get_float("dataset.z0_m"//C_NULL_CHAR, dataset%z0_m)
call get_float("dataset.z0_h"//C_NULL_CHAR, dataset%z0_h)
end if
call is_varname("dataset.filename"//C_NULL_CHAR, status)
if ((status /= 0).or.(dataset%id == dataset_user)) then
call get_charf("dataset.filename"//C_NULL_CHAR, config_field)
dataset%filename = char_array2str(config_field)
end if
end if
call is_varname("dataset.nmax"//C_NULL_CHAR, status)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment