| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_add_tides.F |
102 |
OBCS_ADD_TIDES |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
103 |
OBCS_ADD_TIDES |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
106 |
OBCS_ADD_TIDES |
& maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
120 |
OBCS_ADD_TIDES |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
121 |
OBCS_ADD_TIDES |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
124 |
OBCS_ADD_TIDES |
& maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
51 |
OBCS_ADD_TIDES |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_balance_flow.F |
195 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
198 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone .AND. jB.GT.1 ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
199 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
200 |
OBCS_BALANCE_FLOW |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
244 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
247 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone .AND. jB.LT.sNy ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
248 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
249 |
OBCS_BALANCE_FLOW |
& *maskInS(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
365 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
366 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
368 |
OBCS_BALANCE_FLOW |
& + flowN*maskS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
385 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
386 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
388 |
OBCS_BALANCE_FLOW |
& + flowS*maskS(i,1+jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
48 |
OBCS_BALANCE_FLOW |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_diag_balance.F |
138 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
139 |
OBCS_DIAG_BALANCE |
IF ( jB.NE.OB_indexNone .AND. jB.GT.1 ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
142 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
143 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
146 |
OBCS_DIAG_BALANCE |
& - vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
160 |
OBCS_DIAG_BALANCE |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
161 |
OBCS_DIAG_BALANCE |
IF ( jB.NE.OB_indexNone .AND. jB.LT.sNy ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
164 |
OBCS_DIAG_BALANCE |
jB = 1+jB |
|
./pkg/obcs/obcs_diag_balance.F |
165 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
166 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
169 |
OBCS_DIAG_BALANCE |
& + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
248 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
251 |
OBCS_DIAG_BALANCE |
div2d(i,jB ,bi,bj) = div2d(i,jB ,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
252 |
OBCS_DIAG_BALANCE |
& - vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
254 |
OBCS_DIAG_BALANCE |
div2d(i,jB ,bi,bj) = div2d(i,jB ,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 |
256 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
269 |
OBCS_DIAG_BALANCE |
jB = 1+jBt |
|
./pkg/obcs/obcs_diag_balance.F |
273 |
OBCS_DIAG_BALANCE |
& + vTrans(i,jB,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 |
277 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
63 |
OBCS_DIAG_BALANCE |
INTEGER i, j, iB, jB, iBt, jBt |
|
./pkg/obcs/obcs_init_fixed.F |
331 |
OBCS_INIT_FIXED |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
332 |
OBCS_INIT_FIXED |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
333 |
OBCS_INIT_FIXED |
DO j=jB,jB+OB_ApplY-1 |
|
./pkg/obcs/obcs_init_fixed.F |
336 |
OBCS_INIT_FIXED |
DO j=jB+1,jB+OB_ApplY-1 |
|
./pkg/obcs/obcs_init_fixed.F |
340 |
OBCS_INIT_FIXED |
jB = MAX( jB, OB_Jn(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
341 |
OBCS_INIT_FIXED |
DO j=jB,jB+OB_ApplY-1 |
|
./pkg/obcs/obcs_init_fixed.F |
350 |
OBCS_INIT_FIXED |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
351 |
OBCS_INIT_FIXED |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
352 |
OBCS_INIT_FIXED |
DO j=1-OB_ApplY+jB,jB |
|
./pkg/obcs/obcs_init_fixed.F |
355 |
OBCS_INIT_FIXED |
DO j=2-OB_ApplY+jB,jB |
|
./pkg/obcs/obcs_init_fixed.F |
359 |
OBCS_INIT_FIXED |
jB = MIN( jB, OB_Js(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
360 |
OBCS_INIT_FIXED |
DO j=1-OB_ApplY+jB,jB |
|
./pkg/obcs/obcs_init_fixed.F |
48 |
OBCS_INIT_FIXED |
INTEGER iB, jB |
|
./pkg/obcs/obcs_mon_stats.F |
314 |
OBCS_MON_STATS_NS_RL |
INTEGER jj, jB |
|
./pkg/obcs/obcs_mon_stats.F |
349 |
OBCS_MON_STATS_NS_RL |
jB = jj |
|
./pkg/obcs/obcs_mon_stats.F |
350 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
355 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
421 |
OBCS_MON_STATS_NS_RL |
jB = jj+1 |
|
./pkg/obcs/obcs_mon_stats.F |
422 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
426 |
OBCS_MON_STATS_NS_RL |
IF ( gPos.EQ.2 .OR. gPos.EQ.3 ) jj = jB |
|
./pkg/obcs/obcs_mon_stats.F |
428 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |