| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_loc.F |
233 |
GRDCHK_LOC |
itmp = OB_Iw(J,bi,bj) |
|
./pkg/obcs/OBCS.h |
108 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
112 |
NO PROCEDURE |
INTEGER OB_Iw(1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
44 |
OBCS_APPLY_ETA |
i_obc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
76 |
OBCS_APPLY_ETA |
i_obc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
86 |
OBCS_APPLY_PTRACER |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
75 |
OBCS_APPLY_R_STAR |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
193 |
OBCS_APPLY_SEAICE |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
69 |
OBCS_APPLY_SLOC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
73 |
OBCS_APPLY_SURF_DR |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
69 |
OBCS_APPLY_TLOC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
77 |
OBCS_APPLY_TS |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
77 |
OBCS_APPLY_UV |
IF (OB_Iw(J,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
78 |
OBCS_APPLY_UV |
uFld(OB_Iw(J,bi,bj)+1,J,K,bi,bj)=OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
79 |
OBCS_APPLY_UV |
& *_maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
80 |
OBCS_APPLY_UV |
vFld(OB_Iw(J,bi,bj),J,K,bi,bj)=OBWv(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
81 |
OBCS_APPLY_UV |
& *_maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
82 |
OBCS_APPLY_UV |
uFld(OB_Iw(J,bi,bj),J,K,bi,bj)=OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
83 |
OBCS_APPLY_UV |
& *_maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
165 |
OBCS_APPLY_UVICE |
IF (OB_Iw(J,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
167 |
OBCS_APPLY_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
168 |
OBCS_APPLY_UVICE |
& _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
172 |
OBCS_APPLY_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
173 |
OBCS_APPLY_UVICE |
& min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
174 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
176 |
OBCS_APPLY_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
177 |
OBCS_APPLY_UVICE |
& *_maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
179 |
OBCS_APPLY_UVICE |
vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
180 |
OBCS_APPLY_UVICE |
& *_maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
182 |
OBCS_APPLY_UVICE |
if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
183 |
OBCS_APPLY_UVICE |
& _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
190 |
OBCS_APPLY_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
191 |
OBCS_APPLY_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
97 |
OBCS_APPLY_W |
I_obc = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
119 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
271 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
420 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
438 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_check.F |
158 |
OBCS_CHECK |
write(*,*) 'bi,bj:',bi,bj,' OB_Iw=',(OB_Iw(j,bi,bj),j=1,sNy) |
|
./pkg/obcs/obcs_check_depths.F |
90 |
OBCS_CHECK_DEPTHS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
115 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
116 |
OBCS_INIT_FIXED |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_init_fixed.F |
51 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
52 |
OBCS_INIT_FIXED |
DO i=1-OLx,OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
57 |
OBCS_INIT_FIXED |
DO i=1-OLx,OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_readparms.F |
246 |
OBCS_READPARMS |
OB_Iw(J,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
262 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jGm)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_sponge.F |
160 |
OBCS_SPONGE_U |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
162 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
344 |
OBCS_SPONGE_V |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
346 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
572 |
OBCS_SPONGE_T |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
576 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
804 |
OBCS_SPONGE_S |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/orlanski_west.F |
108 |
ORLANSKI_WEST |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
213 |
SEAICE_INIT_VARIA |
I_obc=OB_Iw(j,bi,bj) |
|
./model/src/ini_cg2d.F |
126 |
INI_CG2D |
IF (OB_Iw(j,bi,bj).NE.0) aW2d(OB_Iw(j,bi,bj)+1,j,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
127 |
INI_CG2D |
IF (OB_Iw(j,bi,bj).NE.0) aW2d(OB_Iw(j,bi,bj), j, bi,bj)=0. |
|
./model/src/ini_cg3d.F |
187 |
INI_CG3D |
IF (OB_Iw(j,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
188 |
INI_CG3D |
aW3d(OB_Iw(j,bi,bj)+1,j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
189 |
INI_CG3D |
aW3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
190 |
INI_CG3D |
aS3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
191 |
INI_CG3D |
aS3d( OB_Iw(j,bi,bj),j+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
192 |
INI_CG3D |
aV3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
193 |
PRE_CG3D |
IF (OB_Iw(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
194 |
PRE_CG3D |
& uf(OB_Iw(j,bi,bj)+1,j) = 0. |
|
./model/src/pre_cg3d.F |
256 |
PRE_CG3D |
IF (OB_Iw(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
257 |
PRE_CG3D |
& cg3d_b(OB_Iw(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
252 |
SOLVE_FOR_PRESSURE |
IF (OB_Iw(j,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
253 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Iw(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
254 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Iw(j,bi,bj),j,bi,bj)=0. |
|
./model/src/update_cg2d.F |
108 |
UPDATE_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
109 |
UPDATE_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0. |
|
./pkg/ctrl/ctrl_getobcsw.F |
140 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
175 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
261 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
296 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
346 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
149 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 1, OB_Iw, nwetobcsw, ymaskobcs, mythid ) |
|
./pkg/ecco/cost_obcsvol.F |
291 |
COST_OBCSVOL |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
129 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
166 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
202 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
239 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |