| 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 |
47 |
GAD_C2_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
66 |
GAD_C2_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./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 |
51 |
GAD_DST2U1_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
113 |
GAD_FLUXLIMIT_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./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 |
51 |
GAD_FLUXLIMIT_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
100 |
GGL90_CALC |
_RL a3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
144 |
GGL90_CALC |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
458 |
GGL90_CALC |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
468 |
GGL90_CALC |
a3d(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
524 |
GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
525 |
GGL90_CALC |
a3d(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
536 |
GGL90_CALC |
I a3d, b3d, c3d, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
127 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
133 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = fCori2(i,j)*recip_hFac(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 |
140 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = fCori2(i,j)*recip_hFac(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 |
146 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
152 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
173 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
178 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
397 |
GMREDI_CALC_EIGS |
CALL DIAGNOSTICS_FILL(a3d, 'GM_A3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
69 |
GMREDI_CALC_EIGS |
_RL a3d( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
11 |
SOLVE_TRIDIAGONAL |
I a3d, b3d, c3d, |
|
./model/src/solve_tridiagonal.F |
159 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
163 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k)) |
|
./model/src/solve_tridiagonal.F |
224 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
229 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
38 |
SOLVE_TRIDIAGONAL |
_RL a3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
85 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*b3d(i,j,k-1) |