return the cutoff multiplication factor This routine returns the cutoff factor for a circle of size r_min. Outside r_min, the quantity is
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(cutoff_type), | intent(in) | :: | me | global gauss pulse data |
||
| real(kind=rk), | intent(in) | :: | radius | coordinate of an element |
return value which is sent to state variable
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | private | :: | r_min | ||||
| real(kind=rk), | private | :: | r_max | ||||
| real(kind=rk), | private | :: | a0 | ||||
| real(kind=rk), | private | :: | a1 | ||||
| real(kind=rk), | private | :: | a2 |