| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
141 |
GAD_PPM_ADV_R |
& fhat,myThid) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
146 |
GAD_PPM_ADV_R |
& facR,fhat, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
64 |
GAD_PPM_ADV_R |
_RL fhat(1:3,1-0:Nr+0) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
128 |
GAD_PPM_ADV_X |
& fhat,myThid) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
134 |
GAD_PPM_ADV_X |
& ufac,fhat, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
63 |
GAD_PPM_ADV_X |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
128 |
GAD_PPM_ADV_Y |
& fhat,myThid) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
134 |
GAD_PPM_ADV_Y |
& vfac,fhat, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
63 |
GAD_PPM_ADV_Y |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
113 |
GAD_PPM_FLX_R |
intF = ivec(1) * fhat(1,ir-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
114 |
GAD_PPM_FLX_R |
& + ivec(2) * fhat(2,ir-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
115 |
GAD_PPM_FLX_R |
& + ivec(3) * fhat(3,ir-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
39 |
GAD_PPM_FLX_R |
_RL fhat(1:3 , |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
7 |
GAD_PPM_FLX_R |
& delT,wvel,wfac,fhat, |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
91 |
GAD_PPM_FLX_R |
intF = ivec(1) * fhat(1,ir-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
92 |
GAD_PPM_FLX_R |
& + ivec(2) * fhat(2,ir-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
93 |
GAD_PPM_FLX_R |
& + ivec(3) * fhat(3,ir-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
122 |
GAD_PPM_FLX_X |
intF = ivec(1) * fhat(1,ix-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
123 |
GAD_PPM_FLX_X |
& + ivec(2) * fhat(2,ix-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
124 |
GAD_PPM_FLX_X |
& + ivec(3) * fhat(3,ix-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
39 |
GAD_PPM_FLX_X |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
8 |
GAD_PPM_FLX_X |
& ufac,fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
95 |
GAD_PPM_FLX_X |
intF = ivec(1) * fhat(1,ix-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
96 |
GAD_PPM_FLX_X |
& + ivec(2) * fhat(2,ix-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
97 |
GAD_PPM_FLX_X |
& + ivec(3) * fhat(3,ix-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
122 |
GAD_PPM_FLX_Y |
intF = ivec(1) * fhat(1,iy-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
123 |
GAD_PPM_FLX_Y |
& + ivec(2) * fhat(2,iy-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
124 |
GAD_PPM_FLX_Y |
& + ivec(3) * fhat(3,iy-0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
39 |
GAD_PPM_FLX_Y |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
8 |
GAD_PPM_FLX_Y |
& vfac,fhat,flux,myThid ) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
95 |
GAD_PPM_FLX_Y |
intF = ivec(1) * fhat(1,iy-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
96 |
GAD_PPM_FLX_Y |
& + ivec(2) * fhat(2,iy-1) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
97 |
GAD_PPM_FLX_Y |
& + ivec(3) * fhat(3,iy-1) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
110 |
GAD_PPM_FUN_MONO |
fhat( 1 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
113 |
GAD_PPM_FUN_MONO |
fhat( 2 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
115 |
GAD_PPM_FUN_MONO |
fhat( 3 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
119 |
GAD_PPM_FUN_MONO |
if (abs(fhat(3)) .gt. |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
120 |
GAD_PPM_FUN_MONO |
& abs(fhat(2))*.5 _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
122 |
GAD_PPM_FUN_MONO |
turn = -0.5 _d 0 * fhat(2) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
123 |
GAD_PPM_FUN_MONO |
& / fhat(3) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
152 |
GAD_PPM_FUN_MONO |
fhat( 1 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
155 |
GAD_PPM_FUN_MONO |
fhat( 2 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
157 |
GAD_PPM_FUN_MONO |
fhat( 3 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
16 |
GAD_PPM_FUN_NULL |
O fhat,mono) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
27 |
GAD_PPM_FUN_NULL |
_RL fhat(+1:+3) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
33 |
GAD_PPM_FUN_NULL |
fhat( 1 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
36 |
GAD_PPM_FUN_NULL |
fhat( 2 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
38 |
GAD_PPM_FUN_NULL |
fhat( 3 ) = |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
54 |
GAD_PPM_FUN_MONO |
O fhat,mono) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
67 |
GAD_PPM_FUN_MONO |
_RL fhat(+1:+3) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
81 |
GAD_PPM_FUN_MONO |
fhat(1) = ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
83 |
GAD_PPM_FUN_MONO |
fhat(2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
84 |
GAD_PPM_FUN_MONO |
fhat(3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
131 |
GAD_PPM_HAT_R |
fhat(ii,ir) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
41 |
GAD_PPM_HAT_R |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
8 |
GAD_PPM_HAT_R |
& ohat,fhat,myThid) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
132 |
GAD_PPM_HAT_X |
fhat(ii,ix) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
42 |
GAD_PPM_HAT_X |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
8 |
GAD_PPM_HAT_X |
& ohat,fhat,myThid) |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
133 |
GAD_PPM_HAT_Y |
fhat(ii,iy) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
42 |
GAD_PPM_HAT_Y |
_RL fhat(1:3, |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
8 |
GAD_PPM_HAT_Y |
I ohat,fhat,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
138 |
GAD_PQM_ADV_R |
& fhat,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
143 |
GAD_PQM_ADV_R |
& wfac,fhat, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
64 |
GAD_PQM_ADV_R |
_RL fhat(1:5,1-0:Nr+0) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
126 |
GAD_PQM_ADV_X |
& fhat,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
132 |
GAD_PQM_ADV_X |
& ufac,fhat, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
63 |
GAD_PQM_ADV_X |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
126 |
GAD_PQM_ADV_Y |
& fhat,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
132 |
GAD_PQM_ADV_Y |
& vfac,fhat, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
63 |
GAD_PQM_ADV_Y |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
123 |
GAD_PQM_FLX_R |
intF = ivec(1) * fhat(1,ir-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
124 |
GAD_PQM_FLX_R |
& + ivec(2) * fhat(2,ir-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
125 |
GAD_PQM_FLX_R |
& + ivec(3) * fhat(3,ir-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
126 |
GAD_PQM_FLX_R |
& + ivec(4) * fhat(4,ir-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
127 |
GAD_PQM_FLX_R |
& + ivec(5) * fhat(5,ir-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
39 |
GAD_PQM_FLX_R |
_RL fhat(1:5 , |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
8 |
GAD_PQM_FLX_R |
& fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
95 |
GAD_PQM_FLX_R |
intF = ivec(1) * fhat(1,ir-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
96 |
GAD_PQM_FLX_R |
& + ivec(2) * fhat(2,ir-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
97 |
GAD_PQM_FLX_R |
& + ivec(3) * fhat(3,ir-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
98 |
GAD_PQM_FLX_R |
& + ivec(4) * fhat(4,ir-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
99 |
GAD_PQM_FLX_R |
& + ivec(5) * fhat(5,ir-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
100 |
GAD_PQM_FLX_X |
& + ivec(2) * fhat(2,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
101 |
GAD_PQM_FLX_X |
& + ivec(3) * fhat(3,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
102 |
GAD_PQM_FLX_X |
& + ivec(4) * fhat(4,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
103 |
GAD_PQM_FLX_X |
& + ivec(5) * fhat(5,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
132 |
GAD_PQM_FLX_X |
intF = ivec(1) * fhat(1,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
133 |
GAD_PQM_FLX_X |
& + ivec(2) * fhat(2,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
134 |
GAD_PQM_FLX_X |
& + ivec(3) * fhat(3,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
135 |
GAD_PQM_FLX_X |
& + ivec(4) * fhat(4,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
136 |
GAD_PQM_FLX_X |
& + ivec(5) * fhat(5,ix-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
39 |
GAD_PQM_FLX_X |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
8 |
GAD_PQM_FLX_X |
& ufac,fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
99 |
GAD_PQM_FLX_X |
intF = ivec(1) * fhat(1,ix-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
100 |
GAD_PQM_FLX_Y |
& + ivec(2) * fhat(2,iy-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
101 |
GAD_PQM_FLX_Y |
& + ivec(3) * fhat(3,iy-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
102 |
GAD_PQM_FLX_Y |
& + ivec(4) * fhat(4,iy-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
103 |
GAD_PQM_FLX_Y |
& + ivec(5) * fhat(5,iy-1) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
132 |
GAD_PQM_FLX_Y |
intF = ivec(1) * fhat(1,iy-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
133 |
GAD_PQM_FLX_Y |
& + ivec(2) * fhat(2,iy-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
134 |
GAD_PQM_FLX_Y |
& + ivec(3) * fhat(3,iy-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
135 |
GAD_PQM_FLX_Y |
& + ivec(4) * fhat(4,iy-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
136 |
GAD_PQM_FLX_Y |
& + ivec(5) * fhat(5,iy-0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
39 |
GAD_PQM_FLX_Y |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
8 |
GAD_PQM_FLX_Y |
& vfac,fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
99 |
GAD_PQM_FLX_Y |
intF = ivec(1) * fhat(1,iy-1) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
101 |
GAD_PQM_FUN_NULL |
fhat(1) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
105 |
GAD_PQM_FUN_NULL |
fhat(2) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
108 |
GAD_PQM_FUN_NULL |
fhat(3) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
112 |
GAD_PQM_FUN_NULL |
fhat(4) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
114 |
GAD_PQM_FUN_NULL |
fhat(5) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
132 |
GAD_PQM_FUN_MONO |
O fhat,mono) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
145 |
GAD_PQM_FUN_MONO |
_RL fhat(+1:+5) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
165 |
GAD_PQM_FUN_MONO |
fhat(1) = ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
167 |
GAD_PQM_FUN_MONO |
fhat(2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
168 |
GAD_PQM_FUN_MONO |
fhat(3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
169 |
GAD_PQM_FUN_MONO |
fhat(4) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
170 |
GAD_PQM_FUN_MONO |
fhat(5) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
213 |
GAD_PQM_FUN_MONO |
fhat(1) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
217 |
GAD_PQM_FUN_MONO |
fhat(2) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
220 |
GAD_PQM_FUN_MONO |
fhat(3) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
224 |
GAD_PQM_FUN_MONO |
fhat(4) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
226 |
GAD_PQM_FUN_MONO |
fhat(5) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
232 |
GAD_PQM_FUN_MONO |
aval = 12. _d 0 * fhat(5) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
233 |
GAD_PQM_FUN_MONO |
bval = 6. _d 0 * fhat(4) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
234 |
GAD_PQM_FUN_MONO |
cval = 2. _d 0 * fhat(3) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
244 |
GAD_PQM_FUN_MONO |
dflx(1) = fhat(2) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
245 |
GAD_PQM_FUN_MONO |
& + iflx(1) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
246 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
247 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
270 |
GAD_PQM_FUN_MONO |
dflx(2) = fhat(2) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
271 |
GAD_PQM_FUN_MONO |
& + iflx(2) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
272 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
273 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
383 |
GAD_PQM_FUN_MONO |
fhat(1) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
387 |
GAD_PQM_FUN_MONO |
fhat(2) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
390 |
GAD_PQM_FUN_MONO |
fhat(3) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
394 |
GAD_PQM_FUN_MONO |
fhat(4) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
396 |
GAD_PQM_FUN_MONO |
fhat(5) = |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
83 |
GAD_PQM_FUN_NULL |
O fhat,mono) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
95 |
GAD_PQM_FUN_NULL |
_RL fhat(+1:+5) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
151 |
GAD_PQM_HAT_R |
fhat(ii,ir) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
45 |
GAD_PQM_HAT_R |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
8 |
GAD_PQM_HAT_R |
& ohat,fhat,myThid) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
153 |
GAD_PQM_HAT_X |
fhat(ii,ix) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
159 |
GAD_PQM_HAT_X |
fhat(ii,ix) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
45 |
GAD_PQM_HAT_X |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
8 |
GAD_PQM_HAT_X |
& ohat,fhat,myThid) |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
154 |
GAD_PQM_HAT_Y |
fhat(ii,iy) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
160 |
GAD_PQM_HAT_Y |
fhat(ii,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
45 |
GAD_PQM_HAT_Y |
_RL fhat(1:5, |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
8 |
GAD_PQM_HAT_Y |
& ohat,fhat,myThid) |