| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_loc.F |
218 |
GRDCHK_LOC |
jtmp = OB_Jn(I,bi,bj) |
|
./pkg/obcs/OBCS.h |
108 |
NO PROCEDURE |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
|
./pkg/obcs/OBCS.h |
109 |
NO PROCEDURE |
INTEGER OB_Jn(1-Olx:sNx+Olx,nSx,nSy) |
|
./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_ptracer.F |
49 |
OBCS_APPLY_PTRACER |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
41 |
OBCS_APPLY_R_STAR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
40 |
OBCS_APPLY_SEAICE |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
35 |
OBCS_APPLY_SLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
42 |
OBCS_APPLY_SURF_DR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
35 |
OBCS_APPLY_TLOC |
J_obc = 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_uvice.F |
40 |
OBCS_APPLY_UVICE |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
42 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
43 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
44 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
47 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
48 |
OBCS_APPLY_UVICE |
& max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
49 |
OBCS_APPLY_UVICE |
& * _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
51 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj)=OBNvice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
52 |
OBCS_APPLY_UVICE |
& *_maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
54 |
OBCS_APPLY_UVICE |
uFld(I,OB_Jn(I,bi,bj),bi,bj)=OBNuice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
55 |
OBCS_APPLY_UVICE |
& *_maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
57 |
OBCS_APPLY_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
58 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
59 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
60 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
61 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
62 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
65 |
OBCS_APPLY_UVICE |
if ( _maskW(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
66 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
67 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
68 |
OBCS_APPLY_UVICE |
& ( uFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
69 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
70 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
86 |
OBCS_APPLY_W |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
155 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
303 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
457 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
475 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_check.F |
155 |
OBCS_CHECK |
write(*,*) 'bi,bj:',bi,bj,' OB_Jn=',(OB_Jn(i,bi,bj),i=1,sNx) |
|
./pkg/obcs/obcs_check_depths.F |
44 |
OBCS_CHECK_DEPTHS |
J=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
64 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
65 |
OBCS_INIT_FIXED |
DO j=OB_Jn(i,bi,bj),sNy+OLy |
|
./pkg/obcs/obcs_init_fixed.F |
91 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
92 |
OBCS_INIT_FIXED |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
240 |
OBCS_READPARMS |
OB_Jn(I,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
272 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iGm)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_sponge.F |
242 |
OBCS_SPONGE_V |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
244 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
450 |
OBCS_SPONGE_T |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
452 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
58 |
OBCS_SPONGE_U |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
60 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
681 |
OBCS_SPONGE_S |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
683 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/orlanski_north.F |
97 |
ORLANSKI_NORTH |
J_obc=OB_Jn(I,bi,bj) |
|
./model/src/ini_cg2d.F |
118 |
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 |
119 |
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 |
164 |
INI_CG3D |
IF (OB_Jn(i,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
165 |
INI_CG3D |
aS3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
166 |
INI_CG3D |
aS3d( i,OB_Jn(i,bi,bj)+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
167 |
INI_CG3D |
aW3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
168 |
INI_CG3D |
aW3d(i+1,OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
169 |
INI_CG3D |
aV3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
182 |
PRE_CG3D |
IF (OB_Jn(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
183 |
PRE_CG3D |
& vf(i,OB_Jn(i,bi,bj)) = 0. |
|
./model/src/pre_cg3d.F |
245 |
PRE_CG3D |
IF (OB_Jn(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
246 |
PRE_CG3D |
& cg3d_b(i,OB_Jn(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
235 |
SOLVE_FOR_PRESSURE |
IF (OB_Jn(i,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
236 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,OB_Jn(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
237 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,OB_Jn(i,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
100 |
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 |
101 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./pkg/ctrl/ctrl_getobcsn.F |
149 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
193 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
323 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
371 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
135 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 0, OB_Jn, nwetobcsn, ymaskobcs, mythid ) |
|
./pkg/ecco/cost_obcsn.F |
129 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
166 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
202 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
239 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
206 |
COST_OBCSVOL |
j = OB_Jn(I,bi,bj) |