| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
113 |
OBCS_BALANCE_FLOW |
areaE = areaE + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
121 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaE, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
122 |
OBCS_BALANCE_FLOW |
IF ( areaE.GT.0. ) THEN |
|
./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 |
50 |
OBCS_BALANCE_FLOW |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/obcs/obcs_balance_flow.F |
87 |
OBCS_BALANCE_FLOW |
areaE = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
101 |
OBCS_DIAG_BALANCE |
areaE = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
123 |
OBCS_DIAG_BALANCE |
areaE = areaE + tileArea(bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
131 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileArea, areaE, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
132 |
OBCS_DIAG_BALANCE |
IF ( areaE.GT.0. ) THEN |
|
./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 |
64 |
OBCS_DIAG_BALANCE |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |