| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
165 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
168 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
170 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bu(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
171 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Uin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
177 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
180 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
182 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bv(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
183 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Vin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
228 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
231 |
STREAMICE_CG_SOLVE_PETSC |
IF (dof_index .ge. 0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
266 |
STREAMICE_CG_SOLVE_PETSC |
call MATSETVALUES (matrix, 1, dof_index, k, indices_col, |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
274 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
277 |
STREAMICE_CG_SOLVE_PETSC |
IF (dof_index .ge. 0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
311 |
STREAMICE_CG_SOLVE_PETSC |
call MATSETVALUES (matrix, 1, dof_index, k, indices_col, |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
422 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
424 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
425 |
STREAMICE_CG_SOLVE_PETSC |
cg_Uin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
428 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
430 |
STREAMICE_CG_SOLVE_PETSC |
if (dof_index.ge.0) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
431 |
STREAMICE_CG_SOLVE_PETSC |
cg_Vin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
88 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER local_dofs, global_dofs, dof_index, dof_index_col |