Calculating central moment by spliting among directions. This follows equations 43, 44, 45 in cumulent paper (Geier .et al 2015) We first do x direction for better performance.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=rk), | intent(in) | :: | f(-1:1,-1:1,-1:1) | |||
integer, | intent(in) | :: | a | order of central moments |
||
integer, | intent(in) | :: | b | order of central moments |
||
integer, | intent(in) | :: | g | order of central moments |
||
real(kind=rk), | intent(in) | :: | ux | |||
real(kind=rk), | intent(in) | :: | uy | |||
real(kind=rk), | intent(in) | :: | uz |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=rk), | private | :: | ka(-1:1,-1:1) | ||||
real(kind=rk), | private | :: | kb(-1:1) | ||||
integer, | private | :: | ii | ||||
integer, | private | :: | jj | ||||
integer, | private | :: | kk | ||||
real(kind=rk), | private, | parameter | :: | ii_rk(-1:1) | = | [-1._rk, 0._rk, 1._rk] |