| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_ptracer.F |
56 |
OBCS_APPLY_PTRACER |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_ptracer.F |
74 |
OBCS_APPLY_PTRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
75 |
OBCS_APPLY_PTRACER |
IF (Jobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
78 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
79 |
OBCS_APPLY_PTRACER |
DO j = Jobc, Jobc+Oly |
|
./pkg/obcs/obcs_apply_ptracer.F |
92 |
OBCS_APPLY_PTRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
93 |
OBCS_APPLY_PTRACER |
IF (Jobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
96 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
97 |
OBCS_APPLY_PTRACER |
DO j = Jobc-Oly, Jobc |
|
./pkg/obcs/obcs_apply_seaice.F |
137 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
138 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
142 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
143 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
144 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
148 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
149 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
150 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
154 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
155 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
156 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
161 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
162 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
163 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
176 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
177 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
181 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
182 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
183 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
187 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
188 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
189 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
193 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
194 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
195 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
200 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
201 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
202 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
43 |
OBCS_APPLY_SEAICE |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_seaice.F |
56 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
57 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
58 |
OBCS_APPLY_SEAICE |
DO j = Jobc, Jobc+Oly |
|
./pkg/obcs/obcs_apply_seaice.F |
75 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
76 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
77 |
OBCS_APPLY_SEAICE |
DO j = Jobc-Oly, Jobc |
|
./pkg/obcs/obcs_apply_ts.F |
100 |
OBCS_APPLY_TS |
IF (Jobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
103 |
OBCS_APPLY_TS |
DO j = Jobc-Oly, Jobc |
|
./pkg/obcs/obcs_apply_ts.F |
51 |
OBCS_APPLY_TS |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_ts.F |
81 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
82 |
OBCS_APPLY_TS |
IF (Jobc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
84 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
85 |
OBCS_APPLY_TS |
DO j = Jobc, Jobc+Oly |
|
./pkg/obcs/obcs_apply_ts.F |
99 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
100 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
102 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
103 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
50 |
OBCS_APPLY_UV |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_uv.F |
79 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
80 |
OBCS_APPLY_UV |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
82 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
83 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
84 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
85 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
86 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
97 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
98 |
OBCS_APPLY_UV |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
54 |
OBCS_COPY_TRACER |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_copy_tracer.F |
61 |
OBCS_COPY_TRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
62 |
OBCS_COPY_TRACER |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
64 |
OBCS_COPY_TRACER |
DO j = Jobc+1, Jobc+Oly |
|
./pkg/obcs/obcs_copy_tracer.F |
65 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
77 |
OBCS_COPY_TRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
78 |
OBCS_COPY_TRACER |
IF ( Jobc.NE.0 ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
80 |
OBCS_COPY_TRACER |
DO j = Jobc-Oly, Jobc-1 |
|
./pkg/obcs/obcs_copy_tracer.F |
81 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |