Second phase: substitutes back and combines r_du = -1/2(convdu + dud) + nu*d2u.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(inout) | :: | r_du(SZ,n,n_groups) |
Holds du on entry and the result on exit |
||
| real(kind=dp), | intent(in) | :: | conv(SZ,n,n_groups) | |||
| real(kind=dp), | intent(in) | :: | dud(SZ,n,n_groups) | |||
| real(kind=dp), | intent(in) | :: | d2u(SZ,n,n_groups) | |||
| real(kind=dp), | intent(in) | :: | recv_du_s(SZ,1,n_groups) | |||
| real(kind=dp), | intent(in) | :: | recv_du_e(SZ,1,n_groups) | |||
| real(kind=dp), | intent(in) | :: | recv_dud_s(SZ,1,*) | |||
| real(kind=dp), | intent(in) | :: | recv_dud_e(SZ,1,*) | |||
| real(kind=dp), | intent(in) | :: | recv_d2u_s(SZ,1,*) | |||
| real(kind=dp), | intent(in) | :: | recv_d2u_e(SZ,1,*) | |||
| integer, | intent(in) | :: | n_tds | |||
| real(kind=dp), | intent(in) | :: | nu | |||
| real(kind=dp), | intent(in) | :: | du_sa(n_tds) | |||
| real(kind=dp), | intent(in) | :: | du_sc(n_tds) | |||
| real(kind=dp), | intent(in) | :: | du_strch(n_tds) | |||
| real(kind=dp), | intent(in) | :: | dud_sa(n_tds) | |||
| real(kind=dp), | intent(in) | :: | dud_sc(n_tds) | |||
| real(kind=dp), | intent(in) | :: | dud_strch(n_tds) | |||
| real(kind=dp), | intent(in) | :: | d2u_sa(n_tds) | |||
| real(kind=dp), | intent(in) | :: | d2u_sc(n_tds) | |||
| real(kind=dp), | intent(in) | :: | d2u_strch(n_tds) | |||
| real(kind=dp), | intent(in) | :: | d2u_strch_cor(n_tds) | |||
| integer, | intent(in) | :: | n | |||
| integer, | intent(in) | :: | n_groups |