| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
116 |
GAD_SOM_ADV_R |
_RL alfp, alpq, alp1, locTp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
163 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
167 |
GAD_SOM_ADV_R |
& ( sm_o(i,j, k ) + alp1*sm_z(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
168 |
GAD_SOM_ADV_R |
& + alp1*(alp1-alp(i,j,kUp))*sm_zz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
171 |
GAD_SOM_ADV_R |
& ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
174 |
GAD_SOM_ADV_R |
& ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
176 |
GAD_SOM_ADV_R |
& ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
317 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
320 |
GAD_SOM_ADV_R |
locTp = alfp*sm_o(i,j,k) - alp1*fp_o(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
324 |
GAD_SOM_ADV_R |
& - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
326 |
GAD_SOM_ADV_R |
& + twoRL*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
331 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_x(i,j,k) - alp1*fp_x(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
336 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_y(i,j,k) - alp1*fp_y(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
182 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
185 |
GAD_SOM_ADV_X |
fp_o (i,j) = alp(i,j)*( sm_o(i-1,j) + alp1*sm_x(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
186 |
GAD_SOM_ADV_X |
& + alp1*(alp1-alp(i,j))*sm_xx(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
188 |
GAD_SOM_ADV_X |
fp_x (i,j) = alpq *( sm_x(i-1,j) + three*alp1*sm_xx(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
190 |
GAD_SOM_ADV_X |
fp_y (i,j) = alp(i,j)*( sm_y(i-1,j) + alp1*sm_xy(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
191 |
GAD_SOM_ADV_X |
fp_z (i,j) = alp(i,j)*( sm_z(i-1,j) + alp1*sm_xz(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
267 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
270 |
GAD_SOM_ADV_X |
locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
274 |
GAD_SOM_ADV_X |
& - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
276 |
GAD_SOM_ADV_X |
& + twoRL*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
281 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_y(i,j) - alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
286 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
95 |
GAD_SOM_ADV_X |
_RL alfp, alpq, alp1, locTp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
182 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
185 |
GAD_SOM_ADV_Y |
fp_o (i,j) = alp(i,j)*( sm_o(i,j-1) + alp1*sm_y(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
186 |
GAD_SOM_ADV_Y |
& + alp1*(alp1-alp(i,j))*sm_yy(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
188 |
GAD_SOM_ADV_Y |
fp_y (i,j) = alpq *( sm_y(i,j-1) + three*alp1*sm_yy(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
190 |
GAD_SOM_ADV_Y |
fp_x (i,j) = alp(i,j)*( sm_x(i,j-1) + alp1*sm_xy(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
191 |
GAD_SOM_ADV_Y |
fp_z (i,j) = alp(i,j)*( sm_z(i,j-1) + alp1*sm_yz(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
268 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
271 |
GAD_SOM_ADV_Y |
locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
275 |
GAD_SOM_ADV_Y |
& - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
277 |
GAD_SOM_ADV_Y |
& + twoRL*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
282 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_x(i,j) - alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
287 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
95 |
GAD_SOM_ADV_Y |
_RL alfp, alpq, alp1, locTp |