| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_balance_flow.F |
288 |
OBCS_BALANCE_FLOW |
CALL GLOBAL_SUM_TILE_RL( tileInFlow, inFlow, myThid ) |
|
./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 |
297 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacE.GE.0. ) flowE = inFlow*OBCS_balanceFacE |
|
./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 |
299 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacN.GE.0. ) flowN = inFlow*OBCS_balanceFacN |
|
./pkg/obcs/obcs_balance_flow.F |
300 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacS.GE.0. ) flowS = -inFlow*OBCS_balanceFacS |
|
./pkg/obcs/obcs_balance_flow.F |
51 |
OBCS_BALANCE_FLOW |
_RL inFlow, flowE, flowW, flowN, flowS |
|
./pkg/obcs/obcs_balance_flow.F |
78 |
OBCS_BALANCE_FLOW |
inFlow = 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
185 |
OBCS_DIAG_BALANCE |
CALL GLOBAL_SUM_TILE_RL( tileInFlow(1,1,n), inFlow(n), myThid ) |
|
./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 |
214 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
235 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
255 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
276 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
66 |
OBCS_DIAG_BALANCE |
_RL inFlow(OBCS_maxConnect) |
|
./pkg/obcs/obcs_diag_balance.F |
79 |
OBCS_DIAG_BALANCE |
inFlow(n)= 0. _d 0 |