| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/adstreamice_cg_solve.F |
151 |
ADSTREAMICE_CG_SOLVE |
DO coly=-1,1 |
|
./pkg/streamice/adstreamice_cg_solve.F |
154 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
155 |
ADSTREAMICE_CG_SOLVE |
adA_uu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
156 |
ADSTREAMICE_CG_SOLVE |
& adA_uu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
158 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
161 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
162 |
ADSTREAMICE_CG_SOLVE |
adA_uv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
163 |
ADSTREAMICE_CG_SOLVE |
& adA_uv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
165 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
170 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
171 |
ADSTREAMICE_CG_SOLVE |
adA_vu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
172 |
ADSTREAMICE_CG_SOLVE |
& adA_vu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
174 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
176 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
177 |
ADSTREAMICE_CG_SOLVE |
adA_vv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
178 |
ADSTREAMICE_CG_SOLVE |
& adA_vv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
180 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
201 |
ADSTREAMICE_CG_SOLVE |
DO coly=-1,1 |
|
./pkg/streamice/adstreamice_cg_solve.F |
202 |
ADSTREAMICE_CG_SOLVE |
ada_uu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
203 |
ADSTREAMICE_CG_SOLVE |
ada_uv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
204 |
ADSTREAMICE_CG_SOLVE |
ada_vu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
205 |
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 |
153 |
STREAMICE_CG_SOLVE |
DO coly=-1,1 |
|
./pkg/streamice/streamice_cg_solve.F |
155 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
156 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
157 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
158 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
162 |
STREAMICE_CG_SOLVE |
& A_vu(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_vv(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 |
307 |
STREAMICE_CG_SOLVE |
DO coly=-1,1 |
|
./pkg/streamice/streamice_cg_solve.F |
309 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
310 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
311 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
312 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
314 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
315 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
316 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
317 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
66 |
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 |
221 |
STREAMICE_CG_SOLVE_PETSC |
DO coly=-1,1 |
|
./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 |
231 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly) |
|
./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 |
241 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
267 |
STREAMICE_CG_SOLVE_PETSC |
DO coly=-1,1 |
|
./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 |
276 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly) |
|
./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 |
286 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
66 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER iter, is, js, ie, je, colx, coly, k |