f(i_start + i - 1, j, k) = lambda(i)band(i, j, k) + (1 - lambda(i))f(i_start + i - 1, j, k) for a DIR_X vertex field
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(inout) | :: | f(SZ,n_f,n_yb_pad*nz) | |||
| real(kind=dp), | intent(in) | :: | band(nband,ny,nz) | |||
| real(kind=dp), | intent(in) | :: | lambda(nband) | |||
| integer, | intent(in) | :: | i_start | |||
| integer, | intent(in) | :: | nband | |||
| integer, | intent(in) | :: | ny | |||
| integer, | intent(in) | :: | nz | |||
| integer, | intent(in) | :: | n_f | |||
| integer, | intent(in) | :: | n_yb_pad |