| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_add_tides.F |
100 |
OBCS_ADD_TIDES |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
103 |
OBCS_ADD_TIDES |
& maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
117 |
OBCS_ADD_TIDES |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
118 |
OBCS_ADD_TIDES |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
121 |
OBCS_ADD_TIDES |
& maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
48 |
OBCS_ADD_TIDES |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_add_tides.F |
99 |
OBCS_ADD_TIDES |
jB = OB_Jn(i,bi,bj) |
|
./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 |
201 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
202 |
OBCS_DIAG_BALANCE |
IF ( jB.NE.OB_indexNone .AND. jB.GT.1 ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
203 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
204 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
206 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = tileFlow(bi,bj) + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
246 |
OBCS_DIAG_BALANCE |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
247 |
OBCS_DIAG_BALANCE |
IF ( jB.NE.OB_indexNone .AND. jB.LT.sNy ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
248 |
OBCS_DIAG_BALANCE |
jB = 1+jB |
|
./pkg/obcs/obcs_diag_balance.F |
249 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
250 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
252 |
OBCS_DIAG_BALANCE |
tileFlow(bi,bj) = tileFlow(bi,bj) + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
361 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
362 |
OBCS_DIAG_BALANCE |
vTrans(i,jB,bi,bj) = vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
363 |
OBCS_DIAG_BALANCE |
& + flowN*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
364 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
380 |
OBCS_DIAG_BALANCE |
jB = 1+OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
381 |
OBCS_DIAG_BALANCE |
vTrans(i,jB,bi,bj) = vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
382 |
OBCS_DIAG_BALANCE |
& + flowS*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
383 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
62 |
OBCS_DIAG_BALANCE |
INTEGER i, j, iB, jB |
|
./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 |