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

FORCING: Reset forcing statistics if there is no driving.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2023-02-28 10:15:23 -03:00
parent 99d5196736
commit 271dd571ae
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
sources/forcing.F90
View File

@ -995,7 +995,12 @@ module forcing
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
if (t < tinj_start .or. t > tinj_stop) return if (t < tinj_start .or. t > tinj_stop) then
arms = 0.0d+00
dinj = 0.0d+00
rinj = 0.0d+00
return
end if
! calculate the number of eddies to be injected during this interval ! calculate the number of eddies to be injected during this interval
! !
@ -1079,7 +1084,12 @@ module forcing
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
if (t < tinj_start .or. t > tinj_stop) return if (t < tinj_start .or. t > tinj_stop) then
arms = 0.0d+00
dinj = 0.0d+00
rinj = 0.0d+00
return
end if
! calculate drift and diffusion coefficients ! calculate drift and diffusion coefficients
! !
@ -1166,7 +1176,12 @@ module forcing
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
if (t < tinj_start .or. t > tinj_stop) return if (t < tinj_start .or. t > tinj_stop) then
arms = 0.0d+00
dinj = 0.0d+00
rinj = 0.0d+00
return
end if
! determine velocify coefficients in Fourier space ! determine velocify coefficients in Fourier space
! !