| File |
Line number |
Procedure |
Code |
|
./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 |
244 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
250 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./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 |
255 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
260 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./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 |
290 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
295 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./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 |
300 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index_col.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
305 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
88 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER local_dofs, global_dofs, dof_index, dof_index_col |