Symbol Description Uses
d5d 1rst upper diagonal of the pentadiagonal matrix 66



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 161 GAD_DST3FL_IMPL_R
           d5d(i,j,k)   = d5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 173 GAD_DST3FL_IMPL_R
           d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 57 GAD_DST3FL_IMPL_R
      _RL d5d   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_implicit_r.F 102 GAD_IMPLICIT_R
         d5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 148 GAD_IMPLICIT_R
           d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 158 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 230 GAD_IMPLICIT_R
     U                        b5d, c5d, d5d,
./pkg/generic_advdiff/gad_implicit_r.F 237 GAD_IMPLICIT_R
     U                        b5d, c5d, d5d,
./pkg/generic_advdiff/gad_implicit_r.F 243 GAD_IMPLICIT_R
     U                        b5d, c5d, d5d,
./pkg/generic_advdiff/gad_implicit_r.F 251 GAD_IMPLICIT_R
     U                        a5d, b5d, c5d, d5d, e5d,
./pkg/generic_advdiff/gad_implicit_r.F 257 GAD_IMPLICIT_R
     U                        a5d, b5d, c5d, d5d, e5d,
./pkg/generic_advdiff/gad_implicit_r.F 274 GAD_IMPLICIT_R
     I                          b5d, c5d, d5d,
./pkg/generic_advdiff/gad_implicit_r.F 284 GAD_IMPLICIT_R
     I                            a5d, b5d, c5d, d5d, e5d,
./pkg/generic_advdiff/gad_implicit_r.F 72 GAD_IMPLICIT_R
      _RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 125 GAD_U3C4_IMPL_R
           d5d(i,j,k)   = d5d(i,j,k)
./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 137 GAD_U3C4_IMPL_R
           d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 57 GAD_U3C4_IMPL_R
      _RL d5d   (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 154 MOM_U_IMPLICIT_R
              d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F 171 MOM_U_IMPLICIT_R
              d5d(i,j,k-1) = d5d(i,j,k-1)
./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 45 MOM_U_IMPLICIT_R
      _RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/mom_common/mom_u_implicit_r.F 72 MOM_U_IMPLICIT_R
         d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 99 MOM_U_IMPLICIT_R
     &     d5d(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 154 MOM_V_IMPLICIT_R
              d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F 171 MOM_V_IMPLICIT_R
              d5d(i,j,k-1) = d5d(i,j,k-1)
./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 45 MOM_V_IMPLICIT_R
      _RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/mom_common/mom_v_implicit_r.F 72 MOM_V_IMPLICIT_R
         d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 99 MOM_V_IMPLICIT_R
     &     d5d(i,j,k) = -deltaTmom
./verification/OpenAD/code_oad_all/gad_implicit_r.F 100 GAD_IMPLICIT_R
         d5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 146 GAD_IMPLICIT_R
           d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 156 GAD_IMPLICIT_R
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 228 GAD_IMPLICIT_R
     U                        b5d, c5d, d5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 235 GAD_IMPLICIT_R
     U                        b5d, c5d, d5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 241 GAD_IMPLICIT_R
     U                        b5d, c5d, d5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 249 GAD_IMPLICIT_R
     U                        a5d, b5d, c5d, d5d, e5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 255 GAD_IMPLICIT_R
     U                        a5d, b5d, c5d, d5d, e5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 272 GAD_IMPLICIT_R
     I                          b5d, c5d, d5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 282 GAD_IMPLICIT_R
     I                            a5d, b5d, c5d, d5d, e5d,
./verification/OpenAD/code_oad_all/gad_implicit_r.F 70 GAD_IMPLICIT_R
      _RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./model/src/solve_pentadiagonal.F 116 SOLVE_PENTADIAGONAL
          b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2)
./model/src/solve_pentadiagonal.F 120 SOLVE_PENTADIAGONAL
          c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 121 SOLVE_PENTADIAGONAL
          d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 149 SOLVE_PENTADIAGONAL
     &                       - d5d(i,j,k)*y5d(i,j,k+1,bi,bj)
./model/src/solve_pentadiagonal.F 157 SOLVE_PENTADIAGONAL
     &                       - d5d(i,j,k)*y5d(i,j,k+1,bi,bj)
./model/src/solve_pentadiagonal.F 17 SOLVE_PENTADIAGONAL
     U                     a5d, b5d, c5d, d5d, e5d,
./model/src/solve_pentadiagonal.F 201 SOLVE_PENTADIAGONAL
           d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F 210 SOLVE_PENTADIAGONAL
           d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F 222 SOLVE_PENTADIAGONAL
           d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F 57 SOLVE_PENTADIAGONAL
      _RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./model/src/solve_pentadiagonal.F 97 SOLVE_PENTADIAGONAL
          c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 98 SOLVE_PENTADIAGONAL
          d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1)