| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1275 |
IRRAD |
do iq=1,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1278 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1381 |
IRRAD |
do iq=1,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1384 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1902 |
CONEXPS |
integer ib,m,n,np,i,j,k,iq |
|
./pkg/fizhi/fizhi_lwrad.F |
1932 |
CONEXPS |
do iq=2,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1936 |
CONEXPS |
conexp(i,j,k,iq) = conexp(i,j,k,iq-1) *conexp(i,j,k,iq-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/streamice/streamice_cg_functions.F |
125 |
STREAMICE_CG_ACTION |
if (inode.eq.iq) ilq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
241 |
STREAMICE_CG_MAKE_A |
INTEGER iq, jq, inodx, inody, i, j, bi, bj, ilqx, ilqy, m_i, n |
|
./pkg/streamice/streamice_cg_functions.F |
280 |
STREAMICE_CG_MAKE_A |
DO iq=1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
283 |
STREAMICE_CG_MAKE_A |
n = 2*(jq-1)+iq |
|
./pkg/streamice/streamice_cg_functions.F |
297 |
STREAMICE_CG_MAKE_A |
if (inodx.eq.iq) ilqx = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
311 |
STREAMICE_CG_MAKE_A |
if (jnodx.eq.iq) ilqx = 2 |
|
./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 |
735 |
STREAMICE_CG_ADIAG |
DO iq=1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
738 |
STREAMICE_CG_ADIAG |
n = 2*(jq-1)+iq |
|
./pkg/streamice/streamice_cg_functions.F |
752 |
STREAMICE_CG_ADIAG |
if (inode.eq.iq) ilq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
84 |
STREAMICE_CG_ACTION |
DO iq = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
87 |
STREAMICE_CG_ACTION |
n = 2*(jq-1)+iq |
|
./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 |
90 |
STREAMICE_CG_ACTION |
uq = u(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
912 |
STREAMICE_CG_BOUND_VALS |
DO iq=1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
915 |
STREAMICE_CG_BOUND_VALS |
n = 2*(jq-1)+iq |
|
./pkg/streamice/streamice_cg_functions.F |
917 |
STREAMICE_CG_BOUND_VALS |
uq = u_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
918 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
919 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
91 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
920 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
921 |
STREAMICE_CG_BOUND_VALS |
vq = v_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
922 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
923 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
924 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
92 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
93 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
94 |
STREAMICE_CG_ACTION |
vq = v(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
953 |
STREAMICE_CG_BOUND_VALS |
if (inode.eq.iq) ilq = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
95 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
96 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
97 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq) |