From 6f5410e0517b5b4e1455212aa946e1de6b178d31 Mon Sep 17 00:00:00 2001
From: ronesy <rlt@nilu.no>
Date: Wed, 19 Mar 2025 10:25:10 +0100
Subject: [PATCH] Minor bug fix for saving scalars of initial mixing ratios for
log-normal PDF case
---
source/mod_save.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/source/mod_save.f90 b/source/mod_save.f90
index 71c67c9..80d7084 100644
--- a/source/mod_save.f90
+++ b/source/mod_save.f90
@@ -947,7 +947,8 @@ module mod_save
if (config%lognormal) then
! for lognormal these are the log transformed scalars
! so undo the log transformation here
- write(100,rowfmt) exp(states%px0(npvar+n)), exp(states%pxerr0(npvar+n)), exp(states%px(npvar+n)), exp(states%pxerr(npvar+n))
+ write(100,rowfmt) exp(states%px0(npvar+n)), exp(states%pxerr0(npvar+n))-1., &
+ exp(states%px(npvar+n)), exp(states%pxerr(npvar+n))-1.
else
write(100,rowfmt) states%px0(npvar+n), states%pxerr0(npvar+n), states%px(npvar+n), states%pxerr(npvar+n)
endif
--
GitLab