From 657f67e5d0566e1674e68d4a8240bc05f1e10086 Mon Sep 17 00:00:00 2001
From: ronesy <rlt@nilu.no>
Date: Wed, 29 Sep 2021 15:25:08 +0200
Subject: [PATCH] updated mod_perturb in prep_syndata
---
prep_syndata/mod_perturb.f90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/prep_syndata/mod_perturb.f90 b/prep_syndata/mod_perturb.f90
index 0e3c383..e83836e 100644
--- a/prep_syndata/mod_perturb.f90
+++ b/prep_syndata/mod_perturb.f90
@@ -208,10 +208,12 @@ module mod_perturb
deallocate(seedvec)
! normalize random numbers
- rvec = rvec*num/sum(rvec)
+ ! not needed with random_normal - RT 12/20
+! rvec = rvec*num/sum(rvec)
! mean of zero
- rvec = rvec - 1.
+ ! not needed with random_normal - RT 12/20
+! rvec = rvec - 1.
end subroutine randnum
--
GitLab