| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/adstreamice_cg_solve.F |
162 |
ADSTREAMICE_CG_SOLVE |
DO colx=-1,1 |
|
./pkg/streamice/adstreamice_cg_solve.F |
166 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
167 |
ADSTREAMICE_CG_SOLVE |
adA_uu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
168 |
ADSTREAMICE_CG_SOLVE |
& adA_uu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
170 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
173 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
174 |
ADSTREAMICE_CG_SOLVE |
adA_uv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
175 |
ADSTREAMICE_CG_SOLVE |
& adA_uv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
177 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
182 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
183 |
ADSTREAMICE_CG_SOLVE |
adA_vu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
184 |
ADSTREAMICE_CG_SOLVE |
& adA_vu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
186 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
188 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
189 |
ADSTREAMICE_CG_SOLVE |
adA_vv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
190 |
ADSTREAMICE_CG_SOLVE |
& adA_vv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
192 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
212 |
ADSTREAMICE_CG_SOLVE |
DO colx=-1,1 |
|
./pkg/streamice/adstreamice_cg_solve.F |
214 |
ADSTREAMICE_CG_SOLVE |
ada_uu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
215 |
ADSTREAMICE_CG_SOLVE |
ada_uv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
216 |
ADSTREAMICE_CG_SOLVE |
ada_vu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
217 |
ADSTREAMICE_CG_SOLVE |
ada_vv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
70 |
ADSTREAMICE_CG_SOLVE |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_cg_solve.F |
159 |
STREAMICE_CG_SOLVE |
DO colx=-1,1 |
|
./pkg/streamice/streamice_cg_solve.F |
162 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
163 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
164 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
165 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
169 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
170 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
171 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
172 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
313 |
STREAMICE_CG_SOLVE |
DO colx=-1,1 |
|
./pkg/streamice/streamice_cg_solve.F |
316 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
317 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
318 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
319 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
321 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
322 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
323 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
324 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
68 |
STREAMICE_CG_SOLVE |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
47 |
STREAMICE_CG_SOLVE_MATFREE |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
240 |
STREAMICE_CG_SOLVE_PETSC |
DO colx=-1,1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
242 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
249 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
253 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
259 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
286 |
STREAMICE_CG_SOLVE_PETSC |
DO colx=-1,1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
288 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
294 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
298 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
304 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
73 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER iter, is, js, ie, je, colx, coly, k |