| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_loc.F |
226 |
GRDCHK_LOC |
jtmp = OB_Js(I,bi,bj) |
|
./pkg/obcs/OBCS.h |
108 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
110 |
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/obcs_apply_ptracer.F |
60 |
OBCS_APPLY_PTRACER |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
51 |
OBCS_APPLY_R_STAR |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
91 |
OBCS_APPLY_SEAICE |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
45 |
OBCS_APPLY_SLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
51 |
OBCS_APPLY_SURF_DR |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
45 |
OBCS_APPLY_TLOC |
J_obc = OB_Js(I,bi,bj) |
|
./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_uvice.F |
100 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
101 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
102 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
103 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
106 |
OBCS_APPLY_UVICE |
if ( _maskW(I,OB_Js(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
107 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
109 |
OBCS_APPLY_UVICE |
& ( uFld(I,OB_Js(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
110 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
111 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
81 |
OBCS_APPLY_UVICE |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
83 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
85 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
88 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
89 |
OBCS_APPLY_UVICE |
& min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
90 |
OBCS_APPLY_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
92 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
93 |
OBCS_APPLY_UVICE |
& *_maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
95 |
OBCS_APPLY_UVICE |
uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
& *_maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
98 |
OBCS_APPLY_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
99 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
89 |
OBCS_APPLY_W |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
191 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
335 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
494 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
512 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_check.F |
156 |
OBCS_CHECK |
write(*,*) 'bi,bj:',bi,bj,' OB_Js=',(OB_Js(i,bi,bj),i=1,sNx) |
|
./pkg/obcs/obcs_check_depths.F |
59 |
OBCS_CHECK_DEPTHS |
J=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
73 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
74 |
OBCS_INIT_FIXED |
DO j=1-OLy,OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
79 |
OBCS_INIT_FIXED |
DO j=1-OLy,OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_init_fixed.F |
97 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
98 |
OBCS_INIT_FIXED |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_readparms.F |
241 |
OBCS_READPARMS |
OB_Js(I,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
273 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iGm)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_sponge.F |
276 |
OBCS_SPONGE_V |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
278 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
490 |
OBCS_SPONGE_T |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
492 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
722 |
OBCS_SPONGE_S |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
724 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
92 |
OBCS_SPONGE_U |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
94 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/orlanski_south.F |
97 |
ORLANSKI_SOUTH |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
199 |
SEAICE_INIT_VARIA |
J_obc = OB_Js(i,bi,bj) |
|
./model/src/ini_cg2d.F |
120 |
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 |
121 |
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 |
171 |
INI_CG3D |
IF (OB_Js(i,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
172 |
INI_CG3D |
aS3d( i,OB_Js(i,bi,bj)+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
173 |
INI_CG3D |
aS3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
174 |
INI_CG3D |
aW3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
175 |
INI_CG3D |
aW3d(i+1,OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
176 |
INI_CG3D |
aV3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
185 |
PRE_CG3D |
IF (OB_Js(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
186 |
PRE_CG3D |
& vf(i,OB_Js(i,bi,bj)+1) = 0. |
|
./model/src/pre_cg3d.F |
248 |
PRE_CG3D |
IF (OB_Js(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
249 |
PRE_CG3D |
& cg3d_b(i,OB_Js(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
240 |
SOLVE_FOR_PRESSURE |
IF (OB_Js(i,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
241 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,OB_Js(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
242 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,OB_Js(i,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
102 |
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 |
103 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./pkg/ctrl/ctrl_getobcss.F |
141 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
177 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
296 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
346 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
142 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 1, OB_Js, nwetobcss, ymaskobcs, mythid ) |
|
./pkg/ecco/cost_obcss.F |
129 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
166 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
202 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
239 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
248 |
COST_OBCSVOL |
j = OB_Js(I,bi,bj) |