File |
Line number |
Procedure |
Code |
./pkg/ctrl/ctrl_getobcss.F |
101 |
CTRL_GETOBCSS |
vbaro = 0.d0 |
./pkg/ctrl/ctrl_getobcss.F |
142 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcss.F |
157 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcss.F |
178 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcss.F |
193 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcss.F |
261 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcss.F |
276 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcss.F |
297 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcss.F |
312 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcss.F |
78 |
CTRL_GETOBCSS |
_RL vbaro |
./pkg/ctrl/ctrl_getobcsn.F |
104 |
CTRL_GETOBCSN |
vbaro = 0.d0 |
./pkg/ctrl/ctrl_getobcsn.F |
144 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsn.F |
152 |
CTRL_GETOBCSN |
vbaro = shiftvel(1) |
./pkg/ctrl/ctrl_getobcsn.F |
168 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcsn.F |
188 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsn.F |
206 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcsn.F |
274 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsn.F |
280 |
CTRL_GETOBCSN |
print*,'correct vbaro',vbaro |
./pkg/ctrl/ctrl_getobcsn.F |
283 |
CTRL_GETOBCSN |
vbaro = shiftvel(2) |
./pkg/ctrl/ctrl_getobcsn.F |
299 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcsn.F |
318 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
./pkg/ctrl/ctrl_getobcsn.F |
336 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
./pkg/ctrl/ctrl_getobcsn.F |
77 |
CTRL_GETOBCSN |
_RL vbaro |