| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
57 |
GAD_DST2U1_ADV_X |
_RL uCFL, xLimit, uAbs |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
69 |
GAD_DST2U1_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
70 |
GAD_DST2U1_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
82 |
GAD_DST2U1_ADV_X |
& *( 1. _d 0 - xLimit*(1. _d 0 - uCFL) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
59 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
83 |
GAD_DST3_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
84 |
GAD_DST3_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
86 |
GAD_DST3_ADV_X |
d0=(2.-uCFL)*(1.-uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
87 |
GAD_DST3_ADV_X |
d1=(1.-uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
37 |
GAD_DST3FL_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
56 |
GAD_DST3FL_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
57 |
GAD_DST3FL_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
59 |
GAD_DST3FL_ADV_X |
d0=(2. _d 0 -uCFL)*(1. _d 0 -uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
60 |
GAD_DST3FL_ADV_X |
d1=(1. _d 0 -uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
85 |
GAD_DST3FL_ADV_X |
& thetaP*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
88 |
GAD_DST3FL_ADV_X |
& thetaM*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
63 |
GAD_FLUXLIMIT_ADV_X |
_RL uCFL |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
76 |
GAD_FLUXLIMIT_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
77 |
GAD_FLUXLIMIT_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
99 |
GAD_FLUXLIMIT_ADV_X |
& -ABS(uTrans(i,j))*((1.-Cr)+uCFL*Cr) |