| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_loc.F |
241 |
GRDCHK_LOC |
itmp = OB_Ie(J,bi,bj) |
|
./pkg/obcs/OBCS.h |
90 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
93 |
NO PROCEDURE |
INTEGER OB_Ie(1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
41 |
OBCS_APPLY_ETA |
i_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
70 |
OBCS_APPLY_ETA |
i_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
111 |
OBCS_APPLY_PTRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
65 |
OBCS_APPLY_R_STAR |
i = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
215 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
94 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
59 |
OBCS_APPLY_SLOC |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
64 |
OBCS_APPLY_SURF_DR |
i = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
59 |
OBCS_APPLY_TLOC |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
118 |
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_uvice.F |
130 |
OBCS_APPLY_UVICE |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
132 |
OBCS_APPLY_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
133 |
OBCS_APPLY_UVICE |
& _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
134 |
OBCS_APPLY_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
135 |
OBCS_APPLY_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
136 |
OBCS_APPLY_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
140 |
OBCS_APPLY_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
141 |
OBCS_APPLY_UVICE |
& max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
142 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
144 |
OBCS_APPLY_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
145 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
147 |
OBCS_APPLY_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
148 |
OBCS_APPLY_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
150 |
OBCS_APPLY_UVICE |
if ( _maskW(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
151 |
OBCS_APPLY_UVICE |
& _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
152 |
OBCS_APPLY_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
153 |
OBCS_APPLY_UVICE |
& ( uFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
154 |
OBCS_APPLY_UVICE |
& uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
155 |
OBCS_APPLY_UVICE |
& _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
158 |
OBCS_APPLY_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
159 |
OBCS_APPLY_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
161 |
OBCS_APPLY_UVICE |
& ( vFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
162 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
163 |
OBCS_APPLY_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
62 |
OBCS_APPLY_W |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
94 |
OBCS_APPLY_W |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
112 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
284 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
444 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
462 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
96 |
OBCS_CALC |
I_obc=OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
146 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
160 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
172 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
188 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
203 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
236 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
607 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_check.F |
64 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Ie(1-Oly,bi,bj), 1-Oly, sNy+Oly, INDEX_J, |
|
./pkg/obcs/obcs_check_depths.F |
74 |
OBCS_CHECK_DEPTHS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
94 |
OBCS_COPY_TRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
117 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
118 |
OBCS_INIT_FIXED |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
46 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
48 |
OBCS_INIT_FIXED |
DO i=OB_Ie(j,bi,bj),sNx+OLx |
|
./pkg/obcs/obcs_readparms.F |
370 |
OBCS_READPARMS |
OB_Ie(J,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
397 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jG)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
416 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jGm)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
442 |
OBCS_READPARMS |
buf(sNx,J,bi,bj) = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
451 |
OBCS_READPARMS |
OB_Ie(J,bi,bj) = buf(sNx,J,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
126 |
OBCS_SPONGE_U |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
128 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
310 |
OBCS_SPONGE_V |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
312 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
531 |
OBCS_SPONGE_T |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
533 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
763 |
OBCS_SPONGE_S |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/orlanski_east.F |
106 |
ORLANSKI_EAST |
I_obc=OB_Ie(J,bi,bj) |
|
./model/src/ini_cg2d.F |
124 |
INI_CG2D |
IF (OB_Ie(j,bi,bj).NE.0) aW2d(OB_Ie(j,bi,bj), j, bi,bj)=0. |
|
./model/src/ini_cg2d.F |
125 |
INI_CG2D |
IF (OB_Ie(j,bi,bj).NE.0) aW2d(OB_Ie(j,bi,bj)+1,j,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
180 |
INI_CG3D |
IF (OB_Ie(j,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
181 |
INI_CG3D |
aW3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
182 |
INI_CG3D |
aW3d(OB_Ie(j,bi,bj)+1,j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
183 |
INI_CG3D |
aS3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
184 |
INI_CG3D |
aS3d( OB_Ie(j,bi,bj),j+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
185 |
INI_CG3D |
aV3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
190 |
PRE_CG3D |
IF (OB_Ie(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
191 |
PRE_CG3D |
& uf(OB_Ie(j,bi,bj),j) = 0. |
|
./model/src/pre_cg3d.F |
253 |
PRE_CG3D |
IF (OB_Ie(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
254 |
PRE_CG3D |
& cg3d_b(OB_Ie(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
248 |
SOLVE_FOR_PRESSURE |
IF (OB_Ie(j,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
249 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Ie(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
250 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Ie(j,bi,bj),j,bi,bj)=0. |
|
./model/src/update_cg2d.F |
106 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
107 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj)+1,J,bi,bj)=0. |
|
./pkg/ctrl/ctrl_getobcse.F |
140 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
175 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
258 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
293 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
343 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
156 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 0, OB_Ie, nwetobcse, ymaskobcs, mythid ) |
|
./pkg/ecco/cost_obcse.F |
129 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
166 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
202 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
239 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
334 |
COST_OBCSVOL |
i = OB_Ie(j,bi,bj) |