| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_functions.F |
1000 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
120 |
STREAMICE_CG_ACTION |
do jnode = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
122 |
STREAMICE_CG_ACTION |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
126 |
STREAMICE_CG_ACTION |
if (jnode.eq.jq) jlq = 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 |
720 |
STREAMICE_CG_ADIAG |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
741 |
STREAMICE_CG_ADIAG |
DO jnode = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
743 |
STREAMICE_CG_ADIAG |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
745 |
STREAMICE_CG_ADIAG |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_cg_functions.F |
746 |
STREAMICE_CG_ADIAG |
& STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
753 |
STREAMICE_CG_ADIAG |
if (jnode.eq.jq) jlq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
754 |
STREAMICE_CG_ADIAG |
phival(inode,jnode) = Xquad(ilq)*Xquad(jlq) |
|
./pkg/streamice/streamice_cg_functions.F |
768 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
769 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
775 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
776 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
778 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
783 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
784 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
785 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
801 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
802 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
807 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
808 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
810 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
815 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
816 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
817 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
888 |
STREAMICE_CG_BOUND_VALS |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
948 |
STREAMICE_CG_BOUND_VALS |
do jnode = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
950 |
STREAMICE_CG_BOUND_VALS |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
954 |
STREAMICE_CG_BOUND_VALS |
if (jnode.eq.jq) jlq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
955 |
STREAMICE_CG_BOUND_VALS |
phival(inode,jnode) = Xquad(ilq)*Xquad(jlq) |
|
./pkg/streamice/streamice_cg_functions.F |
957 |
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 |
960 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
961 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
968 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
969 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
971 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
977 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
978 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
979 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
985 |
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 |
986 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
987 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
992 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
993 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
995 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
998 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
999 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |