From df491ca355dca6e6bda5b3a23806ebd3b16d02d7 Mon Sep 17 00:00:00 2001
From: lucieb92 <lucie.bakels@univie.ac.at>
Date: Mon, 3 Jun 2024 16:57:56 +0200
Subject: [PATCH] bug fix in readoptions for pdia and pdquer
Former-commit-id: 8dd5942f79037f0c12cb98d80ab3c4824674052a
---
src/readoptions_mod.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/readoptions_mod.f90 b/src/readoptions_mod.f90
index d82bcee0..3d8366ea 100644
--- a/src/readoptions_mod.f90
+++ b/src/readoptions_mod.f90
@@ -2758,7 +2758,7 @@ subroutine readspecies(id_spec,pos_spec)
phenry=-9.9
pf0=0.0
pdensity=-9.9E09
- pdquer=0.0
+ pdquer=-9.9
pdia=-9.9
pdsigma=0.0
!pndia=1
@@ -2844,9 +2844,9 @@ subroutine readspecies(id_spec,pos_spec)
henry(pos_spec)=phenry
f0(pos_spec)=pf0
density(pos_spec)=pdensity
- if (pdia.ne.0.0) then
+ if (pdia.ne.-9.9) then
dquer(pos_spec)=pdia
- else if (pdquer.ne.0.0) then
+ else if (pdquer.ne.-9.9) then
write(*,*) 'WARNING: PDQUER will be depricated, please use PDIA instead.'
dquer(pos_spec)=pdquer ! For backwards compatibility
else
--
GitLab