File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_som_adv_r.F |
117 |
GAD_SOM_ADV_R |
_RL alfn, alnq, aln1, locTn |
./pkg/generic_advdiff/gad_som_adv_r.F |
315 |
GAD_SOM_ADV_R |
alfn = fn_v(i,j,kUp)/sm_v(i,j,k) |
./pkg/generic_advdiff/gad_som_adv_r.F |
316 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_r.F |
318 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - alfn |
./pkg/generic_advdiff/gad_som_adv_r.F |
319 |
GAD_SOM_ADV_R |
alpmn = alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_r.F |
321 |
GAD_SOM_ADV_R |
locTn = alfn*sm_o(i,j,k) - aln1*fn_o(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
323 |
GAD_SOM_ADV_R |
& + alfn*alfn*fn_zz(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
325 |
GAD_SOM_ADV_R |
& - alfn*aln1*fn_z(i,j,kUp) |
./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 |
327 |
GAD_SOM_ADV_R |
& + (aln1-alfn)*locTn |
./pkg/generic_advdiff/gad_som_adv_r.F |
330 |
GAD_SOM_ADV_R |
& + alfn*fn_xz(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
335 |
GAD_SOM_ADV_R |
& + alfn*fn_yz(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
340 |
GAD_SOM_ADV_R |
& + alfn*fn_z(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_x.F |
265 |
GAD_SOM_ADV_X |
alfn = fn_v(i+1,j)/sm_v(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
266 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_x.F |
268 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - alfn |
./pkg/generic_advdiff/gad_som_adv_x.F |
269 |
GAD_SOM_ADV_X |
alpmn = alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_x.F |
271 |
GAD_SOM_ADV_X |
locTn = alfn*sm_o(i,j) - aln1*fn_o(i+1,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
273 |
GAD_SOM_ADV_X |
& + alfn*alfn*fn_xx(i+1,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
275 |
GAD_SOM_ADV_X |
& - alfn*aln1*fn_x(i+1,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 |
277 |
GAD_SOM_ADV_X |
& + (aln1-alfn)*locTn |
./pkg/generic_advdiff/gad_som_adv_x.F |
280 |
GAD_SOM_ADV_X |
& + alfn*fn_xy(i+1,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
285 |
GAD_SOM_ADV_X |
& + alfn*fn_xz(i+1,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
289 |
GAD_SOM_ADV_X |
sm_x (i,j) = alf1*sm_x(i,j) + alfp*fp_x(i,j) + alfn*fn_x(i+1,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
96 |
GAD_SOM_ADV_X |
_RL alfn, alnq, aln1, locTn |
./pkg/generic_advdiff/gad_som_adv_y.F |
266 |
GAD_SOM_ADV_Y |
alfn = fn_v(i,j+1)/sm_v(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
267 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_y.F |
269 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - alfn |
./pkg/generic_advdiff/gad_som_adv_y.F |
270 |
GAD_SOM_ADV_Y |
alpmn = alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_y.F |
272 |
GAD_SOM_ADV_Y |
locTn = alfn*sm_o(i,j) - aln1*fn_o(i,j+1) |
./pkg/generic_advdiff/gad_som_adv_y.F |
274 |
GAD_SOM_ADV_Y |
& + alfn*alfn*fn_yy(i,j+1) |
./pkg/generic_advdiff/gad_som_adv_y.F |
276 |
GAD_SOM_ADV_Y |
& - alfn*aln1*fn_y(i,j+1) |
./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 |
278 |
GAD_SOM_ADV_Y |
& + (aln1-alfn)*locTn |
./pkg/generic_advdiff/gad_som_adv_y.F |
281 |
GAD_SOM_ADV_Y |
& + alfn*fn_xy(i,j+1) |
./pkg/generic_advdiff/gad_som_adv_y.F |
286 |
GAD_SOM_ADV_Y |
& + alfn*fn_yz(i,j+1) |
./pkg/generic_advdiff/gad_som_adv_y.F |
290 |
GAD_SOM_ADV_Y |
sm_y (i,j) = alf1*sm_y(i,j) + alfp*fp_y(i,j) + alfn*fn_y(i,j+1) |
./pkg/generic_advdiff/gad_som_adv_y.F |
96 |
GAD_SOM_ADV_Y |
_RL alfn, alnq, aln1, locTn |