diff options
Diffstat (limited to 'captain/config.f90')
-rw-r--r-- | captain/config.f90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/captain/config.f90 b/captain/config.f90 index 2e3ccaa..f3c9bd1 100644 --- a/captain/config.f90 +++ b/captain/config.f90 @@ -65,6 +65,9 @@ implicit none character(*), parameter::SCRIPT_DIRECTORY_VARIABLE = "script-directory" character(1024)::script_dir + character(*), parameter::TEMP_DIRECTORY_VARIABLE = "temp-directory" + character(1024)::temp_dir = "/tmp" + contains subroutine get_variable(str, v) @@ -104,6 +107,7 @@ contains end subroutine get_value subroutine assign_config(cvariable, cvalue) + use utilities, only: set_temporary_directory implicit none character(*), intent(in)::cvariable, cvalue @@ -150,6 +154,9 @@ contains else if(cvariable == LOGLEVEL_VARIABLE) then read(cvalue, '(I3)') loglevel + else if(cvariable == TEMP_DIRECTORY_VARIABLE) then + call set_temporary_directory(cvalue) + end if end subroutine assign_config |