| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
224 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
226 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
232 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
235 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
237 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
242 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
270 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
272 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
277 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
280 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
282 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
287 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
81 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER local_dofs, global_dofs, dof_index, dof_index_col |