| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
222 |
GRDCHK_LOC |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
225 |
GRDCHK_LOC |
jtmp = OB_Jn(I,bi,bj) |
|
./pkg/obcs/OBCS_GRID.h |
42 |
NO PROCEDURE |
& OB_Jn, OB_Js, OB_Ie, OB_Iw, |
|
./pkg/obcs/OBCS_GRID.h |
44 |
NO PROCEDURE |
INTEGER OB_Jn(1-OLx:sNx+OLx,nSx,nSy) |
|
./pkg/obcs/obcs_add_tides.F |
102 |
OBCS_ADD_TIDES |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
52 |
OBCS_ADJUST_UVICE |
IF (OB_Jn(I,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
54 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
55 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
56 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
57 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
58 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
59 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
62 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
63 |
OBCS_ADJUST_UVICE |
& max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
64 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
66 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNvice(I,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
67 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
69 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNuice(I,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
70 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
72 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
73 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
74 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
75 |
OBCS_ADJUST_UVICE |
& ( vFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
76 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
77 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
80 |
OBCS_ADJUST_UVICE |
if ( _maskW(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
81 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
82 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
83 |
OBCS_ADJUST_UVICE |
& ( uFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
84 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
85 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
72 |
OBCS_APPLY_PTRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
69 |
OBCS_APPLY_R_STAR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
134 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
61 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
72 |
OBCS_APPLY_SURF_DR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
73 |
OBCS_APPLY_SURF_DR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
83 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
98 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
148 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
81 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
68 |
OBCS_APPLY_W |
Jobc = 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 |
365 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
202 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
349 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
350 |
OBCS_CALC |
J_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1051 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
413 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
464 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
475 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
492 |
OBCS_CALC_STEVENS |
I OB_Jn, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
500 |
OBCS_CALC_STEVENS |
I OB_Jn, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_check.F |
125 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Jn(1-OLx,bi,bj), 1-OLx, sNx+OLx, INDEX_I, |
|
./pkg/obcs/obcs_check.F |
514 |
OBCS_CHECK |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
528 |
OBCS_CHECK |
& .AND. j.NE.OB_Jn(i,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
44 |
OBCS_CHECK_DEPTHS |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
60 |
OBCS_COPY_TRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
58 |
OBCS_COPY_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
138 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
247 |
OBCS_DIAG_BALANCE |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
248 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
229 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
230 |
OBCS_INIT_FIXED |
OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_init_fixed.F |
232 |
OBCS_INIT_FIXED |
& ' Sets OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
234 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Jn(i,bi,bj).NE.j ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
238 |
OBCS_INIT_FIXED |
& ' OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
331 |
OBCS_INIT_FIXED |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
339 |
OBCS_INIT_FIXED |
IF ( OB_Jn(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
340 |
OBCS_INIT_FIXED |
jB = MAX( jB, OB_Jn(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
396 |
OBCS_INIT_FIXED |
& ( OB_Jn(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
95 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
97 |
OBCS_INIT_FIXED |
DO j=OB_Jn(i,bi,bj),sNy |
|
./pkg/obcs/obcs_monitor.F |
115 |
OBCS_MONITOR |
I OB_Jn, OB_Js, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
137 |
OBCS_MONITOR |
I OB_Jn, OB_Js, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
159 |
OBCS_MONITOR |
I OB_Jn, OB_Js, OB_indexNone, |
|
./pkg/obcs/obcs_readparms.F |
580 |
OBCS_READPARMS |
OB_Jn(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
603 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
677 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_save_uv_n.F |
70 |
OBCS_SAVE_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
214 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
216 |
OBCS_SEAICE_SPONGE_H |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
371 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
373 |
OBCS_SEAICE_SPONGE_SL |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
528 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
530 |
OBCS_SEAICE_SPONGE_SN |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
57 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
59 |
OBCS_SEAICE_SPONGE_A |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_set_connect.F |
161 |
OBCS_SET_CONNECT |
IF (OB_Jn(i,bi,bj).EQ.OB_indexNone) OBN_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_sponge.F |
258 |
OBCS_SPONGE_V |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
260 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
473 |
OBCS_SPONGE_T |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
475 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
66 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
707 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/orlanski_north.F |
99 |
ORLANSKI_NORTH |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
138 |
CTRL_GETOBCSN |
j = OB_Jn(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
j = OB_Jn(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
260 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
150 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 0, OB_indexNone, OB_Jn, |
|
./pkg/ecco/cost_obcs_ageos.F |
231 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
260 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
273 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
217 |
COST_OBCSVOL |
j = OB_Jn(I,bi,bj) |