| 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 |
183 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileAreaOB(1,1,n), areaOB(n), myThid ) |
|
./pkg/obcs/obcs_diag_balance.F |
184 |
OBCS_DIAG_BALANCE |
IF ( areaOB(n).GT.0. ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
189 |
OBCS_DIAG_BALANCE |
& ' ) inFlow:',inFlow(n),inFlow(n)/areaOB(n) |
|
./pkg/obcs/obcs_diag_balance.F |
193 |
OBCS_DIAG_BALANCE |
inFlow(n) = inFlow(n) / areaOB(n) |
|
./pkg/obcs/obcs_diag_balance.F |
65 |
OBCS_DIAG_BALANCE |
_RL areaOB(OBCS_maxConnect), tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
78 |
OBCS_DIAG_BALANCE |
areaOB(n)= 0. _d 0 |