diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-09 08:09:20 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-09 08:09:20 -0400 |
| commit | 025b5d1dcbb30e727afee3307d49328432bae603 (patch) | |
| tree | 49ad0f24b7f71d9e15fbe03499b1bbaa94e6571c /captain/config.f90 | |
| parent | 29ab398f73c791f9591674c813c47267c524e6be (diff) | |
| download | levitating-025b5d1dcbb30e727afee3307d49328432bae603.tar.gz levitating-025b5d1dcbb30e727afee3307d49328432bae603.zip | |
Modified how logging works so that multiple processes can write in theory.
Diffstat (limited to 'captain/config.f90')
| -rw-r--r-- | captain/config.f90 | 6 |
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 |