| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
137 |
OBCS_BALANCE_FLOW |
flowW = 0. _d 0 |
|
./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 |
175 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBWu:', flowW, -flowW/areaW |
|
./pkg/obcs/obcs_balance_flow.F |
179 |
OBCS_BALANCE_FLOW |
flowW = -flowW/areaW |
|
./pkg/obcs/obcs_balance_flow.F |
298 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacW.GE.0. ) flowW = -inFlow*OBCS_balanceFacW |
|
./pkg/obcs/obcs_balance_flow.F |
304 |
OBCS_BALANCE_FLOW |
& 'OBCS_balance correction to OBEu,OBWu:', flowE, flowW |
|
./pkg/obcs/obcs_balance_flow.F |
348 |
OBCS_BALANCE_FLOW |
& + flowW*maskW(1+iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
51 |
OBCS_BALANCE_FLOW |
_RL inFlow, flowE, flowW, flowN, flowS |
|
./pkg/obcs/obcs_diag_balance.F |
147 |
OBCS_DIAG_BALANCE |
flowW = 0. _d 0 |
|
./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 |
182 |
OBCS_DIAG_BALANCE |
& myIter, ' ) correct OBWu:', flowW, -flowW/areaW |
|
./pkg/obcs/obcs_diag_balance.F |
186 |
OBCS_DIAG_BALANCE |
flowW = -flowW/areaW |
|
./pkg/obcs/obcs_diag_balance.F |
298 |
OBCS_DIAG_BALANCE |
IF ( OBCS_balanceFacW.GE.0. ) flowW = -inFlow*OBCS_balanceFacW |
|
./pkg/obcs/obcs_diag_balance.F |
304 |
OBCS_DIAG_BALANCE |
& 'OBCS_DIAG_balance correction to uTrans:', flowE, flowW |
|
./pkg/obcs/obcs_diag_balance.F |
344 |
OBCS_DIAG_BALANCE |
& + flowW*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
65 |
OBCS_DIAG_BALANCE |
_RL inFlow, flowE, flowW, flowN, flowS |