Commit 657f67e5 authored by ronesy's avatar ronesy
Browse files

updated mod_perturb in prep_syndata

parent b8976dea
......@@ -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
......
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