| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
12 |
GAD_DST3FL_IMPL_R |
O a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
155 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
167 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
57 |
GAD_DST3FL_IMPL_R |
_RL b5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
108 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
146 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
166 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
207 |
GAD_IMPLICIT_R |
U b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
215 |
GAD_IMPLICIT_R |
U b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
221 |
GAD_IMPLICIT_R |
U b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
U a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
236 |
GAD_IMPLICIT_R |
U a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
253 |
GAD_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
263 |
GAD_IMPLICIT_R |
I a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
339 |
GAD_IMPLICIT_R |
& + gTracer(i,j,km1)*b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
82 |
GAD_IMPLICIT_R |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
12 |
GAD_U3C4_IMPL_R |
O a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
159 |
GAD_U3C4_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
171 |
GAD_U3C4_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
57 |
GAD_U3C4_IMPL_R |
_RL b5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
109 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
145 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
165 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
187 |
MOM_U_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/mom_common/mom_u_implicit_r.F |
43 |
MOM_U_IMPLICIT_R |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
70 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
88 |
MOM_U_IMPLICIT_R |
& b5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_v_implicit_r.F |
109 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
145 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
165 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
187 |
MOM_V_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/mom_common/mom_v_implicit_r.F |
43 |
MOM_V_IMPLICIT_R |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
70 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
88 |
MOM_V_IMPLICIT_R |
& b5d(i,j,k) = -deltaTMom |
|
./model/src/solve_pentadiagonal.F |
101 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
102 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
103 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
104 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
11 |
SOLVE_PENTADIAGONAL |
U a5d, b5d, c5d, d5d, e5d, |
|
./model/src/solve_pentadiagonal.F |
120 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
123 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
124 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
125 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
126 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
208 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
210 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
213 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
218 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
220 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
224 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
303 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
305 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
308 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
313 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
316 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
321 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
49 |
SOLVE_PENTADIAGONAL |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |