| 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_solo_timestep.F |
40 |
STREAMICE_SOLO_TIMESTEP |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_velmask_upd.F |
103 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
104 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
105 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
109 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
110 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
111 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
115 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
116 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
121 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
122 |
STREAMICE_VELMASK_UPD |
maskFlag=INT(STREAMICE_vfacemask_bdry(i,j+kj,bi,bj)) |
|
./pkg/streamice/streamice_velmask_upd.F |
125 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
126 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
128 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
129 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
132 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
135 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
139 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
140 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
142 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
145 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
146 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
151 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
40 |
STREAMICE_VELMASK_UPD |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_velmask_upd.F |
75 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
77 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
78 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
80 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
81 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
89 |
STREAMICE_VELMASK_UPD |
DO kj=0,1 |
|
./pkg/streamice/streamice_velmask_upd.F |
90 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
91 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
93 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
94 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |