| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
114 |
INI_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
115 |
INI_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/ini_cg3d.F |
166 |
INI_CG3D |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
167 |
INI_CG3D |
aS3d(I,OB_Js(I,bi,bj)+1,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
168 |
INI_CG3D |
aS3d(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
169 |
INI_CG3D |
aW3d(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
170 |
INI_CG3D |
aW3d(I+1,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
171 |
INI_CG3D |
aV3d(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/update_cg2d.F |
98 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
99 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
249 |
SOLVE_FOR_PRESSURE |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
250 |
SOLVE_FOR_PRESSURE |
cg2d_b(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
251 |
SOLVE_FOR_PRESSURE |
cg2d_x(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
364 |
SOLVE_FOR_PRESSURE |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
365 |
SOLVE_FOR_PRESSURE |
vf(I,OB_Js(I,bi,bj)+1)=0. |
|
./model/src/solve_for_pressure.F |
442 |
SOLVE_FOR_PRESSURE |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
443 |
SOLVE_FOR_PRESSURE |
cg3d_b(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./pkg/obcs/obcs_apply_ptracer.F |
60 |
OBCS_APPLY_PTRACER |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/OBCS.h |
68 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
70 |
NO PROCEDURE |
INTEGER OB_Js(1-Olx:sNx+Olx,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
36 |
OBCS_APPLY_ETA |
j_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
60 |
OBCS_APPLY_ETA |
j_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
97 |
ORLANSKI_SOUTH |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
39 |
OBCS_APPLY_W |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
67 |
OBCS_APPLY_W |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
53 |
OBCS_APPLY_R_STAR |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
93 |
OBCS_CHECK |
write(*,*) 'bi,bj:',bi,bj,' OB_Js=',(OB_Js(i,bi,bj),i=1,sNx) |
|
./pkg/obcs/obcs_sponge.F |
289 |
OBCS_SPONGE_V |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
291 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
514 |
OBCS_SPONGE_T |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
516 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
757 |
OBCS_SPONGE_S |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
759 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
95 |
OBCS_SPONGE_U |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
97 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_apply_tloc.F |
45 |
OBCS_APPLY_TLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
54 |
OBCS_APPLY_SURF_DR |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
44 |
OBCS_INIT_FIXED |
OB_Js(I,bi,bj)=0 |
|
./pkg/obcs/obcs_init_fixed.F |
76 |
OBCS_INIT_FIXED |
IF (jG.EQ.OB_Jsouth(iGm)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_init_fixed.F |
93 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
94 |
OBCS_INIT_FIXED |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_ts.F |
49 |
OBCS_APPLY_TS |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
48 |
OBCS_APPLY_UV |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
49 |
OBCS_APPLY_UV |
vFld(I,OB_Js(I,bi,bj)+1,K,bi,bj)=OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
50 |
OBCS_APPLY_UV |
& *_maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
51 |
OBCS_APPLY_UV |
uFld(I,OB_Js(I,bi,bj),K,bi,bj)=OBSu(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
52 |
OBCS_APPLY_UV |
& *_maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
53 |
OBCS_APPLY_UV |
vFld(I,OB_Js(I,bi,bj),K,bi,bj)=OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
54 |
OBCS_APPLY_UV |
& *_maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
45 |
OBCS_APPLY_SLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
181 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
333 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
454 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
467 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
246 |
COST_OBCSVOL |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
127 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
164 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
200 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
237 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
139 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
175 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
258 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
294 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
344 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
139 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 1, OB_Js, nwetobcss, ymaskobcs, mythid ) |