Symbol Description Uses
Rjh 8



File Line number Procedure Code
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 112 GAD_DST3FL_IMPL_R
             Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 114 GAD_DST3FL_IMPL_R
             Rjh = (tFld(i,j,kp1)-tFld(i,j,k)  )*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 116 GAD_DST3FL_IMPL_R
           IF ( Rj*Rjh.LE.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 122 GAD_DST3FL_IMPL_R
             Rjh = ABS(Rjh)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 123 GAD_DST3FL_IMPL_R
             th1 = cL1*Rj+cH3*Rjh
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 124 GAD_DST3FL_IMPL_R
             th2 = cM2*Rjh
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 79 GAD_DST3FL_IMPL_R
      _RL Rj, Rjh, cL1, cH3, cM2, th1, th2