| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_position.F |
187 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
240 |
GRDCHK_LOC |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
242 |
GRDCHK_LOC |
itmp = OB_Iw(J,bi,bj) |
|
./pkg/obcs/OBCS_GRID.h |
42 |
NO PROCEDURE |
& OB_Jn, OB_Js, OB_Ie, OB_Iw, |
|
./pkg/obcs/OBCS_GRID.h |
47 |
NO PROCEDURE |
INTEGER OB_Iw(1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_add_tides.F |
84 |
OBCS_ADD_TIDES |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
193 |
OBCS_ADJUST_UVICE |
IF (OB_Iw(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
195 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
196 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
197 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
203 |
OBCS_ADJUST_UVICE |
vFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
204 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
205 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
208 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
209 |
OBCS_ADJUST_UVICE |
& min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
210 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
212 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
213 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
215 |
OBCS_ADJUST_UVICE |
vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
216 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
218 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
219 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
220 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
221 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Iw(J,bi,bj)+1,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
222 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+3,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
223 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
226 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
227 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
228 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
229 |
OBCS_ADJUST_UVICE |
& ( vFld(OB_Iw(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
230 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
231 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
86 |
OBCS_APPLY_ETA |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
118 |
OBCS_APPLY_PTRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
121 |
OBCS_APPLY_R_STAR |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
122 |
OBCS_APPLY_R_STAR |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_seaice.F |
112 |
OBCS_APPLY_SEAICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
251 |
OBCS_APPLY_SEAICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
131 |
OBCS_APPLY_SURF_DR |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
132 |
OBCS_APPLY_SURF_DR |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_ts.F |
186 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
201 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
131 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
201 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
121 |
OBCS_APPLY_UVICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
189 |
OBCS_APPLY_UVICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
126 |
OBCS_APPLY_W |
Iobc = OB_Iw(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 |
345 |
OBCS_BALANCE_FLOW |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
153 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
168 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
317 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
318 |
OBCS_CALC |
I_obc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1099 |
OBCS_STEVENS_SAVE_TRACERS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
302 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
353 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
364 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
381 |
OBCS_CALC_STEVENS |
I OB_Iw, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
389 |
OBCS_CALC_STEVENS |
I OB_Iw, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
643 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_check.F |
137 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Iw(1-OLy,bi,bj), 1-OLy, sNy+OLy, INDEX_J, |
|
./pkg/obcs/obcs_check.F |
487 |
OBCS_CHECK |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
501 |
OBCS_CHECK |
& .AND. i.NE.OB_Iw(j,bi,bj)+1 ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
93 |
OBCS_CHECK_DEPTHS |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
109 |
OBCS_COPY_TRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
107 |
OBCS_COPY_UV_N |
Iobc = OB_Iw(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 |
226 |
OBCS_DIAG_BALANCE |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
227 |
OBCS_DIAG_BALANCE |
iBt = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
206 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
207 |
OBCS_INIT_FIXED |
OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_init_fixed.F |
209 |
OBCS_INIT_FIXED |
& ' Sets OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
211 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Iw(j,bi,bj).NE.i ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
215 |
OBCS_INIT_FIXED |
& ' OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
312 |
OBCS_INIT_FIXED |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
320 |
OBCS_INIT_FIXED |
IF ( OB_Iw(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
321 |
OBCS_INIT_FIXED |
iB = MIN( iB, OB_Iw(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
392 |
OBCS_INIT_FIXED |
& ( OB_Iw(j,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
79 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
84 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
86 |
OBCS_INIT_FIXED |
DO i=OB_Iw(j,bi,bj),1,-1 |
|
./pkg/obcs/obcs_monitor.F |
109 |
OBCS_MONITOR |
I OB_Ie, OB_Iw, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
131 |
OBCS_MONITOR |
I OB_Ie, OB_Iw, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
153 |
OBCS_MONITOR |
I OB_Ie, OB_Iw, OB_indexNone, |
|
./pkg/obcs/obcs_readparms.F |
586 |
OBCS_READPARMS |
OB_Iw(J,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
631 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jG) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
663 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jGm) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_save_uv_n.F |
113 |
OBCS_SAVE_UV_N |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
138 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
140 |
OBCS_SEAICE_SPONGE_A |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
295 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
297 |
OBCS_SEAICE_SPONGE_H |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
452 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
454 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
609 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
611 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_set_connect.F |
166 |
OBCS_SET_CONNECT |
IF (OB_Iw(j,bi,bj).EQ.OB_indexNone) OBW_connect(j,k,bi,bj)=0 |
|
./pkg/obcs/obcs_sponge.F |
169 |
OBCS_SPONGE_U |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
363 |
OBCS_SPONGE_V |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
365 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
593 |
OBCS_SPONGE_T |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
595 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
825 |
OBCS_SPONGE_S |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
827 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/orlanski_west.F |
110 |
ORLANSKI_WEST |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
412 |
SEAICE_INIT_VARIA |
I_obc = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
133 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
202 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
254 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
166 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 1, OB_indexNone, OB_Iw, |
|
./pkg/ecco/cost_obcs_ageos.F |
369 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
397 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
409 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
302 |
COST_OBCSVOL |
i = OB_Iw(j,bi,bj) |