Make at least one interation of the forcing.

This commit is contained in:
Grzegorz Kowal 2011-06-10 19:00:45 -03:00
parent 6922c8140c
commit d18174a567

View File

@ -422,7 +422,7 @@ module forcing
! 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
!