| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
154 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
157 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
159 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bu(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
160 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Uin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
166 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
169 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
171 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bv(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
172 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Vin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
210 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
213 |
STREAMICE_CG_SOLVE_PETSC |
IF (dof_index .ge. 0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
248 |
STREAMICE_CG_SOLVE_PETSC |
call MATSETVALUES (matrix, 1, dof_index, k, indices_col, |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
256 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
259 |
STREAMICE_CG_SOLVE_PETSC |
IF (dof_index .ge. 0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
293 |
STREAMICE_CG_SOLVE_PETSC |
call MATSETVALUES (matrix, 1, dof_index, k, indices_col, |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
358 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
360 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
361 |
STREAMICE_CG_SOLVE_PETSC |
cg_Uin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
364 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
366 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
367 |
STREAMICE_CG_SOLVE_PETSC |
cg_Vin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
81 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER local_dofs, global_dofs, dof_index, dof_index_col |