Commit 7a1e2bbe authored by ronesy's avatar ronesy
Browse files

Correction for adding random perturbations

parent 4062a958
......@@ -165,10 +165,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
......
Supports Markdown
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