| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_functions.F |
119 |
STREAMICE_CG_ACTION |
do inode = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
122 |
STREAMICE_CG_ACTION |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
125 |
STREAMICE_CG_ACTION |
if (inode.eq.iq) ilq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
127 |
STREAMICE_CG_ACTION |
phival(inode,jnode) = Xquad(ilq)*Xquad(jlq) |
|
./pkg/streamice/streamice_cg_functions.F |
129 |
STREAMICE_CG_ACTION |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
131 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
132 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
139 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
140 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
142 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
147 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
148 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
149 |
STREAMICE_CG_ACTION |
& phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
156 |
STREAMICE_CG_ACTION |
if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
157 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
158 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
163 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
164 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
166 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
169 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
170 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
171 |
STREAMICE_CG_ACTION |
& phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
65 |
STREAMICE_CG_ACTION |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj |
|
./pkg/streamice/streamice_cg_functions.F |
670 |
STREAMICE_CG_ADIAG |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
690 |
STREAMICE_CG_ADIAG |
DO inode = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
693 |
STREAMICE_CG_ADIAG |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
695 |
STREAMICE_CG_ADIAG |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_cg_functions.F |
696 |
STREAMICE_CG_ADIAG |
& STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
702 |
STREAMICE_CG_ADIAG |
if (inode.eq.iq) ilq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
704 |
STREAMICE_CG_ADIAG |
phival(inode,jnode) = Xquad(ilq)*Xquad(jlq) |
|
./pkg/streamice/streamice_cg_functions.F |
718 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
719 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
725 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
726 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
728 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
733 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
734 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
735 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
751 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
752 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
757 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
758 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
760 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
765 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
766 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
767 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
838 |
STREAMICE_CG_BOUND_VALS |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
897 |
STREAMICE_CG_BOUND_VALS |
do inode = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
900 |
STREAMICE_CG_BOUND_VALS |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
903 |
STREAMICE_CG_BOUND_VALS |
if (inode.eq.iq) ilq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
905 |
STREAMICE_CG_BOUND_VALS |
phival(inode,jnode) = Xquad(ilq)*Xquad(jlq) |
|
./pkg/streamice/streamice_cg_functions.F |
907 |
STREAMICE_CG_BOUND_VALS |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
910 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
911 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
918 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
919 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
921 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
927 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
928 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
929 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
935 |
STREAMICE_CG_BOUND_VALS |
if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
936 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
937 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
942 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
943 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
945 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
948 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
949 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
950 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |