| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
112 |
INI_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/ini_cg2d.F |
113 |
INI_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
159 |
INI_CG3D |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
160 |
INI_CG3D |
aS3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
161 |
INI_CG3D |
aS3d(I,OB_Jn(I,bi,bj)+1,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
162 |
INI_CG3D |
aW3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
163 |
INI_CG3D |
aW3d(I+1,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
164 |
INI_CG3D |
aV3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/update_cg2d.F |
96 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
97 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
244 |
SOLVE_FOR_PRESSURE |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
245 |
SOLVE_FOR_PRESSURE |
cg2d_b(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
246 |
SOLVE_FOR_PRESSURE |
cg2d_x(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
360 |
SOLVE_FOR_PRESSURE |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
361 |
SOLVE_FOR_PRESSURE |
vf(I,OB_Jn(I,bi,bj))=0. |
|
./model/src/solve_for_pressure.F |
438 |
SOLVE_FOR_PRESSURE |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
439 |
SOLVE_FOR_PRESSURE |
cg3d_b(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./pkg/obcs/obcs_apply_ptracer.F |
49 |
OBCS_APPLY_PTRACER |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/OBCS.h |
68 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
69 |
NO PROCEDURE |
INTEGER OB_Jn(1-Olx:sNx+Olx,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
97 |
ORLANSKI_NORTH |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
33 |
OBCS_APPLY_ETA |
j_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
j_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
36 |
OBCS_APPLY_W |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
57 |
OBCS_APPLY_W |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
43 |
OBCS_APPLY_R_STAR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
92 |
OBCS_CHECK |
write(*,*) 'bi,bj:',bi,bj,' OB_Jn=',(OB_Jn(i,bi,bj),i=1,sNx) |
|
./pkg/obcs/obcs_sponge.F |
255 |
OBCS_SPONGE_V |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
257 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
474 |
OBCS_SPONGE_T |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
476 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
61 |
OBCS_SPONGE_U |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
63 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
716 |
OBCS_SPONGE_S |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
718 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_apply_tloc.F |
35 |
OBCS_APPLY_TLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
45 |
OBCS_APPLY_SURF_DR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
43 |
OBCS_INIT_FIXED |
OB_Jn(I,bi,bj)=0 |
|
./pkg/obcs/obcs_init_fixed.F |
75 |
OBCS_INIT_FIXED |
IF (jG.EQ.OB_Jnorth(iGm)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_init_fixed.F |
87 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
36 |
OBCS_APPLY_TS |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
35 |
OBCS_APPLY_UV |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
36 |
OBCS_APPLY_UV |
vFld(I,OB_Jn(I,bi,bj),K,bi,bj)=OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
37 |
OBCS_APPLY_UV |
& *_maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
38 |
OBCS_APPLY_UV |
uFld(I,OB_Jn(I,bi,bj),K,bi,bj)=OBNu(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
39 |
OBCS_APPLY_UV |
& *_maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
40 |
OBCS_APPLY_UV |
vFld(I,OB_Jn(I,bi,bj)+1,K,bi,bj)=OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
41 |
OBCS_APPLY_UV |
& *_maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
35 |
OBCS_APPLY_SLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
146 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
299 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
427 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
440 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
127 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
164 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
200 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
237 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
204 |
COST_OBCSVOL |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
147 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
191 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
277 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
321 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
369 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
132 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 0, OB_Jn, nwetobcsn, ymaskobcs, mythid ) |