| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_petsc_numerate.F |
35 |
STREAMICE_PETSC_NUMERATE |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_timestep.F |
45 |
STREAMICE_TIMESTEP |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_velmask_upd.F |
106 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
107 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
108 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
112 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
113 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
114 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
118 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
119 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
124 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
125 |
STREAMICE_VELMASK_UPD |
maskFlag=INT(STREAMICE_vfacemask_bdry(i,j+kj,bi,bj)) |
|
./pkg/streamice/streamice_velmask_upd.F |
128 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
129 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
131 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
132 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
135 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
138 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
142 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
143 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
145 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
148 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
149 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
154 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
43 |
STREAMICE_VELMASK_UPD |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_velmask_upd.F |
78 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
80 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
81 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
83 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
84 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
92 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
93 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
94 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
96 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
97 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |