File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_apply_eta.F |
46 |
OBCS_APPLY_ETA |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_apply_eta.F |
76 |
OBCS_APPLY_ETA |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_eta.F |
77 |
OBCS_APPLY_ETA |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc,j,bi,bj).LE.Nr ) |
./pkg/obcs/obcs_apply_eta.F |
79 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj) |
./pkg/obcs/obcs_apply_eta.F |
86 |
OBCS_APPLY_ETA |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_eta.F |
87 |
OBCS_APPLY_ETA |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_eta.F |
88 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr ) |
./pkg/obcs/obcs_apply_eta.F |
89 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj) |
./pkg/obcs/obcs_apply_ptracer.F |
103 |
OBCS_APPLY_PTRACER |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_ptracer.F |
104 |
OBCS_APPLY_PTRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_ptracer.F |
107 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer) |
./pkg/obcs/obcs_apply_ptracer.F |
118 |
OBCS_APPLY_PTRACER |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_ptracer.F |
119 |
OBCS_APPLY_PTRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_ptracer.F |
122 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer) |
./pkg/obcs/obcs_apply_ptracer.F |
55 |
OBCS_APPLY_PTRACER |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_apply_seaice.F |
101 |
OBCS_APPLY_SEAICE |
HSALT(Iobc,j,bi,bj) = OBEsl(j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
112 |
OBCS_APPLY_SEAICE |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
113 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
114 |
OBCS_APPLY_SEAICE |
HEFF (Iobc,j,bi,bj) = OBWh (j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
115 |
OBCS_APPLY_SEAICE |
AREA (Iobc,j,bi,bj) = OBWa (j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
116 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc,j,bi,bj) = OBWsn(j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
118 |
OBCS_APPLY_SEAICE |
HSALT(Iobc,j,bi,bj) = OBWsl(j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
212 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
213 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
214 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
217 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
218 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
219 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
223 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
224 |
OBCS_APPLY_SEAICE |
AREA(Iobc-1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
225 |
OBCS_APPLY_SEAICE |
AREA(Iobc-2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
229 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
230 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
231 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
236 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
237 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
238 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
251 |
OBCS_APPLY_SEAICE |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
252 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
253 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
256 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
257 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
258 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
262 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
263 |
OBCS_APPLY_SEAICE |
AREA(Iobc+1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
264 |
OBCS_APPLY_SEAICE |
AREA(Iobc+2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
268 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
269 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
270 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
275 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj)) |
./pkg/obcs/obcs_apply_seaice.F |
276 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+1,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
277 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+2,j,bi,bj) = edge_val |
./pkg/obcs/obcs_apply_seaice.F |
48 |
OBCS_APPLY_SEAICE |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_apply_seaice.F |
95 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
96 |
OBCS_APPLY_SEAICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
97 |
OBCS_APPLY_SEAICE |
HEFF (Iobc,j,bi,bj) = OBEh (j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
98 |
OBCS_APPLY_SEAICE |
AREA (Iobc,j,bi,bj) = OBEa (j,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
99 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc,j,bi,bj) = OBEsn(j,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
152 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
153 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_ts.F |
155 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
157 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
167 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
168 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_ts.F |
170 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = OBEt(j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
171 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
186 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
187 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_ts.F |
189 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
191 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
201 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
202 |
OBCS_APPLY_TS |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_ts.F |
204 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = OBWt(j,k,bi,bj) |
./pkg/obcs/obcs_apply_ts.F |
205 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj) |
./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.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uv.F |
120 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
131 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
132 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uv.F |
134 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
135 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
184 |
OBCS_APPLY_UV |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
185 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uv.F |
187 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
188 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
189 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
190 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
201 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
202 |
OBCS_APPLY_UV |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uv.F |
204 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
205 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
206 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
207 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
52 |
OBCS_APPLY_UV |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
109 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uvice.F |
110 |
OBCS_APPLY_UVICE |
vFld(Iobc,j,bi,bj) = OBEvice(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
111 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(Iobc,j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
121 |
OBCS_APPLY_UVICE |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
122 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uvice.F |
123 |
OBCS_APPLY_UVICE |
vFld(Iobc,j,bi,bj) = OBWvice(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
124 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(Iobc,j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
172 |
OBCS_APPLY_UVICE |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
173 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uvice.F |
174 |
OBCS_APPLY_UVICE |
uFld(Iobc,j,bi,bj) = OBEuice(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
175 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc,j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
177 |
OBCS_APPLY_UVICE |
& uFld(Iobc+1,j,bi,bj) = OBEuice(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
178 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc,j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
189 |
OBCS_APPLY_UVICE |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
190 |
OBCS_APPLY_UVICE |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_uvice.F |
191 |
OBCS_APPLY_UVICE |
uFld(Iobc+1,j,bi,bj) = OBWuice(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
192 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc+1,j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
194 |
OBCS_APPLY_UVICE |
& uFld(Iobc,j,bi,bj) = OBWuice(j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
195 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc+1,j,bi,bj) |
./pkg/obcs/obcs_apply_uvice.F |
55 |
OBCS_APPLY_UVICE |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_apply_w.F |
107 |
OBCS_APPLY_W |
Iobc = OB_Ie(j,bi,bj) |
./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 |
111 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_w.F |
112 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask |
./pkg/obcs/obcs_apply_w.F |
114 |
OBCS_APPLY_W |
ELSEIF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_w.F |
115 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_w.F |
116 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask |
./pkg/obcs/obcs_apply_w.F |
126 |
OBCS_APPLY_W |
Iobc = OB_Iw(j,bi,bj) |
./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 |
130 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_w.F |
131 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask |
./pkg/obcs/obcs_apply_w.F |
133 |
OBCS_APPLY_W |
ELSEIF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_apply_w.F |
134 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_w.F |
135 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask |
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_calc_stevens.F |
1042 |
OBCS_STEVENS_SAVE_TRACERS |
INTEGER bi,bj,i,j,k,Iobc,Jobc |
./pkg/obcs/obcs_calc_stevens.F |
1083 |
OBCS_STEVENS_SAVE_TRACERS |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1084 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_calc_stevens.F |
1086 |
OBCS_STEVENS_SAVE_TRACERS |
OBEtStevens(j,k,bi,bj) = theta(Iobc-1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1087 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc-1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1088 |
OBCS_STEVENS_SAVE_TRACERS |
OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1089 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc-1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1099 |
OBCS_STEVENS_SAVE_TRACERS |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1100 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_calc_stevens.F |
1102 |
OBCS_STEVENS_SAVE_TRACERS |
OBWtStevens(j,k,bi,bj) = theta(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1103 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1104 |
OBCS_STEVENS_SAVE_TRACERS |
OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
1105 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_copy_tracer.F |
109 |
OBCS_COPY_TRACER |
Iobc = OB_Iw(j,bi,bj) |
./pkg/obcs/obcs_copy_tracer.F |
110 |
OBCS_COPY_TRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_copy_tracer.F |
112 |
OBCS_COPY_TRACER |
DO i = Iobc-OLx, Iobc-1 |
./pkg/obcs/obcs_copy_tracer.F |
113 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
./pkg/obcs/obcs_copy_tracer.F |
53 |
OBCS_COPY_TRACER |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_copy_tracer.F |
93 |
OBCS_COPY_TRACER |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_copy_tracer.F |
94 |
OBCS_COPY_TRACER |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_copy_tracer.F |
96 |
OBCS_COPY_TRACER |
DO i = Iobc+1, Iobc+OLx |
./pkg/obcs/obcs_copy_tracer.F |
97 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
./pkg/obcs/obcs_copy_uv_n.F |
107 |
OBCS_COPY_UV_N |
Iobc = OB_Iw(j,bi,bj) |
./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 |
110 |
OBCS_COPY_UV_N |
DO i = Iobc-OLx, Iobc |
./pkg/obcs/obcs_copy_uv_n.F |
111 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc+1,j,k) |
./pkg/obcs/obcs_copy_uv_n.F |
51 |
OBCS_COPY_UV_N |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_copy_uv_n.F |
91 |
OBCS_COPY_UV_N |
Iobc = OB_Ie(j,bi,bj) |
./pkg/obcs/obcs_copy_uv_n.F |
92 |
OBCS_COPY_UV_N |
IF ( Iobc.NE.OB_indexNone ) THEN |
./pkg/obcs/obcs_copy_uv_n.F |
94 |
OBCS_COPY_UV_N |
DO i = Iobc+1, Iobc+OLx |
./pkg/obcs/obcs_copy_uv_n.F |
95 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc,j,k) |
./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 |
102 |
OBCS_SAVE_UV_N |
OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_save_uv_n.F |
103 |
OBCS_SAVE_UV_N |
& *_maskW(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_save_uv_n.F |
113 |
OBCS_SAVE_UV_N |
Iobc = OB_Iw(j,bi,bj) |
./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 |
116 |
OBCS_SAVE_UV_N |
OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_save_uv_n.F |
117 |
OBCS_SAVE_UV_N |
& *_maskW(Iobc+1,j,k,bi,bj) |
./pkg/obcs/obcs_save_uv_n.F |
55 |
OBCS_SAVE_UV_N |
INTEGER Iobc, Jobc |
./pkg/obcs/obcs_save_uv_n.F |
99 |
OBCS_SAVE_UV_N |
Iobc = OB_Ie(j,bi,bj) |