| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_add_tides.F |
51 |
OBCS_ADD_TIDES |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_add_tides.F |
66 |
OBCS_ADD_TIDES |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
67 |
OBCS_ADD_TIDES |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
70 |
OBCS_ADD_TIDES |
& maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
84 |
OBCS_ADD_TIDES |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
85 |
OBCS_ADD_TIDES |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
88 |
OBCS_ADD_TIDES |
& maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_balance_flow.F |
100 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone .AND. iB.GT.1 ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
101 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
102 |
OBCS_BALANCE_FLOW |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
146 |
OBCS_BALANCE_FLOW |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
149 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone .AND. iB.LT.sNx ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
150 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
151 |
OBCS_BALANCE_FLOW |
& *maskInW(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
325 |
OBCS_BALANCE_FLOW |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
326 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
328 |
OBCS_BALANCE_FLOW |
& + flowE*maskW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
345 |
OBCS_BALANCE_FLOW |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
346 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
348 |
OBCS_BALANCE_FLOW |
& + flowW*maskW(1+iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
48 |
OBCS_BALANCE_FLOW |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_balance_flow.F |
97 |
OBCS_BALANCE_FLOW |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
101 |
OBCS_DIAG_BALANCE |
& - uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
115 |
OBCS_DIAG_BALANCE |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
116 |
OBCS_DIAG_BALANCE |
IF ( iB.NE.OB_indexNone .AND. iB.LT.sNx ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
119 |
OBCS_DIAG_BALANCE |
iB = 1+iB |
|
./pkg/obcs/obcs_diag_balance.F |
120 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
121 |
OBCS_DIAG_BALANCE |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
124 |
OBCS_DIAG_BALANCE |
& + uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
207 |
OBCS_DIAG_BALANCE |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
210 |
OBCS_DIAG_BALANCE |
div2d(iB ,j,bi,bj) = div2d(iB ,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
211 |
OBCS_DIAG_BALANCE |
& - uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
213 |
OBCS_DIAG_BALANCE |
div2d(iB ,j,bi,bj) = div2d(iB,j,bi,bj) |
|
./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 |
215 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
228 |
OBCS_DIAG_BALANCE |
iB = 1+iBt |
|
./pkg/obcs/obcs_diag_balance.F |
232 |
OBCS_DIAG_BALANCE |
& + uTrans(iB,j,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 |
236 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
63 |
OBCS_DIAG_BALANCE |
INTEGER i, j, iB, jB, iBt, jBt |
|
./pkg/obcs/obcs_diag_balance.F |
93 |
OBCS_DIAG_BALANCE |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
94 |
OBCS_DIAG_BALANCE |
IF ( iB.NE.OB_indexNone .AND. iB.GT.1 ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
97 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
98 |
OBCS_DIAG_BALANCE |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
293 |
OBCS_INIT_FIXED |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
294 |
OBCS_INIT_FIXED |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
295 |
OBCS_INIT_FIXED |
DO i=iB,iB+OB_ApplX-1 |
|
./pkg/obcs/obcs_init_fixed.F |
298 |
OBCS_INIT_FIXED |
DO i=iB+1,iB+OB_ApplX-1 |
|
./pkg/obcs/obcs_init_fixed.F |
302 |
OBCS_INIT_FIXED |
iB = MAX( iB, OB_Ie(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
303 |
OBCS_INIT_FIXED |
DO i=iB,iB+OB_ApplX-1 |
|
./pkg/obcs/obcs_init_fixed.F |
312 |
OBCS_INIT_FIXED |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
313 |
OBCS_INIT_FIXED |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
314 |
OBCS_INIT_FIXED |
DO i=1-OB_ApplX+iB,iB |
|
./pkg/obcs/obcs_init_fixed.F |
317 |
OBCS_INIT_FIXED |
DO i=2-OB_ApplX+iB,iB |
|
./pkg/obcs/obcs_init_fixed.F |
321 |
OBCS_INIT_FIXED |
iB = MIN( iB, OB_Iw(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
322 |
OBCS_INIT_FIXED |
DO i=1-OB_ApplX+iB,iB |
|
./pkg/obcs/obcs_init_fixed.F |
48 |
OBCS_INIT_FIXED |
INTEGER iB, jB |
|
./pkg/obcs/obcs_mon_stats.F |
117 |
OBCS_MON_STATS_EW_RL |
iB = ii |
|
./pkg/obcs/obcs_mon_stats.F |
118 |
OBCS_MON_STATS_EW_RL |
tmpMask = arrhFac(iB,j,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
123 |
OBCS_MON_STATS_EW_RL |
tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
189 |
OBCS_MON_STATS_EW_RL |
iB = ii+1 |
|
./pkg/obcs/obcs_mon_stats.F |
190 |
OBCS_MON_STATS_EW_RL |
tmpMask = arrhFac(iB,j,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
194 |
OBCS_MON_STATS_EW_RL |
IF ( gPos.EQ.1 .OR. gPos.EQ.3 ) ii = iB |
|
./pkg/obcs/obcs_mon_stats.F |
196 |
OBCS_MON_STATS_EW_RL |
tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
82 |
OBCS_MON_STATS_EW_RL |
INTEGER ii, iB |