| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ixImin1 | |||
| integer, | intent(in) | :: | ixImin2 | |||
| integer, | intent(in) | :: | ixImin3 | |||
| integer, | intent(in) | :: | ixImax1 | |||
| integer, | intent(in) | :: | ixImax2 | |||
| integer, | intent(in) | :: | ixImax3 | |||
| integer, | intent(in) | :: | ixOmin1 | |||
| integer, | intent(in) | :: | ixOmin2 | |||
| integer, | intent(in) | :: | ixOmin3 | |||
| integer, | intent(in) | :: | ixOmax1 | |||
| integer, | intent(in) | :: | ixOmax2 | |||
| integer, | intent(in) | :: | ixOmax3 | |||
| double precision, | intent(in) | :: | w(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:nw) | |||
| double precision, | intent(in) | :: | x(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:ndim) | |||
| double precision, | intent(out) | :: | fdrag(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:ndir,1:dust_n_species) | |||
| double precision, | intent(in) | :: | ptherm(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3) | |||
| double precision, | intent(in) | :: | vgas(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,ndir) | |||
| integer, | intent(in) | :: | dust_n_species |
Calculate the 3d drag force of gas onto dust