File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
57 |
GAD_DST2U1_ADV_R |
_RL wLoc, wCFL, rLimit, wAbs |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
77 |
GAD_DST2U1_ADV_R |
wCFL = ABS(wLoc*deltaTloc*recip_drC(k)) |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
89 |
GAD_DST2U1_ADV_R |
& *( 1. _d 0 - rLimit*(1. _d 0 - wCFL) ) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
108 |
GAD_DST3FL_ADV_R |
& thetaP*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
111 |
GAD_DST3FL_ADV_R |
& thetaM*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
56 |
GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,wCFL,d0,d1 |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
81 |
GAD_DST3FL_ADV_R |
wCFL = ABS(wLoc*dTarg*recip_drC(k)) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
82 |
GAD_DST3FL_ADV_R |
d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
83 |
GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
102 |
GAD_DST3FL_IMPL_R |
wCFL = deltaTcfl*ABS(rTrans(i,j)) |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
105 |
GAD_DST3FL_IMPL_R |
cL1 = (2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
106 |
GAD_DST3FL_IMPL_R |
cH3 = (1. _d 0 -wCFL*wCFL)*oneSixth |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
108 |
GAD_DST3FL_IMPL_R |
cM2 = (1. _d 0 + wCFL)/( wCFL +1. _d -20) |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
74 |
GAD_DST3FL_IMPL_R |
_RL wCFL, rCenter, rUpwind |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
110 |
GAD_FLUXLIMIT_ADV_R |
& +ABS(rTrans(i,j))*((1.-Cr)+wCFL*Cr) |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
66 |
GAD_FLUXLIMIT_ADV_R |
_RL wLoc, wCFL |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
86 |
GAD_FLUXLIMIT_ADV_R |
wCFL = ABS( wLoc*dTarg*recip_drC(k) ) |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
100 |
GAD_PPM_FLX_R |
wCFL = wvel(ix,iy,ir) |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
103 |
GAD_PPM_FLX_R |
ss11 = -1. _d 0 + 2. _d 0 * wCFL |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
54 |
GAD_PPM_FLX_R |
_RL wCFL,intF |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
78 |
GAD_PPM_FLX_R |
wCFL = wvel(ix,iy,ir) |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
81 |
GAD_PPM_FLX_R |
ss11 = +1. _d 0 + 2. _d 0 * wCFL |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
106 |
GAD_PQM_FLX_R |
wCFL = wvel(ix,iy,ir) |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
109 |
GAD_PQM_FLX_R |
ss11 = -1. _d 0 + 2. _d 0 * wCFL |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
54 |
GAD_PQM_FLX_R |
_RL wCFL,intF |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
78 |
GAD_PQM_FLX_R |
wCFL = wvel(ix,iy,ir) |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
81 |
GAD_PQM_FLX_R |
ss11 = +1. _d 0 + 2. _d 0 * wCFL |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
111 |
GAD_U3C4_IMPL_R |
wCFL = deltaTcfl*ABS(rTrans(i,j)) |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
114 |
GAD_U3C4_IMPL_R |
rHigh = (1. _d 0 -wCFL*wCFL)*oneSixth |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
143 |
GAD_U3C4_IMPL_R |
wCFL = deltaTcfl*ABS(rTrans(i,j)) |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
146 |
GAD_U3C4_IMPL_R |
rHigh = (1. _d 0 -wCFL*wCFL)*oneSixth |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
79 |
GAD_U3C4_IMPL_R |
_RL wCFL, rCenter, rUpwind |
./pkg/monitor/mon_calc_advcfl.F |
155 |
MON_CALC_ADVCFL_GLOB |
_RL uCFL, vCFL, wCFL |
./pkg/monitor/mon_calc_advcfl.F |
159 |
MON_CALC_ADVCFL_GLOB |
wCFL = 0. |
./pkg/monitor/mon_calc_advcfl.F |
164 |
MON_CALC_ADVCFL_GLOB |
wCFL = MAX( wCFL, maxCFL(3,bi,bj) ) |
./pkg/monitor/mon_calc_advcfl.F |
169 |
MON_CALC_ADVCFL_GLOB |
_GLOBAL_MAX_RL( wCFL, myThid ) |
./pkg/monitor/mon_calc_advcfl.F |
175 |
MON_CALC_ADVCFL_GLOB |
mon_trAdvCFL(3) = wCFL |
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
54 |
CHEAPAML_GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,wCFL,d0,d1 |
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
70 |
CHEAPAML_GAD_DST3FL_ADV_R |
wCFL = ABS(wLoc*dTarg*recip_drC(1)) |
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
71 |
CHEAPAML_GAD_DST3FL_ADV_R |
d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
72 |
CHEAPAML_GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
80 |
CHEAPAML_GAD_DST3FL_ADV_R |
& thetaP*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
83 |
CHEAPAML_GAD_DST3FL_ADV_R |
& thetaM*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |