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

Make at least one interation of the forcing.

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-06-10 19:00:45 -03:00
parent 6922c8140c
commit d18174a567
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/forcing.F90
View File

@ -422,7 +422,7 @@ module forcing
! calculate the number of forcing integration iteration for the current timestep ! calculate the number of forcing integration iteration for the current timestep
! !
ni = int(dt / fdt) ni = max(1, int(dt / fdt))
! iterate over all perturbed Fourier components ! iterate over all perturbed Fourier components
! !