| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=8), | public, | dimension(ncomp,in,jn,kn) | :: | DXcomp | |||
| real(kind=8), | public, | dimension(ncomp,in,jn,kn) | :: | Xcomp | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | b1 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | b2 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | b3 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | bp | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | cs | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | d | |||
| real(kind=8), | public | :: | dt | ||||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | ei | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | et | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | gp | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | gp1a | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | gp2a | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | gp3a | |||
| integer, | public, | parameter | :: | ie | = | ngrid1+mgn | |
| integer, | public, | parameter | :: | in | = | ngrid1+2*mgn+1 | |
| integer, | public, | parameter | :: | is | = | mgn+1 | |
| integer, | public, | parameter | :: | je | = | ngrid2+mgn | |
| integer, | public, | parameter | :: | jn | = | ngrid2+2*mgn+1 | |
| integer, | public, | parameter | :: | js | = | mgn+1 | |
| integer, | public, | parameter | :: | ke | = | ngrid3+mgn | |
| integer, | public, | parameter | :: | kn | = | ngrid3+2*mgn+1 | |
| integer, | public, | parameter | :: | ks | = | mgn+1 | |
| integer, | public, | parameter | :: | mgn | = | 2 | |
| real(kind=8), | public, | dimension(in,jn,kn) | :: | mv1 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | mv2 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | mv3 | |||
| integer, | public, | parameter | :: | ngrid1 | = | ngridtotal1/ntiles(1) | |
| integer, | public, | parameter | :: | ngrid2 | = | ngridtotal2/ntiles(2) | |
| integer, | public, | parameter | :: | ngrid3 | = | ngridtotal3/ntiles(3) | |
| integer, | public | :: | nhy | ||||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | p | |||
| real(kind=8), | public | :: | time | ||||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | v1 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | v2 | |||
| real(kind=8), | public, | dimension(in,jn,kn) | :: | v3 | |||
| real(kind=8), | public, | dimension(in) | :: | x1a | |||
| real(kind=8), | public, | dimension(in) | :: | x1b | |||
| real(kind=8), | public, | dimension(jn) | :: | x2a | |||
| real(kind=8), | public, | dimension(jn) | :: | x2b | |||
| real(kind=8), | public, | dimension(kn) | :: | x3a | |||
| real(kind=8), | public, | dimension(kn) | :: | x3b |