File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
122 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
36 |
GAD_PPM_FLX_R |
_RL wfac(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_ppm_flx_r.F |
7 |
GAD_PPM_FLX_R |
& delT,wvel,wfac,fhat, |
./pkg/generic_advdiff/gad_pqm_adv_r.F |
104 |
GAD_PQM_ADV_R |
& + abs(wfac(ix,iy,ir)) |
./pkg/generic_advdiff/gad_pqm_adv_r.F |
143 |
GAD_PQM_ADV_R |
& wfac,fhat, |
./pkg/generic_advdiff/gad_pqm_adv_r.F |
37 |
GAD_PQM_ADV_R |
_RL wfac(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_pqm_adv_r.F |
7 |
GAD_PQM_ADV_R |
I delT,wvel,wfac,fbar, |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
134 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
36 |
GAD_PQM_FLX_R |
_RL wfac(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
69 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .eq. 0. _d 0) then |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
75 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .lt. 0. _d 0) then |
./pkg/generic_advdiff/gad_pqm_flx_r.F |
7 |
GAD_PQM_FLX_R |
& delT,wvel,wfac, |