| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_position.F |
195 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
249 |
GRDCHK_LOC |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
251 |
GRDCHK_LOC |
itmp = OB_Ie(J,bi,bj) |
|
./pkg/obcs/OBCS_GRID.h |
42 |
NO PROCEDURE |
& OB_Jn, OB_Js, OB_Ie, OB_Iw, |
|
./pkg/obcs/OBCS_GRID.h |
46 |
NO PROCEDURE |
INTEGER OB_Ie(1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_add_tides.F |
66 |
OBCS_ADD_TIDES |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
148 |
OBCS_ADJUST_UVICE |
IF (OB_Ie(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
150 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
151 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
152 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
153 |
OBCS_ADJUST_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
154 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
155 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
158 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
159 |
OBCS_ADJUST_UVICE |
& max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
160 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
162 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
163 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
165 |
OBCS_ADJUST_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
166 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
168 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
169 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
170 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
171 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
172 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
173 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
176 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
177 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
178 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
179 |
OBCS_ADJUST_UVICE |
& ( vFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
180 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
181 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
76 |
OBCS_APPLY_ETA |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
103 |
OBCS_APPLY_PTRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
104 |
OBCS_APPLY_R_STAR |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
105 |
OBCS_APPLY_R_STAR |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
212 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
95 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
112 |
OBCS_APPLY_SURF_DR |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
113 |
OBCS_APPLY_SURF_DR |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
152 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
167 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
117 |
OBCS_APPLY_UV |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
184 |
OBCS_APPLY_UV |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
172 |
OBCS_APPLY_UVICE |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
107 |
OBCS_APPLY_W |
Iobc = OB_Ie(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 |
97 |
OBCS_BALANCE_FLOW |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
103 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
118 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
285 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
286 |
OBCS_CALC |
I_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1083 |
OBCS_STEVENS_SAVE_TRACERS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
175 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
237 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
254 |
OBCS_CALC_STEVENS |
I OB_Ie, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
262 |
OBCS_CALC_STEVENS |
I OB_Ie, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
639 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_check.F |
133 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Ie(1-OLy,bi,bj), 1-OLy, sNy+OLy, INDEX_J, |
|
./pkg/obcs/obcs_check.F |
463 |
OBCS_CHECK |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
477 |
OBCS_CHECK |
& .AND. i.NE.OB_Ie(j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
76 |
OBCS_CHECK_DEPTHS |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
93 |
OBCS_COPY_TRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
91 |
OBCS_COPY_UV_N |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
206 |
OBCS_DIAG_BALANCE |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
207 |
OBCS_DIAG_BALANCE |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
93 |
OBCS_DIAG_BALANCE |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
183 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
184 |
OBCS_INIT_FIXED |
OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_init_fixed.F |
186 |
OBCS_INIT_FIXED |
& ' Sets OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
188 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Ie(j,bi,bj).NE.i ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
192 |
OBCS_INIT_FIXED |
& ' OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(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 |
301 |
OBCS_INIT_FIXED |
IF ( OB_Ie(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
302 |
OBCS_INIT_FIXED |
iB = MAX( iB, OB_Ie(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
390 |
OBCS_INIT_FIXED |
& ( OB_Ie(j,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
75 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
77 |
OBCS_INIT_FIXED |
DO i=OB_Ie(j,bi,bj),sNx |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj) |
|
./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 |
585 |
OBCS_READPARMS |
OB_Ie(j,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
624 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jG) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
655 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jGm) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_save_uv_n.F |
99 |
OBCS_SAVE_UV_N |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
111 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
113 |
OBCS_SEAICE_SPONGE_A |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
268 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
270 |
OBCS_SEAICE_SPONGE_H |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
425 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
427 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
582 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
584 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_set_connect.F |
165 |
OBCS_SET_CONNECT |
IF (OB_Ie(j,bi,bj).EQ.OB_indexNone) OBE_connect(j,k,bi,bj)=0 |
|
./pkg/obcs/obcs_sponge.F |
134 |
OBCS_SPONGE_U |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
136 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
328 |
OBCS_SPONGE_V |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
330 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
553 |
OBCS_SPONGE_T |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
785 |
OBCS_SPONGE_S |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/orlanski_east.F |
108 |
ORLANSKI_EAST |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
133 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
202 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
254 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
174 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 0, OB_indexNone, OB_Ie, |
|
./pkg/ecco/cost_obcs_ageos.F |
436 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
464 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
476 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
345 |
COST_OBCSVOL |
i = OB_Ie(j,bi,bj) |