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 |