| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
56 |
GAD_C2_IMPL_R |
_RL rCenter |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
67 |
GAD_C2_IMPL_R |
& - rCenter*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
71 |
GAD_C2_IMPL_R |
& - rCenter*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
75 |
GAD_C2_IMPL_R |
& + rCenter*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
79 |
GAD_C2_IMPL_R |
& + rCenter*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
102 |
GAD_DST2U1_IMPL_R |
& + (rCenter-rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
67 |
GAD_DST2U1_IMPL_R |
_RL rCenter, rUpwind |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
86 |
GAD_DST2U1_IMPL_R |
rUpwind = ABS(rCenter) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
90 |
GAD_DST2U1_IMPL_R |
& - (rCenter+rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
94 |
GAD_DST2U1_IMPL_R |
& - (rCenter-rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
98 |
GAD_DST2U1_IMPL_R |
& + (rCenter+rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
145 |
GAD_DST3FL_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
148 |
GAD_DST3FL_IMPL_R |
rUpwind= (0.5 _d 0 -lowFac(i,j))*ABS(rCenter)*2. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
149 |
GAD_DST3FL_IMPL_R |
rC4km = highFac(i,j)*(rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
150 |
GAD_DST3FL_IMPL_R |
rC4kp = highFac(i,j)*(rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
158 |
GAD_DST3FL_IMPL_R |
& - ( (rCenter+rUpwind) + rC4km ) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
163 |
GAD_DST3FL_IMPL_R |
& - ( (rCenter-rUpwind) + rC4kp ) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
178 |
GAD_DST3FL_IMPL_R |
& + ( (rCenter+rUpwind) + rC4km ) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
183 |
GAD_DST3FL_IMPL_R |
& + ( (rCenter-rUpwind) + rC4kp ) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
74 |
GAD_DST3FL_IMPL_R |
_RL wCFL, rCenter, rUpwind |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
112 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
113 |
GAD_FLUXLIMIT_IMPL_R |
rUpwind = ABS(rCenter)*upwindFac(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
115 |
GAD_FLUXLIMIT_IMPL_R |
& - (rCenter+rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
119 |
GAD_FLUXLIMIT_IMPL_R |
& - (rCenter-rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
123 |
GAD_FLUXLIMIT_IMPL_R |
& + (rCenter+rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
127 |
GAD_FLUXLIMIT_IMPL_R |
& + (rCenter-rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
70 |
GAD_FLUXLIMIT_IMPL_R |
_RL rCenter, rUpwind |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
108 |
GAD_U3C4_IMPL_R |
rC4km2D (i,j) = oneSixth*rCenter*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
109 |
GAD_U3C4_IMPL_R |
rC4kp2D (i,j) = oneSixth*rCenter*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
116 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
117 |
GAD_U3C4_IMPL_R |
rC4km2D (i,j) = rHigh * (rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
118 |
GAD_U3C4_IMPL_R |
rC4kp2D (i,j) = rHigh * (rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
121 |
GAD_U3C4_IMPL_R |
rC4km2D (i,j) = oneSixth*(rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
122 |
GAD_U3C4_IMPL_R |
rC4kp2D (i,j) = oneSixth*(rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
132 |
GAD_U3C4_IMPL_R |
rCenter = rCenter2D(i,j) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
140 |
GAD_U3C4_IMPL_R |
rC4km = oneSixth*rCenter*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
141 |
GAD_U3C4_IMPL_R |
rC4kp = oneSixth*rCenter*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
148 |
GAD_U3C4_IMPL_R |
rUpwind= (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
149 |
GAD_U3C4_IMPL_R |
rC4km = rHigh * (rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
150 |
GAD_U3C4_IMPL_R |
rC4kp = rHigh * (rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
152 |
GAD_U3C4_IMPL_R |
rUpwind= 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
153 |
GAD_U3C4_IMPL_R |
rC4km = oneSixth*(rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
154 |
GAD_U3C4_IMPL_R |
rC4kp = oneSixth*(rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
163 |
GAD_U3C4_IMPL_R |
& - ( (rCenter+rUpwind) + rC4km ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
168 |
GAD_U3C4_IMPL_R |
& - ( (rCenter-rUpwind) + rC4kp ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
183 |
GAD_U3C4_IMPL_R |
& + ( (rCenter+rUpwind) + rC4km ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
188 |
GAD_U3C4_IMPL_R |
& + ( (rCenter-rUpwind) + rC4kp ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
79 |
GAD_U3C4_IMPL_R |
_RL wCFL, rCenter, rUpwind |
|
./pkg/mom_common/mom_u_implicit_r.F |
166 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
168 |
MOM_U_IMPLICIT_R |
rUpwind = ABS(rCenter)*upwindFac |
|
./pkg/mom_common/mom_u_implicit_r.F |
170 |
MOM_U_IMPLICIT_R |
& - (rCenter+rUpwind) |
|
./pkg/mom_common/mom_u_implicit_r.F |
174 |
MOM_U_IMPLICIT_R |
& + (rCenter+rUpwind) |
|
./pkg/mom_common/mom_u_implicit_r.F |
178 |
MOM_U_IMPLICIT_R |
& - (rCenter-rUpwind) |
|
./pkg/mom_common/mom_u_implicit_r.F |
182 |
MOM_U_IMPLICIT_R |
& + (rCenter-rUpwind) |
|
./pkg/mom_common/mom_u_implicit_r.F |
191 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
194 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
197 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
200 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
60 |
MOM_U_IMPLICIT_R |
_RL rCenter, rUpwind, upwindFac |
|
./pkg/mom_common/mom_v_implicit_r.F |
166 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_v_implicit_r.F |
168 |
MOM_V_IMPLICIT_R |
rUpwind = ABS(rCenter)*upwindFac |
|
./pkg/mom_common/mom_v_implicit_r.F |
170 |
MOM_V_IMPLICIT_R |
& - (rCenter+rUpwind) |
|
./pkg/mom_common/mom_v_implicit_r.F |
174 |
MOM_V_IMPLICIT_R |
& + (rCenter+rUpwind) |
|
./pkg/mom_common/mom_v_implicit_r.F |
178 |
MOM_V_IMPLICIT_R |
& - (rCenter-rUpwind) |
|
./pkg/mom_common/mom_v_implicit_r.F |
182 |
MOM_V_IMPLICIT_R |
& + (rCenter-rUpwind) |
|
./pkg/mom_common/mom_v_implicit_r.F |
191 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_v_implicit_r.F |
194 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
197 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
200 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
60 |
MOM_V_IMPLICIT_R |
_RL rCenter, rUpwind, upwindFac |