| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_implicit_r.F |
130 |
MOM_U_IMPLICIT_R |
upwindFac = 1. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
132 |
MOM_U_IMPLICIT_R |
upwindFac = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
138 |
MOM_U_IMPLICIT_R |
rUpwind = ABS(rCenter)*upwindFac |
|
./pkg/mom_common/mom_u_implicit_r.F |
48 |
MOM_U_IMPLICIT_R |
_RL rCenter, rUpwind, upwindFac |
|
./pkg/mom_common/mom_v_implicit_r.F |
130 |
MOM_V_IMPLICIT_R |
upwindFac = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
132 |
MOM_V_IMPLICIT_R |
upwindFac = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
138 |
MOM_V_IMPLICIT_R |
rUpwind = ABS(rCenter)*upwindFac |
|
./pkg/mom_common/mom_v_implicit_r.F |
48 |
MOM_V_IMPLICIT_R |
_RL rCenter, rUpwind, upwindFac |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
100 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
109 |
GAD_FLUXLIMIT_IMPL_R |
rUpwind = ABS(rCenter)*upwindFac(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
66 |
GAD_FLUXLIMIT_IMPL_R |
_RL upwindFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
96 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
98 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) ) |