| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
12 |
GAD_C2_IMPL_R |
O a3d, b3d, c3d, |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
48 |
GAD_C2_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
70 |
GAD_C2_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
74 |
GAD_C2_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
12 |
GAD_DST2U1_IMPL_R |
O a3d, b3d, c3d, |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
54 |
GAD_DST2U1_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
93 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
97 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
118 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
122 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
12 |
GAD_FLUXLIMIT_IMPL_R |
O a3d, b3d, c3d, |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
52 |
GAD_FLUXLIMIT_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
114 |
GGL90_CALC |
_RL b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
181 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
619 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
663 |
GGL90_CALC |
I a3d, b3d, c3d, |
|
./pkg/ggl90/ggl90_idemix.F |
362 |
GGL90_IDEMIX |
b3d(i,j,1) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
369 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
373 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
377 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
389 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
397 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
427 |
GGL90_IDEMIX |
I a3d, b3d, c3d, |
|
./pkg/ggl90/ggl90_idemix.F |
71 |
GGL90_IDEMIX |
_RL b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
93 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
130 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
137 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -a3d(i,j,k)-c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
143 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
147 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
153 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
170 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
174 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
179 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
396 |
GMREDI_CALC_EIGS |
CALL DIAGNOSTICS_FILL(b3d, 'GM_B3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
70 |
GMREDI_CALC_EIGS |
_RL b3d( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
103 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*b3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
107 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
11 |
SOLVE_TRIDIAGONAL |
I a3d, b3d, c3d, |
|
./model/src/solve_tridiagonal.F |
120 |
SOLVE_TRIDIAGONAL |
y3d(i,j,1) = y3d(i,j,1)*b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
128 |
SOLVE_TRIDIAGONAL |
& )*b3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
138 |
SOLVE_TRIDIAGONAL |
& - c3d(i,j,k)*b3d(i,j,k)*y3d(i,j,k+1) |
|
./model/src/solve_tridiagonal.F |
171 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
172 |
SOLVE_TRIDIAGONAL |
c3d_prime(1) = c3d_m1(i,j,1) / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
173 |
SOLVE_TRIDIAGONAL |
y3d_prime(1) = y3d_m1(i,j,1) / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
180 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
233 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
234 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
243 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
57 |
SOLVE_TRIDIAGONAL |
_RL b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
90 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
91 |
SOLVE_TRIDIAGONAL |
b3d(i,j,1) = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
93 |
SOLVE_TRIDIAGONAL |
b3d(i,j,1) = 0. _d 0 |