| 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 |
162 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
177 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
58 |
GAD_DST3FL_IMPL_R |
_RL c5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
152 |
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 |
218 |
GAD_IMPLICIT_R |
U b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
226 |
GAD_IMPLICIT_R |
U b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
232 |
GAD_IMPLICIT_R |
U b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
241 |
GAD_IMPLICIT_R |
U a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
247 |
GAD_IMPLICIT_R |
U a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
265 |
GAD_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
276 |
GAD_IMPLICIT_R |
I a5d, b5d, c5d, d5d, e5d, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
365 |
GAD_IMPLICIT_R |
div(i,j) = gTracer(i,j,k)*( c5d(i,j,k) - 1. _d 0 ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
84 |
GAD_IMPLICIT_R |
_RL c5d(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 |
167 |
GAD_U3C4_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
182 |
GAD_U3C4_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
58 |
GAD_U3C4_IMPL_R |
_RL c5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
121 |
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 |
136 |
MOM_U_IMPLICIT_R |
U c5d, |
|
./pkg/mom_common/mom_u_implicit_r.F |
173 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
177 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
196 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
199 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
221 |
MOM_U_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
222 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
224 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
231 |
MOM_U_IMPLICIT_R |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
242 |
MOM_U_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/mom_common/mom_u_implicit_r.F |
267 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = dU_psFacX(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
273 |
MOM_U_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/mom_common/mom_u_implicit_r.F |
56 |
MOM_U_IMPLICIT_R |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
79 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
121 |
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 |
136 |
MOM_V_IMPLICIT_R |
U c5d, |
|
./pkg/mom_common/mom_v_implicit_r.F |
173 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
177 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
196 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
199 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
221 |
MOM_V_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
222 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
224 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
231 |
MOM_V_IMPLICIT_R |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
242 |
MOM_V_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/mom_common/mom_v_implicit_r.F |
267 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = dV_psFacY(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
273 |
MOM_V_IMPLICIT_R |
I b5d, c5d, d5d, |
|
./pkg/mom_common/mom_v_implicit_r.F |
56 |
MOM_V_IMPLICIT_R |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
79 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./model/src/solve_pentadiagonal.F |
101 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
111 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
112 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
114 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
115 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
117 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
11 |
SOLVE_PENTADIAGONAL |
U a5d, b5d, c5d, d5d, e5d, |
|
./model/src/solve_pentadiagonal.F |
128 |
SOLVE_PENTADIAGONAL |
a5d(i,j,k) = a5d(i,j,k)*c5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
130 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - a5d(i,j,k)*e5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
132 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
133 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
135 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
136 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
138 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
174 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k)*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
182 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
191 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
229 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
235 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
244 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
321 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
327 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
336 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
60 |
SOLVE_PENTADIAGONAL |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
98 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
99 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |