ft_gauss Subroutine

private subroutine ft_gauss(tab, scal)

Note

The function ft_gauss performs a Gaussian filter on the surface tab. It:

  • reads the fft_cutoff in the Job file
  • applies the corresponding Gaussian filter
  • creates a new folder
  • stores the new surface in the new folder.

Example:

if cutoff = 30.5 µm and the working directory sur, the resulting surface is sur/FLT_030.5/file_FLT_030.5.sur

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), dimension(:,:) :: tab

array of the surface
type(SCALE_SURF), intent(inout) :: scal

SCALE_SURF object of the input surface