| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
56 |
GAD_DST2U1_ADV_Y |
_RL vCFL, yLimit, vAbs |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
68 |
GAD_DST2U1_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
69 |
GAD_DST2U1_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
81 |
GAD_DST2U1_ADV_Y |
& *( 1. _d 0 - yLimit*(1. _d 0 - vCFL) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
58 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
82 |
GAD_DST3_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
83 |
GAD_DST3_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
85 |
GAD_DST3_ADV_Y |
d0=(2.-vCFL)*(1.-vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
86 |
GAD_DST3_ADV_Y |
d1=(1.-vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
37 |
GAD_DST3FL_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
52 |
GAD_DST3FL_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
53 |
GAD_DST3FL_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
55 |
GAD_DST3FL_ADV_Y |
d0=(2. _d 0 -vCFL)*(1. _d 0 -vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
56 |
GAD_DST3FL_ADV_Y |
d1=(1. _d 0 -vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
81 |
GAD_DST3FL_ADV_Y |
& thetaP*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
84 |
GAD_DST3FL_ADV_Y |
& thetaM*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
63 |
GAD_FLUXLIMIT_ADV_Y |
_RL vCFL |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
76 |
GAD_FLUXLIMIT_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
77 |
GAD_FLUXLIMIT_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
99 |
GAD_FLUXLIMIT_ADV_Y |
& -ABS(vTrans(i,j))*((1.-Cr)+vCFL*Cr) |