| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_ptracer.F |
111 |
OBCS_APPLY_PTRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
112 |
OBCS_APPLY_PTRACER |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
115 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
116 |
OBCS_APPLY_PTRACER |
DO I = Iobc, Iobc+Olx |
|
./pkg/obcs/obcs_apply_ptracer.F |
129 |
OBCS_APPLY_PTRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
130 |
OBCS_APPLY_PTRACER |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
133 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
134 |
OBCS_APPLY_PTRACER |
DO i = Iobc-Olx, Iobc |
|
./pkg/obcs/obcs_apply_ptracer.F |
56 |
OBCS_APPLY_PTRACER |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_seaice.F |
113 |
OBCS_APPLY_SEAICE |
Iobc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
114 |
OBCS_APPLY_SEAICE |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
115 |
OBCS_APPLY_SEAICE |
DO i = Iobc-Olx, Iobc |
|
./pkg/obcs/obcs_apply_seaice.F |
215 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
216 |
OBCS_APPLY_SEAICE |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
217 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
220 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
221 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
222 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
226 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
227 |
OBCS_APPLY_SEAICE |
AREA(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
228 |
OBCS_APPLY_SEAICE |
AREA(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
232 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
233 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
234 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
239 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
240 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
241 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
254 |
OBCS_APPLY_SEAICE |
Iobc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
255 |
OBCS_APPLY_SEAICE |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
256 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
259 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
260 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
261 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
265 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
266 |
OBCS_APPLY_SEAICE |
AREA(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
267 |
OBCS_APPLY_SEAICE |
AREA(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
271 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
272 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
273 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
278 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
279 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
280 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
43 |
OBCS_APPLY_SEAICE |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_seaice.F |
94 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
95 |
OBCS_APPLY_SEAICE |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
96 |
OBCS_APPLY_SEAICE |
DO i = Iobc, Iobc+Olx |
|
./pkg/obcs/obcs_apply_ts.F |
118 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
119 |
OBCS_APPLY_TS |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
122 |
OBCS_APPLY_TS |
DO i = Iobc, Iobc+Olx |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
137 |
OBCS_APPLY_TS |
IF (Iobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
139 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
140 |
OBCS_APPLY_TS |
DO i = Iobc-Olx, Iobc |
|
./pkg/obcs/obcs_apply_ts.F |
51 |
OBCS_APPLY_TS |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_uv.F |
117 |
OBCS_APPLY_UV |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
118 |
OBCS_APPLY_UV |
IF ( Iobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
120 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
122 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
123 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
124 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
125 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
135 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
136 |
OBCS_APPLY_UV |
IF ( Iobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
138 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
139 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
140 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
141 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
142 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
143 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
50 |
OBCS_APPLY_UV |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_copy_tracer.F |
110 |
OBCS_COPY_TRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
111 |
OBCS_COPY_TRACER |
IF ( Iobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
113 |
OBCS_COPY_TRACER |
DO i = Iobc-Olx, Iobc-1 |
|
./pkg/obcs/obcs_copy_tracer.F |
114 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
54 |
OBCS_COPY_TRACER |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_copy_tracer.F |
94 |
OBCS_COPY_TRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
95 |
OBCS_COPY_TRACER |
IF ( Iobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
97 |
OBCS_COPY_TRACER |
DO i = Iobc+1, Iobc+Olx |
|
./pkg/obcs/obcs_copy_tracer.F |
98 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |