| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_position.F |
179 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
234 |
GRDCHK_LOC |
jtmp = OB_Js(I,bi,bj) |
|
./pkg/obcs/OBCS_GRID.h |
42 |
NO PROCEDURE |
& OB_Jn, OB_Js, OB_Ie, OB_Iw, |
|
./pkg/obcs/OBCS_GRID.h |
45 |
NO PROCEDURE |
INTEGER OB_Js(1-OLx:sNx+OLx,nSx,nSy) |
|
./pkg/obcs/obcs_add_tides.F |
120 |
OBCS_ADD_TIDES |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
104 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
105 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
106 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
107 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
108 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
109 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
112 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
113 |
OBCS_ADJUST_UVICE |
& min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
114 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
116 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
117 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
119 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
120 |
OBCS_ADJUST_UVICE |
& * _maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
122 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
123 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
124 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
125 |
OBCS_ADJUST_UVICE |
& ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
126 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
127 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
130 |
OBCS_ADJUST_UVICE |
if ( _maskW(I,OB_Js(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
131 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
132 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
133 |
OBCS_ADJUST_UVICE |
& ( uFld(I,OB_Js(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
134 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
135 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
97 |
OBCS_ADJUST_UVICE |
IF (OB_Js(I,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
64 |
OBCS_APPLY_ETA |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
87 |
OBCS_APPLY_PTRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
85 |
OBCS_APPLY_R_STAR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
86 |
OBCS_APPLY_R_STAR |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_seaice.F |
173 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
78 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
91 |
OBCS_APPLY_SURF_DR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
92 |
OBCS_APPLY_SURF_DR |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_ts.F |
117 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
132 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
165 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
154 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
87 |
OBCS_APPLY_W |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
244 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
385 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
236 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
381 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
382 |
OBCS_CALC |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1067 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
525 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
576 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
587 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
604 |
OBCS_CALC_STEVENS |
I OB_Js, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
612 |
OBCS_CALC_STEVENS |
I OB_Js, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_check.F |
129 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Js(1-OLx,bi,bj), 1-OLx, sNx+OLx, INDEX_I, |
|
./pkg/obcs/obcs_check.F |
538 |
OBCS_CHECK |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
552 |
OBCS_CHECK |
& .AND. j.NE.OB_Js(i,bi,bj)+1 ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
60 |
OBCS_CHECK_DEPTHS |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
76 |
OBCS_COPY_TRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
74 |
OBCS_COPY_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
160 |
OBCS_DIAG_BALANCE |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
267 |
OBCS_DIAG_BALANCE |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
268 |
OBCS_DIAG_BALANCE |
jBt = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
104 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
106 |
OBCS_INIT_FIXED |
DO j=OB_Js(i,bi,bj),1,-1 |
|
./pkg/obcs/obcs_init_fixed.F |
252 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
253 |
OBCS_INIT_FIXED |
OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_init_fixed.F |
255 |
OBCS_INIT_FIXED |
& ' Sets OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
257 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Js(i,bi,bj).NE.j ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
261 |
OBCS_INIT_FIXED |
& ' OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
350 |
OBCS_INIT_FIXED |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
358 |
OBCS_INIT_FIXED |
IF ( OB_Js(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
359 |
OBCS_INIT_FIXED |
jB = MIN( jB, OB_Js(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
398 |
OBCS_INIT_FIXED |
& ( OB_Js(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
99 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj) |
|
./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 |
581 |
OBCS_READPARMS |
OB_Js(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
610 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
685 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_save_uv_n.F |
84 |
OBCS_SAVE_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
241 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
243 |
OBCS_SEAICE_SPONGE_H |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
398 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
400 |
OBCS_SEAICE_SPONGE_SL |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
555 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
557 |
OBCS_SEAICE_SPONGE_SN |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
84 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
86 |
OBCS_SEAICE_SPONGE_A |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_set_connect.F |
162 |
OBCS_SET_CONNECT |
IF (OB_Js(i,bi,bj).EQ.OB_indexNone) OBS_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_sponge.F |
101 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
293 |
OBCS_SPONGE_V |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
295 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
515 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
747 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/orlanski_south.F |
99 |
ORLANSKI_SOUTH |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
404 |
SEAICE_INIT_VARIA |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
134 |
CTRL_GETOBCSS |
j = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
203 |
CTRL_GETOBCSS |
j = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
255 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
158 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 1, OB_indexNone, OB_Js, |
|
./pkg/ecco/cost_obcs_ageos.F |
300 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
330 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
341 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
259 |
COST_OBCSVOL |
j = OB_Js(I,bi,bj) |