Skip to content
Snippets Groups Projects
Commit 6f5410e0 authored by ronesy's avatar ronesy
Browse files

Minor bug fix for saving scalars of initial mixing ratios for log-normal PDF case

parent 91c374e6
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 1 deletion
source/mod_save.f90
+ 2
− 1
View file @ 6f5410e0
...@@ -947,7 +947,8 @@ module mod_save ...@@ -947,7 +947,8 @@ module mod_save
if (config%lognormal) then if (config%lognormal) then
! for lognormal these are the log transformed scalars ! for lognormal these are the log transformed scalars
! so undo the log transformation here ! 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 else
write(100,rowfmt) states%px0(npvar+n), states%pxerr0(npvar+n), states%px(npvar+n), states%pxerr(npvar+n) write(100,rowfmt) states%px0(npvar+n), states%pxerr0(npvar+n), states%px(npvar+n), states%pxerr(npvar+n)
endif endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment