| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_eta.F |
46 |
OBCS_APPLY_ETA |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
55 |
OBCS_APPLY_ETA |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
64 |
OBCS_APPLY_ETA |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
65 |
OBCS_APPLY_ETA |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
66 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
67 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBSeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
55 |
OBCS_APPLY_PTRACER |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_ptracer.F |
72 |
OBCS_APPLY_PTRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
73 |
OBCS_APPLY_PTRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBNptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
87 |
OBCS_APPLY_PTRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
88 |
OBCS_APPLY_PTRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
91 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBSptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_seaice.F |
134 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
135 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
136 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
140 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
141 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
145 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
146 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
147 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
151 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
152 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
153 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
158 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
159 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
160 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
173 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
174 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
175 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
179 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
180 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
184 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
185 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
186 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
190 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
191 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
192 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
197 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
198 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
199 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
48 |
OBCS_APPLY_SEAICE |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_seaice.F |
61 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
62 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
63 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBNh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
64 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBNa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
65 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBNsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
67 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc,bi,bj) = OBNsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
78 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
79 |
OBCS_APPLY_SEAICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
80 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBSh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
81 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBSa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
82 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBSsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
84 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc,bi,bj) = OBSsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
101 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
117 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
118 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
120 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
122 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
132 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
133 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
135 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
51 |
OBCS_APPLY_TS |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_ts.F |
83 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
84 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
88 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
98 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
99 |
OBCS_APPLY_TS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
102 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
148 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
149 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
151 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
152 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
153 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
154 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
165 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
166 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
168 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
169 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
170 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
171 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
52 |
OBCS_APPLY_UV |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
88 |
OBCS_APPLY_UV |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
90 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
91 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
138 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
139 |
OBCS_APPLY_UVICE |
vFld(i,Jobc,bi,bj) = OBNvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
140 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
142 |
OBCS_APPLY_UVICE |
& vFld(i,Jobc+1,bi,bj) = OBNvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
143 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
154 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
155 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
156 |
OBCS_APPLY_UVICE |
vFld(i,Jobc+1,bi,bj) = OBSvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
157 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
159 |
OBCS_APPLY_UVICE |
& vFld(i,Jobc,bi,bj) = OBSvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
55 |
OBCS_APPLY_UVICE |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_uvice.F |
81 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
82 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
83 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBNuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
95 |
OBCS_APPLY_UVICE |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBSuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
97 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_apply_w.F |
68 |
OBCS_APPLY_W |
Jobc = OB_Jn(i,bi,bj) |
|
./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 |
72 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
73 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
75 |
OBCS_APPLY_W |
ELSEIF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
76 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
77 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
87 |
OBCS_APPLY_W |
Jobc = OB_Js(i,bi,bj) |
|
./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 |
91 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
92 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
94 |
OBCS_APPLY_W |
ELSEIF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
95 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
96 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./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 |
1051 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1052 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
1054 |
OBCS_STEVENS_SAVE_TRACERS |
OBNtStevens(i,k,bi,bj) = theta(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1055 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1056 |
OBCS_STEVENS_SAVE_TRACERS |
OBNsStevens(i,k,bi,bj) = salt(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1057 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1067 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1068 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
1070 |
OBCS_STEVENS_SAVE_TRACERS |
OBStStevens(i,k,bi,bj) = theta(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1071 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1072 |
OBCS_STEVENS_SAVE_TRACERS |
OBSsStevens(i,k,bi,bj) = salt(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1073 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
53 |
OBCS_COPY_TRACER |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_copy_tracer.F |
60 |
OBCS_COPY_TRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
61 |
OBCS_COPY_TRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
63 |
OBCS_COPY_TRACER |
DO j = Jobc+1, Jobc+OLy |
|
./pkg/obcs/obcs_copy_tracer.F |
64 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
76 |
OBCS_COPY_TRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
77 |
OBCS_COPY_TRACER |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
79 |
OBCS_COPY_TRACER |
DO j = Jobc-OLy, Jobc-1 |
|
./pkg/obcs/obcs_copy_tracer.F |
80 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
51 |
OBCS_COPY_UV_N |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_copy_uv_n.F |
58 |
OBCS_COPY_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./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 |
61 |
OBCS_COPY_UV_N |
DO j = Jobc+1, Jobc+OLy |
|
./pkg/obcs/obcs_copy_uv_n.F |
62 |
OBCS_COPY_UV_N |
vFld(i,j,k) = vFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
74 |
OBCS_COPY_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./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 |
77 |
OBCS_COPY_UV_N |
DO j = Jobc-OLy, Jobc |
|
./pkg/obcs/obcs_copy_uv_n.F |
78 |
OBCS_COPY_UV_N |
vFld(i,j,k) = vFld(i,Jobc+1,k) |
|
./pkg/obcs/obcs_save_uv_n.F |
55 |
OBCS_SAVE_UV_N |
INTEGER Iobc, Jobc |
|
./pkg/obcs/obcs_save_uv_n.F |
70 |
OBCS_SAVE_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./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 |
73 |
OBCS_SAVE_UV_N |
OBNvStevens(i,k,bi,bj) = vFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
74 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
84 |
OBCS_SAVE_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
85 |
OBCS_SAVE_UV_N |
IF ( Jobc.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
87 |
OBCS_SAVE_UV_N |
OBSvStevens(i,k,bi,bj) = vFld(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
88 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc+1,k,bi,bj) |