| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
286 |
OBCS_BALANCE_FLOW |
IF ( flag ) CALL GLOBAL_SUM_TILE_RL( tileAreaOB, areaOB, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
287 |
OBCS_BALANCE_FLOW |
IF ( areaOB.GT.0. ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
291 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct for inFlow:', inFlow, inFlow/areaOB |
|
./pkg/obcs/obcs_balance_flow.F |
295 |
OBCS_BALANCE_FLOW |
inFlow = inFlow / areaOB |
|
./pkg/obcs/obcs_balance_flow.F |
302 |
OBCS_BALANCE_FLOW |
IF ( debugLevel.GE.debLevC .AND. areaOB.GT.0. ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
50 |
OBCS_BALANCE_FLOW |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/obcs/obcs_balance_flow.F |
77 |
OBCS_BALANCE_FLOW |
areaOB = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
286 |
OBCS_DIAG_BALANCE |
IF ( flag ) CALL GLOBAL_SUM_TILE_RL( tileAreaOB, areaOB, myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
287 |
OBCS_DIAG_BALANCE |
IF ( areaOB.GT.0. ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
291 |
OBCS_DIAG_BALANCE |
& myIter, ' ) correct for inFlow:', inFlow, inFlow/areaOB |
|
./pkg/obcs/obcs_diag_balance.F |
295 |
OBCS_DIAG_BALANCE |
inFlow = inFlow / areaOB |
|
./pkg/obcs/obcs_diag_balance.F |
302 |
OBCS_DIAG_BALANCE |
IF ( debugLevel.GE.debLevC .AND. areaOB.GT.0. ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
64 |
OBCS_DIAG_BALANCE |
_RL areaOB, areaE, areaW, areaN, areaS, tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
91 |
OBCS_DIAG_BALANCE |
areaOB = 0. _d 0 |