| 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 |
61 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
85 |
GAD_DST3_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
86 |
GAD_DST3_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
88 |
GAD_DST3_ADV_X |
d0=(2.-uCFL)*(1.-uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
89 |
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 |
61 |
GAD_DST3FL_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
62 |
GAD_DST3FL_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
64 |
GAD_DST3FL_ADV_X |
d0=(2. _d 0 -uCFL)*(1. _d 0 -uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
65 |
GAD_DST3FL_ADV_X |
d1=(1. _d 0 -uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
90 |
GAD_DST3FL_ADV_X |
& thetaP*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
93 |
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) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
105 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
109 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
112 |
GAD_PPM_FLX_X |
ss11 = -1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
53 |
GAD_PPM_FLX_X |
_RL uCFL,intF |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
78 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
82 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
85 |
GAD_PPM_FLX_X |
ss11 = +1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
111 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
115 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
118 |
GAD_PQM_FLX_X |
ss11 = -1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
53 |
GAD_PQM_FLX_X |
_RL uCFL,intF |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
78 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
82 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
85 |
GAD_PQM_FLX_X |
ss11 = +1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/monitor/mon_calc_advcfl.F |
155 |
MON_CALC_ADVCFL_GLOB |
_RL uCFL, vCFL, wCFL |
|
./pkg/monitor/mon_calc_advcfl.F |
157 |
MON_CALC_ADVCFL_GLOB |
uCFL = 0. |
|
./pkg/monitor/mon_calc_advcfl.F |
162 |
MON_CALC_ADVCFL_GLOB |
uCFL = MAX( uCFL, maxCFL(1,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
167 |
MON_CALC_ADVCFL_GLOB |
_GLOBAL_MAX_RL( uCFL, myThid ) |
|
./pkg/monitor/mon_calc_advcfl.F |
173 |
MON_CALC_ADVCFL_GLOB |
mon_trAdvCFL(1) = uCFL |