| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getobcse.F |
135 |
CTRL_GETOBCSE |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
138 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
140 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
145 |
CTRL_GETOBCSE |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcse.F |
147 |
CTRL_GETOBCSE |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcse.F |
149 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
204 |
CTRL_GETOBCSE |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
207 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
209 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
214 |
CTRL_GETOBCSE |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcse.F |
216 |
CTRL_GETOBCSE |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcse.F |
218 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
79 |
CTRL_GETOBCSE |
integer nk,nz |
|
./pkg/ctrl/ctrl_getobcsn.F |
140 |
CTRL_GETOBCSN |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
143 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
145 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
150 |
CTRL_GETOBCSN |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
152 |
CTRL_GETOBCSN |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsn.F |
154 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
209 |
CTRL_GETOBCSN |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
212 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
214 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
219 |
CTRL_GETOBCSN |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
221 |
CTRL_GETOBCSN |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsn.F |
223 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
80 |
CTRL_GETOBCSN |
integer nk,nz |
|
./pkg/ctrl/ctrl_getobcss.F |
136 |
CTRL_GETOBCSS |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
139 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
141 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
146 |
CTRL_GETOBCSS |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcss.F |
148 |
CTRL_GETOBCSS |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcss.F |
150 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
205 |
CTRL_GETOBCSS |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
208 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
210 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
215 |
CTRL_GETOBCSS |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcss.F |
217 |
CTRL_GETOBCSS |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcss.F |
219 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
81 |
CTRL_GETOBCSS |
integer nk,nz |
|
./pkg/ctrl/ctrl_getobcsw.F |
135 |
CTRL_GETOBCSW |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
138 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
140 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
145 |
CTRL_GETOBCSW |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
147 |
CTRL_GETOBCSW |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsw.F |
149 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
204 |
CTRL_GETOBCSW |
nz = 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
207 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
209 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
214 |
CTRL_GETOBCSW |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
216 |
CTRL_GETOBCSW |
do nk = 1,nz |
|
./pkg/ctrl/ctrl_getobcsw.F |
218 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
80 |
CTRL_GETOBCSW |
integer nk,nz |