| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
104 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
109 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
114 |
OBCS_BALANCE_FLOW |
flowE = flowE + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
123 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowE, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
142 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
153 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
158 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
163 |
OBCS_BALANCE_FLOW |
flowW = flowW + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
172 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowW, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
191 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
202 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
207 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
212 |
OBCS_BALANCE_FLOW |
flowN = flowN + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
221 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowN, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
240 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
251 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
256 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
261 |
OBCS_BALANCE_FLOW |
flowS = flowS + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
270 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowS, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
53 |
OBCS_BALANCE_FLOW |
_RL tileFlow(nSx,nSy) |
|
./pkg/obcs/obcs_balance_flow.F |
93 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |