File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_osc_hat_r.F |
112 |
GAD_OSC_HAT_R |
_RL fbar(1-3:Nr+3) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
123 |
GAD_OSC_HAT_R |
CALL GAD_OSC_LOC_R(ir,mask,fbar,ohat) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
13 |
GAD_OSC_LOC_R |
SUBROUTINE GAD_OSC_LOC_R(ir,mask,fbar,ohat) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
23 |
GAD_OSC_LOC_R |
_RL fbar(1-3:Nr+3) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
35 |
GAD_OSC_LOC_R |
floc(+0) = fbar(+0+ir) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
38 |
GAD_OSC_LOC_R |
& mask(ir-1)*(fbar(ir-1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
40 |
GAD_OSC_LOC_R |
& mask(ir+1)*(fbar(ir+1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
57 |
GAD_OSC_LOC_R |
floc(+0) = fbar(+0+ir) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
60 |
GAD_OSC_LOC_R |
& mask(ir+1)*(fbar(ir+1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
75 |
GAD_OSC_LOC_R |
floc(+0) = fbar(+0+ir) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
78 |
GAD_OSC_LOC_R |
& mask(ir-1)*(fbar(ir-1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_r.F |
99 |
GAD_OSC_HAT_R |
& mask,fbar,ohat,myThid) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
107 |
GAD_OSC_HAT_X |
& mask,fbar,ohat,myThid) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
120 |
GAD_OSC_HAT_X |
_RL fbar(1-OLx:sNx+OLx) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
131 |
GAD_OSC_HAT_X |
CALL GAD_OSC_LOC_X(ix,mask,fbar,ohat) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
13 |
GAD_OSC_LOC_X |
SUBROUTINE GAD_OSC_LOC_X(ix,mask,fbar,ohat) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
23 |
GAD_OSC_LOC_X |
_RL fbar(1-OLx:sNx+OLx) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
35 |
GAD_OSC_LOC_X |
floc(+0) = fbar(+0+ix) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
38 |
GAD_OSC_LOC_X |
& mask(ix-1)*(fbar(ix-1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
40 |
GAD_OSC_LOC_X |
& mask(ix+1)*(fbar(ix+1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
57 |
GAD_OSC_LOC_X |
floc(+0) = fbar(+0+ix) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
60 |
GAD_OSC_LOC_X |
& mask(ix+1)*(fbar(ix+1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
62 |
GAD_OSC_LOC_X |
& mask(ix+2)*(fbar(ix+2)-floc(+1)) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
79 |
GAD_OSC_LOC_X |
floc(+0) = fbar(+0+ix) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
82 |
GAD_OSC_LOC_X |
& mask(ix-1)*(fbar(ix-1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_x.F |
84 |
GAD_OSC_LOC_X |
& mask(ix-2)*(fbar(ix-2)-floc(-1)) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
107 |
GAD_OSC_HAT_Y |
& mask,fbar,ohat,myThid) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
120 |
GAD_OSC_HAT_Y |
_RL fbar(1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
131 |
GAD_OSC_HAT_Y |
CALL GAD_OSC_LOC_Y(iy,mask,fbar,ohat) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
13 |
GAD_OSC_LOC_Y |
SUBROUTINE GAD_OSC_LOC_Y(iy,mask,fbar,ohat) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
23 |
GAD_OSC_LOC_Y |
_RL fbar(1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
35 |
GAD_OSC_LOC_Y |
floc(+0) = fbar(+0+iy) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
38 |
GAD_OSC_LOC_Y |
& mask(iy-1)*(fbar(iy-1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
40 |
GAD_OSC_LOC_Y |
& mask(iy+1)*(fbar(iy+1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
57 |
GAD_OSC_LOC_Y |
floc(+0) = fbar(+0+iy) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
60 |
GAD_OSC_LOC_Y |
& mask(iy+1)*(fbar(iy+1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
62 |
GAD_OSC_LOC_Y |
& mask(iy+2)*(fbar(iy+2)-floc(+1)) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
79 |
GAD_OSC_LOC_Y |
floc(+0) = fbar(+0+iy) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
82 |
GAD_OSC_LOC_Y |
& mask(iy-1)*(fbar(iy-1)-floc(+0)) |
./pkg/generic_advdiff/gad_osc_hat_y.F |
84 |
GAD_OSC_LOC_Y |
& mask(iy-2)*(fbar(iy-2)-floc(-1)) |
./pkg/generic_advdiff/gad_ppm_adv_r.F |
111 |
GAD_PPM_ADV_R |
floc(ir) = fbar(ix,iy,ir) |
./pkg/generic_advdiff/gad_ppm_adv_r.F |
40 |
GAD_PPM_ADV_R |
_RL fbar(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_ppm_adv_r.F |
7 |
GAD_PPM_ADV_R |
I delT,velR,facR,fbar, |
./pkg/generic_advdiff/gad_ppm_adv_x.F |
106 |
GAD_PPM_ADV_X |
floc(ix) = fbar (ix,iy) |
./pkg/generic_advdiff/gad_ppm_adv_x.F |
41 |
GAD_PPM_ADV_X |
_RL fbar(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_ppm_adv_x.F |
7 |
GAD_PPM_ADV_X |
I calc_CFL,delT,uvel,ufac,fbar, |
./pkg/generic_advdiff/gad_ppm_adv_y.F |
106 |
GAD_PPM_ADV_Y |
floc(iy) = fbar (ix,iy) |
./pkg/generic_advdiff/gad_ppm_adv_y.F |
41 |
GAD_PPM_ADV_Y |
_RL fbar(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_ppm_adv_y.F |
7 |
GAD_PPM_ADV_Y |
I calc_CFL,delT,vvel,vfac,fbar, |
./pkg/generic_advdiff/gad_ppm_hat_r.F |
37 |
GAD_PPM_HAT_R |
_RL fbar(1-3:Nr+3) |
./pkg/generic_advdiff/gad_ppm_hat_r.F |
69 |
GAD_PPM_HAT_R |
ff00 = fbar(ir+0) |
./pkg/generic_advdiff/gad_ppm_hat_r.F |
71 |
GAD_PPM_HAT_R |
& + mask(ir-1)*(fbar(ir-1)-ff00) |
./pkg/generic_advdiff/gad_ppm_hat_r.F |
73 |
GAD_PPM_HAT_R |
& + mask(ir+1)*(fbar(ir+1)-ff00) |
./pkg/generic_advdiff/gad_ppm_hat_r.F |
7 |
GAD_PPM_HAT_R |
& method,mask,fbar,edge, |
./pkg/generic_advdiff/gad_ppm_hat_x.F |
38 |
GAD_PPM_HAT_X |
_RL fbar(1-OLx:sNx+OLx) |
./pkg/generic_advdiff/gad_ppm_hat_x.F |
70 |
GAD_PPM_HAT_X |
ff00 = fbar(ix+0) |
./pkg/generic_advdiff/gad_ppm_hat_x.F |
72 |
GAD_PPM_HAT_X |
& + mask(ix-1)*(fbar(ix-1)-ff00) |
./pkg/generic_advdiff/gad_ppm_hat_x.F |
74 |
GAD_PPM_HAT_X |
& + mask(ix+1)*(fbar(ix+1)-ff00) |
./pkg/generic_advdiff/gad_ppm_hat_x.F |
7 |
GAD_PPM_HAT_X |
& method,mask,fbar,edge, |
./pkg/generic_advdiff/gad_ppm_hat_y.F |
38 |
GAD_PPM_HAT_Y |
_RL fbar(1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_ppm_hat_y.F |
71 |
GAD_PPM_HAT_Y |
ff00 = fbar(iy+0) |
./pkg/generic_advdiff/gad_ppm_hat_y.F |
73 |
GAD_PPM_HAT_Y |
& + mask(iy-1)*(fbar(iy-1)-ff00) |
./pkg/generic_advdiff/gad_ppm_hat_y.F |
75 |
GAD_PPM_HAT_Y |
& + mask(iy+1)*(fbar(iy+1)-ff00) |
./pkg/generic_advdiff/gad_ppm_hat_y.F |
7 |
GAD_PPM_HAT_Y |
I method,mask,fbar,edge, |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
23 |
GAD_PPM_P3E_R |
_RL fbar(1-3:Nr+3) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
39 |
GAD_PPM_P3E_R |
floc(-1) = fbar(ir+0) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
40 |
GAD_PPM_P3E_R |
& + mloc(-1)*(fbar(ir-1)-fbar(ir+0)) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
41 |
GAD_PPM_P3E_R |
floc(+0) = fbar(ir-1) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
42 |
GAD_PPM_P3E_R |
& + mloc(+0)*(fbar(ir+0)-fbar(ir-1)) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
48 |
GAD_PPM_P3E_R |
& + mloc(-2)*(fbar(ir-2)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
54 |
GAD_PPM_P3E_R |
& + mloc(+1)*(fbar(ir+1)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
7 |
GAD_PPM_P3E_R |
& mask,fbar,edge,myThid) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
23 |
GAD_PPM_P3E_X |
_RL fbar(1-OLx:sNx+OLx) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
39 |
GAD_PPM_P3E_X |
floc(-1) = fbar(ix+0) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
40 |
GAD_PPM_P3E_X |
& + mloc(-1)*(fbar(ix-1)-fbar(ix+0)) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
41 |
GAD_PPM_P3E_X |
floc(+0) = fbar(ix-1) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
42 |
GAD_PPM_P3E_X |
& + mloc(+0)*(fbar(ix+0)-fbar(ix-1)) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
48 |
GAD_PPM_P3E_X |
& + mloc(-2)*(fbar(ix-2)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
54 |
GAD_PPM_P3E_X |
& + mloc(+1)*(fbar(ix+1)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
7 |
GAD_PPM_P3E_X |
& mask,fbar,edge,myThid) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
23 |
GAD_PPM_P3E_Y |
_RL fbar(1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
40 |
GAD_PPM_P3E_Y |
floc(-1) = fbar(iy+0) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
41 |
GAD_PPM_P3E_Y |
& + mloc(-1)*(fbar(iy-1)-fbar(iy+0)) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
42 |
GAD_PPM_P3E_Y |
floc(+0) = fbar(iy-1) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
43 |
GAD_PPM_P3E_Y |
& + mloc(+0)*(fbar(iy+0)-fbar(iy-1)) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
49 |
GAD_PPM_P3E_Y |
& + mloc(-2)*(fbar(iy-2)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
55 |
GAD_PPM_P3E_Y |
& + mloc(+1)*(fbar(iy+1)-ftmp) |
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
7 |
GAD_PPM_P3E_Y |
& mask,fbar,edge,myThid) |
./pkg/generic_advdiff/gad_pqm_adv_r.F |
106 |
GAD_PQM_ADV_R |
floc(ir) = fbar (ix,iy,ir) |
./pkg/generic_advdiff/gad_pqm_adv_r.F |
40 |
GAD_PQM_ADV_R |
_RL fbar(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_adv_x.F |
102 |
GAD_PQM_ADV_X |
floc(ix) = fbar (ix,iy) |
./pkg/generic_advdiff/gad_pqm_adv_x.F |
41 |
GAD_PQM_ADV_X |
_RL fbar(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_pqm_adv_x.F |
7 |
GAD_PQM_ADV_X |
I calc_CFL,delT,uvel,ufac,fbar, |
./pkg/generic_advdiff/gad_pqm_adv_y.F |
102 |
GAD_PQM_ADV_Y |
floc(iy) = fbar (ix,iy) |
./pkg/generic_advdiff/gad_pqm_adv_y.F |
41 |
GAD_PQM_ADV_Y |
_RL fbar(1-OLx:sNx+OLx, |
./pkg/generic_advdiff/gad_pqm_adv_y.F |
7 |
GAD_PQM_ADV_Y |
I calc_CFL,delT,vvel,vfac,fbar, |
./pkg/generic_advdiff/gad_pqm_hat_r.F |
40 |
GAD_PQM_HAT_R |
_RL fbar(1-3:Nr+3) |
./pkg/generic_advdiff/gad_pqm_hat_r.F |
7 |
GAD_PQM_HAT_R |
& method,mask,fbar,edge, |
./pkg/generic_advdiff/gad_pqm_hat_r.F |
81 |
GAD_PQM_HAT_R |
ff00 = fbar(ir+0) |
./pkg/generic_advdiff/gad_pqm_hat_r.F |
83 |
GAD_PQM_HAT_R |
& + mask(ir-1)*(fbar(ir-1)-ff00) |
./pkg/generic_advdiff/gad_pqm_hat_r.F |
85 |
GAD_PQM_HAT_R |
& + mask(ir+1)*(fbar(ir+1)-ff00) |
./pkg/generic_advdiff/gad_pqm_hat_x.F |
40 |
GAD_PQM_HAT_X |
_RL fbar(1-OLx:sNx+OLx) |
./pkg/generic_advdiff/gad_pqm_hat_x.F |
7 |
GAD_PQM_HAT_X |
& method,mask,fbar,edge, |
./pkg/generic_advdiff/gad_pqm_hat_x.F |
83 |
GAD_PQM_HAT_X |
ff00 = fbar(ix+0) |
./pkg/generic_advdiff/gad_pqm_hat_x.F |
85 |
GAD_PQM_HAT_X |
& + mask(ix-1)*(fbar(ix-1)-ff00) |
./pkg/generic_advdiff/gad_pqm_hat_x.F |
87 |
GAD_PQM_HAT_X |
& + mask(ix+1)*(fbar(ix+1)-ff00) |
./pkg/generic_advdiff/gad_pqm_hat_y.F |
40 |
GAD_PQM_HAT_Y |
_RL fbar(1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_pqm_hat_y.F |
7 |
GAD_PQM_HAT_Y |
& method,mask,fbar,edge, |
./pkg/generic_advdiff/gad_pqm_hat_y.F |
84 |
GAD_PQM_HAT_Y |
ff00 = fbar(iy+0) |
./pkg/generic_advdiff/gad_pqm_hat_y.F |
86 |
GAD_PQM_HAT_Y |
& + mask(iy-1)*(fbar(iy-1)-ff00) |
./pkg/generic_advdiff/gad_pqm_hat_y.F |
88 |
GAD_PQM_HAT_Y |
& + mask(iy+1)*(fbar(iy+1)-ff00) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
23 |
GAD_PQM_P5E_R |
_RL fbar(1-3:Nr+3) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
40 |
GAD_PQM_P5E_R |
floc(-1) = fbar(ir+0) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
41 |
GAD_PQM_P5E_R |
& + mloc(-1)*(fbar(ir-1)-fbar(ir+0)) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
42 |
GAD_PQM_P5E_R |
floc(+0) = fbar(ir-1) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
43 |
GAD_PQM_P5E_R |
& + mloc(+0)*(fbar(ir+0)-fbar(ir-1)) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
50 |
GAD_PQM_P5E_R |
& + mloc(-2)*(fbar(ir-2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
53 |
GAD_PQM_P5E_R |
& + mloc(-3)*(fbar(ir-3)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
60 |
GAD_PQM_P5E_R |
& + mloc(+1)*(fbar(ir+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
63 |
GAD_PQM_P5E_R |
& + mloc(+2)*(fbar(ir+2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
7 |
GAD_PQM_P5E_R |
& mask,fbar,edge,myThid) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
23 |
GAD_PQM_P5E_X |
_RL fbar(1-OLx:sNx+OLx) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
40 |
GAD_PQM_P5E_X |
floc(-1) = fbar(ix+0) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
41 |
GAD_PQM_P5E_X |
& + mloc(-1)*(fbar(ix-1)-fbar(ix+0)) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
42 |
GAD_PQM_P5E_X |
floc(+0) = fbar(ix-1) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
43 |
GAD_PQM_P5E_X |
& + mloc(+0)*(fbar(ix+0)-fbar(ix-1)) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
50 |
GAD_PQM_P5E_X |
& + mloc(-2)*(fbar(ix-2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
53 |
GAD_PQM_P5E_X |
& + mloc(-3)*(fbar(ix-3)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
60 |
GAD_PQM_P5E_X |
& + mloc(+1)*(fbar(ix+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
63 |
GAD_PQM_P5E_X |
& + mloc(+2)*(fbar(ix+2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
7 |
GAD_PQM_P5E_X |
& mask,fbar,edge,myThid) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
23 |
GAD_PQM_P5E_Y |
_RL fbar(1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
41 |
GAD_PQM_P5E_Y |
floc(-1) = fbar(iy+0) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
42 |
GAD_PQM_P5E_Y |
& + mloc(-1)*(fbar(iy-1)-fbar(iy+0)) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
43 |
GAD_PQM_P5E_Y |
floc(+0) = fbar(iy-1) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
44 |
GAD_PQM_P5E_Y |
& + mloc(+0)*(fbar(iy+0)-fbar(iy-1)) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
51 |
GAD_PQM_P5E_Y |
& + mloc(-2)*(fbar(iy-2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
54 |
GAD_PQM_P5E_Y |
& + mloc(-3)*(fbar(iy-3)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
61 |
GAD_PQM_P5E_Y |
& + mloc(+1)*(fbar(iy+1)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
64 |
GAD_PQM_P5E_Y |
& + mloc(+2)*(fbar(iy+2)-ftmp) |
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
7 |
GAD_PQM_P5E_Y |
& mask,fbar,edge,myThid) |