| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=8), | public | :: | chg | ||||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | grvsrc1 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | grvsrc2 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | grvsrc3 | |||
| integer, | public, | parameter | :: | madd | = | 3 | |
| integer, | public, | parameter | :: | mbm1 | = | 6 | |
| integer, | public, | parameter | :: | mbm2 | = | 7 | |
| integer, | public, | parameter | :: | mbm3 | = | 8 | |
| integer, | public, | parameter | :: | mbmu | = | mubu | |
| integer, | public, | parameter | :: | mbmv | = | mubv | |
| integer, | public, | parameter | :: | mbmw | = | mubw | |
| integer, | public, | parameter | :: | mbps | = | 9 | |
| integer, | public, | parameter | :: | mcsp | = | 2*mflx+1 | |
| integer, | public, | parameter | :: | mden | = | 1 | |
| integer, | public, | parameter | :: | med | = | mflx | |
| integer, | public, | parameter | :: | meto | = | 5 | |
| integer, | public, | parameter | :: | mfbp | = | mflx+9 | |
| integer, | public, | parameter | :: | mfbu | = | mflx+6 | |
| integer, | public, | parameter | :: | mfbv | = | mflx+7 | |
| integer, | public, | parameter | :: | mfbw | = | mflx+8 | |
| integer, | public, | parameter | :: | mfdn | = | mflx+1 | |
| integer, | public, | parameter | :: | mfed | = | 2*mflx | |
| integer, | public, | parameter | :: | mfet | = | mflx+5 | |
| integer, | public, | parameter | :: | mflx | = | 9+ncomp | |
| integer, | public, | parameter | :: | mfst | = | 2*mflx-ncomp+1 | |
| integer, | public, | parameter | :: | mfvu | = | mflx+2 | |
| integer, | public, | parameter | :: | mfvv | = | mflx+3 | |
| integer, | public, | parameter | :: | mfvw | = | mflx+4 | |
| integer, | public, | parameter | :: | mpre | = | 2*mflx+3 | |
| integer, | public, | parameter | :: | mrv1 | = | 2 | |
| integer, | public, | parameter | :: | mrv2 | = | 3 | |
| integer, | public, | parameter | :: | mrv3 | = | 4 | |
| integer, | public, | parameter | :: | mrvu | = | muvu | |
| integer, | public, | parameter | :: | mrvv | = | muvv | |
| integer, | public, | parameter | :: | mrvw | = | muvw | |
| integer, | public, | parameter | :: | mst | = | mflx-ncomp+1 | |
| integer, | public, | parameter | :: | mubp | = | 9 | |
| integer, | public, | parameter | :: | mubu | = | 6 | |
| integer, | public, | parameter | :: | mubv | = | 7 | |
| integer, | public, | parameter | :: | mubw | = | 8 | |
| integer, | public, | parameter | :: | mudn | = | 1 | |
| integer, | public, | parameter | :: | mued | = | mflx | |
| integer, | public, | parameter | :: | muet | = | 5 | |
| integer, | public, | parameter | :: | must | = | mflx-ncomp+1 | |
| integer, | public, | parameter | :: | muvu | = | 2 | |
| integer, | public, | parameter | :: | muvv | = | 3 | |
| integer, | public, | parameter | :: | muvw | = | 4 | |
| integer, | public, | parameter | :: | mvel | = | 2*mflx+2 | |
| integer, | public, | parameter | :: | nbm1 | = | 8 | |
| integer, | public, | parameter | :: | nbm2 | = | 9 | |
| integer, | public, | parameter | :: | nbm3 | = | 10 | |
| integer, | public, | parameter | :: | nbps | = | 11 | |
| integer, | public, | parameter | :: | ncsp | = | 7 | |
| integer, | public, | parameter | :: | nden | = | 1 | |
| integer, | public, | parameter | :: | ned | = | nhyd | |
| integer, | public, | parameter | :: | nene | = | 5 | |
| real(kind=8), | public, | dimension(mflx,in,jn,kn) | :: | nflux1 | |||
| real(kind=8), | public, | dimension(mflx,in,jn,kn) | :: | nflux2 | |||
| real(kind=8), | public, | dimension(mflx,in,jn,kn) | :: | nflux3 | |||
| integer, | public, | parameter | :: | nhyd | = | 11+ncomp | |
| integer, | public, | parameter | :: | npre | = | 6 | |
| integer, | public, | parameter | :: | nst | = | nhyd-ncomp+1 | |
| integer, | public, | parameter | :: | nve1 | = | 2 | |
| integer, | public, | parameter | :: | nve2 | = | 3 | |
| integer, | public, | parameter | :: | nve3 | = | 4 | |
| real(kind=8), | public, | dimension(nhyd,in,jn,kn) | :: | svc |