| 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. |
|
./pkg/obcs/obcs_diag_balance.F |
107 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_diag_balance.F |
115 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = tileFlow(bi,bj) + uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
119 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
124 |
OBCS_DIAG_BALANCE |
flowE = flowE + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
133 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowE, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
152 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_diag_balance.F |
161 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = tileFlow(bi,bj) + uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
165 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
170 |
OBCS_DIAG_BALANCE |
flowW = flowW + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
179 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowW, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
198 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_diag_balance.F |
206 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = tileFlow(bi,bj) + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
210 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
215 |
OBCS_DIAG_BALANCE |
flowN = flowN + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
224 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowN, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
243 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_diag_balance.F |
252 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = tileFlow(bi,bj) + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
256 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
261 |
OBCS_DIAG_BALANCE |
flowS = flowS + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
270 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileFlow, flowS, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
67 |
OBCS_DIAG_BALANCE |
_RL tileFlow(nSx,nSy) |