Check the total density for a selected scheme and write to unit
The output might be delayed by using arrays which are then dumped to keep disc access more restricted
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(mus_scheme_type), | intent(in) | :: | scheme | scheme type |
||
| integer, | intent(in) | :: | minLevel | global scheme independent information |
||
| integer, | intent(in) | :: | maxLevel | global scheme independent information |
||
| type(tem_general_type), | intent(inout) | :: | general | |||
| real(kind=rk), | intent(out), | optional | :: | total_density |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | private, | allocatable | :: | dens(:) | |||
| real(kind=rk), | private, | allocatable | :: | total_dens(:) | |||
| real(kind=rk), | private | :: | dens_field | ||||
| integer, | private | :: | iLevel | ||||
| integer, | private | :: | ierror | ||||
| integer, | private | :: | iElem | ||||
| integer, | private | :: | iField | ||||
| integer, | private | :: | elemOff | ||||
| integer, | private | :: | dens_pos(scheme%nFields) |