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

configuration file setup

parent ad58b9da
No related branches found
No related tags found
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.
Finish editing this message first!
Please register or to comment