gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FORCING: Normalize the injection power by the volume size.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2024-05-24 18:47:08 -03:00
parent 9ae03a4998
commit 9376e09fdf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sources/forcing.F90
View File

@ -173,7 +173,7 @@ module forcing
subroutine initialize_forcing(verbose, status) subroutine initialize_forcing(verbose, status)
use constants , only : pi2 use constants , only : pi2
use coordinates, only : xlen, ylen, zlen use coordinates, only : xlen, ylen, zlen, vol
use helpers , only : print_message use helpers , only : print_message
use parameters , only : get_parameter use parameters , only : get_parameter
use random , only : randuni, randnorz use random , only : randuni, randnorz
@ -732,6 +732,10 @@ module forcing
end select end select
! normalize the injection power by the volume size
!
fmodes(:) = fmodes(:) / sqrt(vol)
! === Ornstein–Uhlenbeck driving === ! === Ornstein–Uhlenbeck driving ===
! !
if (injection_method == injection_oh) then if (injection_method == injection_oh) then