| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
185 |
OBCS_BALANCE_FLOW |
areaN = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
211 |
OBCS_BALANCE_FLOW |
areaN = areaN + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
219 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaN, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
220 |
OBCS_BALANCE_FLOW |
IF ( areaN.GT.0. ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
224 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBNv:', flowN, -flowN/areaN |
|
./pkg/obcs/obcs_balance_flow.F |
228 |
OBCS_BALANCE_FLOW |
flowN = -flowN/areaN |
|
./pkg/obcs/obcs_balance_flow.F |
50 |
OBCS_BALANCE_FLOW |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
192 |
OBCS_DIAG_BALANCE |
areaN = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
214 |
OBCS_DIAG_BALANCE |
areaN = areaN + tileArea(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
222 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaN, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
223 |
OBCS_DIAG_BALANCE |
IF ( areaN.GT.0. ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
227 |
OBCS_DIAG_BALANCE |
& myIter, ' ) correct OBNv:', flowN, -flowN/areaN |
|
./pkg/obcs/obcs_diag_balance.F |
231 |
OBCS_DIAG_BALANCE |
flowN = -flowN/areaN |
|
./pkg/obcs/obcs_diag_balance.F |
64 |
OBCS_DIAG_BALANCE |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |