| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_GRID.h |
38 |
NO PROCEDURE |
& OB_indexNone, OBCS_indexStatus |
|
./pkg/obcs/OBCS_GRID.h |
43 |
NO PROCEDURE |
INTEGER OB_indexNone |
|
./pkg/obcs/obcs_add_tides.F |
100 |
OBCS_ADD_TIDES |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
118 |
OBCS_ADD_TIDES |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
64 |
OBCS_ADD_TIDES |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
82 |
OBCS_ADD_TIDES |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
148 |
OBCS_ADJUST_UVICE |
IF (OB_Ie(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
193 |
OBCS_ADJUST_UVICE |
IF (OB_Iw(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
52 |
OBCS_ADJUST_UVICE |
IF (OB_Jn(I,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
97 |
OBCS_ADJUST_UVICE |
IF (OB_Js(I,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
55 |
OBCS_APPLY_ETA |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
65 |
OBCS_APPLY_ETA |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
77 |
OBCS_APPLY_ETA |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
87 |
OBCS_APPLY_ETA |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
104 |
OBCS_APPLY_PTRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
119 |
OBCS_APPLY_PTRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
73 |
OBCS_APPLY_PTRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
88 |
OBCS_APPLY_PTRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
104 |
OBCS_APPLY_R_STAR |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
121 |
OBCS_APPLY_R_STAR |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
85 |
OBCS_APPLY_R_STAR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
113 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
135 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
174 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
213 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
252 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
62 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
79 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
96 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
112 |
OBCS_APPLY_SURF_DR |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
131 |
OBCS_APPLY_SURF_DR |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
72 |
OBCS_APPLY_SURF_DR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
91 |
OBCS_APPLY_SURF_DR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
118 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
133 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
153 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
168 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
187 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
202 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
84 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
99 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
102 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
118 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
132 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
149 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
166 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
185 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
202 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
88 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
109 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
122 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
138 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
155 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
173 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
190 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
82 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
95 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
108 |
OBCS_APPLY_W |
IF ( Iobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
114 |
OBCS_APPLY_W |
ELSEIF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
127 |
OBCS_APPLY_W |
IF ( Iobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
133 |
OBCS_APPLY_W |
ELSEIF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
69 |
OBCS_APPLY_W |
IF ( Jobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
75 |
OBCS_APPLY_W |
ELSEIF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
88 |
OBCS_APPLY_W |
IF ( Jobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
94 |
OBCS_APPLY_W |
ELSEIF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
100 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone .AND. iB.GT.1 ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
149 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone .AND. iB.LT.sNx ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
198 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone .AND. jB.GT.1 ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
247 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone .AND. jB.LT.sNy ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
326 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
346 |
OBCS_BALANCE_FLOW |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
366 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
386 |
OBCS_BALANCE_FLOW |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
103 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
118 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
153 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
168 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
202 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
236 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
285 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
317 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
349 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
381 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
174 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
225 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
236 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
250 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
312 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
363 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
374 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
388 |
OBCS_CALC_STEVENS |
IF ( I.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
449 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
500 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
511 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
525 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
587 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
638 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
649 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
663 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
727 |
OBCS_CALC_STEVENS |
IF ( I.EQ.OB_indexNone ) I = 1 |
|
./pkg/obcs/obcs_calc_stevens.F |
731 |
OBCS_CALC_STEVENS |
IF ( I.EQ.OB_indexNone ) I = 1 |
|
./pkg/obcs/obcs_calc_stevens.F |
813 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
829 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
845 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
861 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check.F |
103 |
OBCS_CHECK |
CALL WRITE_0D_I( OB_indexNone, INDEX_NONE, 'OB_indexNone =', |
|
./pkg/obcs/obcs_check.F |
453 |
OBCS_CHECK |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check.F |
477 |
OBCS_CHECK |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check.F |
504 |
OBCS_CHECK |
IF ( j.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check.F |
528 |
OBCS_CHECK |
IF ( j.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
45 |
OBCS_CHECK_DEPTHS |
IF ( j.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
61 |
OBCS_CHECK_DEPTHS |
IF ( j.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
77 |
OBCS_CHECK_DEPTHS |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
94 |
OBCS_CHECK_DEPTHS |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
110 |
OBCS_COPY_TRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
61 |
OBCS_COPY_TRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
77 |
OBCS_COPY_TRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
94 |
OBCS_COPY_TRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
108 |
OBCS_COPY_UV_N |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
59 |
OBCS_COPY_UV_N |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
75 |
OBCS_COPY_UV_N |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
92 |
OBCS_COPY_UV_N |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
111 |
OBCS_DIAG_BALANCE |
IF ( iB.NE.OB_indexNone .AND. iB.GT.1 ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
156 |
OBCS_DIAG_BALANCE |
IF ( iB.NE.OB_indexNone .AND. iB.LT.sNx ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
202 |
OBCS_DIAG_BALANCE |
IF ( jB.NE.OB_indexNone .AND. jB.GT.1 ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
247 |
OBCS_DIAG_BALANCE |
IF ( jB.NE.OB_indexNone .AND. jB.LT.sNy ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
322 |
OBCS_DIAG_BALANCE |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
341 |
OBCS_DIAG_BALANCE |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
360 |
OBCS_DIAG_BALANCE |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
379 |
OBCS_DIAG_BALANCE |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
104 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
183 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
206 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
229 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
252 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
294 |
OBCS_INIT_FIXED |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
301 |
OBCS_INIT_FIXED |
IF ( OB_Ie(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
313 |
OBCS_INIT_FIXED |
IF ( iB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
320 |
OBCS_INIT_FIXED |
IF ( OB_Iw(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
332 |
OBCS_INIT_FIXED |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
339 |
OBCS_INIT_FIXED |
IF ( OB_Jn(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
351 |
OBCS_INIT_FIXED |
IF ( jB.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
358 |
OBCS_INIT_FIXED |
IF ( OB_Js(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
390 |
OBCS_INIT_FIXED |
& ( OB_Ie(j,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
392 |
OBCS_INIT_FIXED |
& ( OB_Iw(j,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
396 |
OBCS_INIT_FIXED |
& ( OB_Jn(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
398 |
OBCS_INIT_FIXED |
& ( OB_Js(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
75 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
84 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
95 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_monitor.F |
109 |
OBCS_MONITOR |
I OB_Ie, OB_Iw, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
115 |
OBCS_MONITOR |
I OB_Jn, OB_Js, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
131 |
OBCS_MONITOR |
I OB_Ie, OB_Iw, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
137 |
OBCS_MONITOR |
I OB_Jn, OB_Js, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
153 |
OBCS_MONITOR |
I OB_Ie, OB_Iw, OB_indexNone, |
|
./pkg/obcs/obcs_monitor.F |
159 |
OBCS_MONITOR |
I OB_Jn, OB_Js, OB_indexNone, |
|
./pkg/obcs/obcs_readparms.F |
206 |
OBCS_READPARMS |
OB_indexNone = -99 |
|
./pkg/obcs/obcs_readparms.F |
467 |
OBCS_READPARMS |
OB_Jn(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
468 |
OBCS_READPARMS |
OB_Js(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
472 |
OBCS_READPARMS |
OB_Ie(j,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
473 |
OBCS_READPARMS |
OB_Iw(J,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_save_uv_n.F |
100 |
OBCS_SAVE_UV_N |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
114 |
OBCS_SAVE_UV_N |
IF ( Iobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
71 |
OBCS_SAVE_UV_N |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
85 |
OBCS_SAVE_UV_N |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
111 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
138 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
214 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
241 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
268 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
295 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
371 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
398 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
425 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
452 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
528 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
555 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
57 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
582 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
609 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
84 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
131 |
OBCS_SPONGE_U |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
165 |
OBCS_SPONGE_U |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
253 |
OBCS_SPONGE_V |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
287 |
OBCS_SPONGE_V |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
321 |
OBCS_SPONGE_V |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
355 |
OBCS_SPONGE_V |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
467 |
OBCS_SPONGE_T |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
507 |
OBCS_SPONGE_T |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
548 |
OBCS_SPONGE_T |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
589 |
OBCS_SPONGE_T |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
63 |
OBCS_SPONGE_U |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
704 |
OBCS_SPONGE_S |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
786 |
OBCS_SPONGE_S |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
827 |
OBCS_SPONGE_S |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
97 |
OBCS_SPONGE_U |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/orlanski_east.F |
109 |
ORLANSKI_EAST |
IF ( I_obc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/orlanski_north.F |
100 |
ORLANSKI_NORTH |
IF ( J_obc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/orlanski_south.F |
100 |
ORLANSKI_SOUTH |
IF ( J_obc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/orlanski_west.F |
111 |
ORLANSKI_WEST |
IF ( I_obc.NE.OB_indexNone ) THEN |
|
./pkg/seaice/seaice_init_varia.F |
400 |
SEAICE_INIT_VARIA |
IF ( J_obc.NE.OB_indexNone ) THEN |
|
./pkg/seaice/seaice_init_varia.F |
408 |
SEAICE_INIT_VARIA |
IF ( I_obc.NE.OB_indexNone ) THEN |
|
./pkg/ctrl/ctrl_getobcse.F |
133 |
CTRL_GETOBCSE |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcse.F |
202 |
CTRL_GETOBCSE |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcse.F |
254 |
CTRL_GETOBCSE |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcsn.F |
138 |
CTRL_GETOBCSN |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ctrl/ctrl_getobcsn.F |
260 |
CTRL_GETOBCSN |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ctrl/ctrl_getobcss.F |
134 |
CTRL_GETOBCSS |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ctrl/ctrl_getobcss.F |
203 |
CTRL_GETOBCSS |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ctrl/ctrl_getobcss.F |
255 |
CTRL_GETOBCSS |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
133 |
CTRL_GETOBCSW |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
202 |
CTRL_GETOBCSW |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
254 |
CTRL_GETOBCSW |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
149 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 0, OB_indexNone, OB_Jn, |
|
./pkg/ctrl/ctrl_init_wet.F |
157 |
CTRL_INIT_WET |
call CTRL_MASK_SET_XZ( 1, OB_indexNone, OB_Js, |
|
./pkg/ctrl/ctrl_init_wet.F |
165 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 1, OB_indexNone, OB_Iw, |
|
./pkg/ctrl/ctrl_init_wet.F |
173 |
CTRL_INIT_WET |
call CTRL_MASK_SET_YZ( 0, OB_indexNone, OB_Ie, |
|
./pkg/ecco/cost_obcs_ageos.F |
219 |
COST_OBCS_AGEOS |
if ( j.eq.OB_indexNone ) then |
|
./pkg/ecco/cost_obcs_ageos.F |
247 |
COST_OBCS_AGEOS |
if ( j.eq.OB_indexNone ) j = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
260 |
COST_OBCS_AGEOS |
if ( j.eq.OB_indexNone ) j = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
287 |
COST_OBCS_AGEOS |
if ( j.eq.OB_indexNone ) then |
|
./pkg/ecco/cost_obcs_ageos.F |
317 |
COST_OBCS_AGEOS |
if ( j.eq.OB_indexNone ) j = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
328 |
COST_OBCS_AGEOS |
if ( j.eq.OB_indexNone ) j = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
357 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) then |
|
./pkg/ecco/cost_obcs_ageos.F |
384 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
396 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) then |
|
./pkg/ecco/cost_obcs_ageos.F |
451 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
463 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcsvol.F |
207 |
COST_OBCSVOL |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ecco/cost_obcsvol.F |
249 |
COST_OBCSVOL |
IF ( j.EQ.OB_indexNone ) j = 1 |
|
./pkg/ecco/cost_obcsvol.F |
292 |
COST_OBCSVOL |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcsvol.F |
335 |
COST_OBCSVOL |
IF ( i.EQ.OB_indexNone ) i = 1 |