| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getobcse.F |
136 |
CTRL_GETOBCSE |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
139 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
141 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
146 |
CTRL_GETOBCSE |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcse.F |
148 |
CTRL_GETOBCSE |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcse.F |
150 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
205 |
CTRL_GETOBCSE |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
208 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
210 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
215 |
CTRL_GETOBCSE |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcse.F |
217 |
CTRL_GETOBCSE |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcse.F |
219 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
80 |
CTRL_GETOBCSE |
integer nk,nz |
|
./pkg/ctrl/ctrl_getobcsn.F |
141 |
CTRL_GETOBCSN |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
144 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
146 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
151 |
CTRL_GETOBCSN |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
153 |
CTRL_GETOBCSN |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsn.F |
155 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
210 |
CTRL_GETOBCSN |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
213 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
215 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
220 |
CTRL_GETOBCSN |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
222 |
CTRL_GETOBCSN |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsn.F |
224 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
81 |
CTRL_GETOBCSN |
integer nk,nz |
|
./pkg/ctrl/ctrl_getobcss.F |
137 |
CTRL_GETOBCSS |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
140 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
142 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
147 |
CTRL_GETOBCSS |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcss.F |
149 |
CTRL_GETOBCSS |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcss.F |
151 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
206 |
CTRL_GETOBCSS |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
209 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
211 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
216 |
CTRL_GETOBCSS |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcss.F |
218 |
CTRL_GETOBCSS |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcss.F |
220 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
82 |
CTRL_GETOBCSS |
integer nk,nz |
|
./pkg/ctrl/ctrl_getobcsw.F |
136 |
CTRL_GETOBCSW |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
139 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
141 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
146 |
CTRL_GETOBCSW |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
148 |
CTRL_GETOBCSW |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsw.F |
150 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
205 |
CTRL_GETOBCSW |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
208 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
210 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
215 |
CTRL_GETOBCSW |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
217 |
CTRL_GETOBCSW |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsw.F |
219 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
81 |
CTRL_GETOBCSW |
integer nk,nz |