public subroutine advec_prep(isp, ns, rhovs1, vs1, vs2, vs3, rhoes, v1i, v2i, v3i)
vadvx1(1,:,6)=mean(vadvx1(1,:,6)); !for eq sims
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| integer, |
intent(in) |
|
| :: |
isp | |
| real(kind=wp), |
intent(inout), |
|
dimension(-1:,-1:,-1:,:) | :: |
ns | |
| real(kind=wp), |
intent(inout), |
|
dimension(-1:,-1:,-1:,:) | :: |
rhovs1 | |
| real(kind=wp), |
intent(inout), |
|
dimension(-1:,-1:,-1:,:) | :: |
vs1 | |
| real(kind=wp), |
intent(inout), |
|
dimension(-1:,-1:,-1:,:) | :: |
vs2 | |
| real(kind=wp), |
intent(inout), |
|
dimension(-1:,-1:,-1:,:) | :: |
vs3 | |
| real(kind=wp), |
intent(inout), |
|
dimension(-1:,-1:,-1:,:) | :: |
rhoes | |
| real(kind=wp), |
intent(out), |
|
dimension(1:size(vs1,1)-3,1:size(vs1,2)-4,1:size(vs1,3)-4) | :: |
v1i | |
| real(kind=wp), |
intent(out), |
|
dimension(1:size(vs1,1)-4,1:size(vs1,2)-3,1:size(vs1,3)-4) | :: |
v2i | |
| real(kind=wp), |
intent(out), |
|
dimension(1:size(vs1,1)-4,1:size(vs1,2)-4,1:size(vs1,3)-3) | :: |
v3i | |