From f50b4a7d4120ca35985d7ed311def07abbe2af0e Mon Sep 17 00:00:00 2001 From: cgz <cgz@nilu.no> Date: Thu, 30 Jan 2025 10:23:47 +0100 Subject: [PATCH] Add initial values for config variables --- source/mod_settings.f90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/source/mod_settings.f90 b/source/mod_settings.f90 index 331460c..4b54d3c 100644 --- a/source/mod_settings.f90 +++ b/source/mod_settings.f90 @@ -646,7 +646,19 @@ module mod_settings config%satellite = .false. config%ground = .false. config%selectobs = .false. + + !initialize values for config, overwritten by any values in SETTINGS_config file config%trunc = 1.e-3 + config%ffferr = 1.e-3 + config%coeff = 1.0 + config%measerr = 1.e-3 + config%cinierr = 1.e-3 + config%flxerr = 1.e-3 + config%flxerr_ll = 1.e-9 + config%sigma_land = 150. + config%sigma_ocean = 2000. + config%sigmatime = 15. + config%globerr = -1 ! open file open (100, file = trim (filename), status = 'old', iostat=ierr) -- GitLab