| File |
Line number |
Procedure |
Code |
|
./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 |
126 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBEu:', flowE, -flowE/areaE |
|
./pkg/obcs/obcs_balance_flow.F |
130 |
OBCS_BALANCE_FLOW |
flowE = -flowE/areaE |
|
./pkg/obcs/obcs_balance_flow.F |
297 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacE.GE.0. ) flowE = inFlow*OBCS_balanceFacE |
|
./pkg/obcs/obcs_balance_flow.F |
304 |
OBCS_BALANCE_FLOW |
& 'OBCS_balance correction to OBEu,OBWu:', flowE, flowW |
|
./pkg/obcs/obcs_balance_flow.F |
328 |
OBCS_BALANCE_FLOW |
& + flowE*maskW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
51 |
OBCS_BALANCE_FLOW |
_RL inFlow, flowE, flowW, flowN, flowS |
|
./pkg/obcs/obcs_balance_flow.F |
88 |
OBCS_BALANCE_FLOW |
flowE = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
102 |
OBCS_DIAG_BALANCE |
flowE = 0. _d 0 |
|
./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 |
136 |
OBCS_DIAG_BALANCE |
& myIter, ' ) correct OBEu:', flowE, -flowE/areaE |
|
./pkg/obcs/obcs_diag_balance.F |
140 |
OBCS_DIAG_BALANCE |
flowE = -flowE/areaE |
|
./pkg/obcs/obcs_diag_balance.F |
297 |
OBCS_DIAG_BALANCE |
IF ( OBCS_balanceFacE.GE.0. ) flowE = inFlow*OBCS_balanceFacE |
|
./pkg/obcs/obcs_diag_balance.F |
304 |
OBCS_DIAG_BALANCE |
& 'OBCS_DIAG_balance correction to uTrans:', flowE, flowW |
|
./pkg/obcs/obcs_diag_balance.F |
325 |
OBCS_DIAG_BALANCE |
& + flowE*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
65 |
OBCS_DIAG_BALANCE |
_RL inFlow, flowE, flowW, flowN, flowS |