| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
118 |
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 |
119 |
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 |
175 |
INI_CG3D |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
176 |
INI_CG3D |
aW3d(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
177 |
INI_CG3D |
aW3d(OB_Ie(J,bi,bj)+1,J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
178 |
INI_CG3D |
aS3d(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
179 |
INI_CG3D |
aS3d(OB_Ie(J,bi,bj),J+1,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
180 |
INI_CG3D |
aV3d(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/update_cg2d.F |
102 |
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 |
103 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
256 |
SOLVE_FOR_PRESSURE |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
257 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
258 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
370 |
SOLVE_FOR_PRESSURE |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
371 |
SOLVE_FOR_PRESSURE |
uf(OB_Ie(J,bi,bj),J)=0. |
|
./model/src/solve_for_pressure.F |
448 |
SOLVE_FOR_PRESSURE |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
449 |
SOLVE_FOR_PRESSURE |
cg3d_b(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_apply_ptracer.F |
75 |
OBCS_APPLY_PTRACER |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/OBCS.h |
68 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
71 |
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_w.F |
44 |
OBCS_APPLY_W |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
79 |
OBCS_APPLY_W |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
67 |
OBCS_APPLY_R_STAR |
i = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_check.F |
94 |
OBCS_CHECK |
write(*,*) 'bi,bj:',bi,bj,' OB_Ie=',(OB_Ie(j,bi,bj),j=1,sNy) |
|
./pkg/obcs/obcs_sponge.F |
129 |
OBCS_SPONGE_U |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
131 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
323 |
OBCS_SPONGE_V |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
325 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
557 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
798 |
OBCS_SPONGE_S |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
800 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_apply_tloc.F |
59 |
OBCS_APPLY_TLOC |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
67 |
OBCS_APPLY_SURF_DR |
i = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
105 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
106 |
OBCS_INIT_FIXED |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
48 |
OBCS_INIT_FIXED |
OB_Ie(J,bi,bj)=0 |
|
./pkg/obcs/obcs_init_fixed.F |
64 |
OBCS_INIT_FIXED |
IF (iG.EQ.OB_Ieast(jGm)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_apply_ts.F |
64 |
OBCS_APPLY_TS |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
106 |
ORLANSKI_EAST |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
64 |
OBCS_APPLY_UV |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
65 |
OBCS_APPLY_UV |
uFld(OB_Ie(J,bi,bj),J,K,bi,bj)=OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
66 |
OBCS_APPLY_UV |
& *_maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
67 |
OBCS_APPLY_UV |
vFld(OB_Ie(J,bi,bj),J,K,bi,bj)=OBEv(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
68 |
OBCS_APPLY_UV |
& *_maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
69 |
OBCS_APPLY_UV |
uFld(OB_Ie(J,bi,bj)+1,J,K,bi,bj)=OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
70 |
OBCS_APPLY_UV |
& *_maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
59 |
OBCS_APPLY_SLOC |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
231 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
373 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
386 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
76 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
332 |
COST_OBCSVOL |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
127 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
164 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
200 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
237 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
138 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
173 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
256 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
291 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
341 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
153 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 0, OB_Ie, nwetobcse, ymaskobcs, mythid ) |