aboutsummaryrefslogtreecommitdiff
path: root/captain/config.f90
diff options
context:
space:
mode:
Diffstat (limited to 'captain/config.f90')
-rw-r--r--captain/config.f906
1 files changed, 6 insertions, 0 deletions
diff --git a/captain/config.f90 b/captain/config.f90
index 6c622b4..5b13584 100644
--- a/captain/config.f90
+++ b/captain/config.f90
@@ -10,6 +10,9 @@ implicit none
character(*), parameter::LOGFILE_VARIABLE = "log-filename"
character(1024)::log_filename
+ character(*), parameter::LOGLEVEL_VARIABLE = "log-level"
+ integer::loglevel = 3
+
character(*), parameter::PROJECT_NAME_VARIABLE = "project"
character(32)::project
@@ -121,6 +124,9 @@ contains
else if(cvariable == INSTRUCTIONS_DIRECTORY_VARIABLE) then
instructions_dir = cvalue
+
+ else if(cvariable == LOGLEVEL_VARIABLE) then
+ read(cvalue, '(I3)') loglevel
end if