File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_som_adv_r.F |
115 |
GAD_SOM_ADV_R |
_RL wLoc, alf1, alf1q, alpmn |
./pkg/generic_advdiff/gad_som_adv_r.F |
287 |
GAD_SOM_ADV_R |
alpmn = alp(i,j,kUp) - aln(i,j,kDw) |
./pkg/generic_advdiff/gad_som_adv_r.F |
290 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1q*( sm_z(i,j,k) - three*alpmn*sm_zz(i,j,k) ) |
./pkg/generic_advdiff/gad_som_adv_r.F |
319 |
GAD_SOM_ADV_R |
alpmn = alfp - alfn |
./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 |
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 |
237 |
GAD_SOM_ADV_X |
alpmn = alp(i+1,j) - aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
240 |
GAD_SOM_ADV_X |
sm_x (i,j) = alf1q*( sm_x(i,j) - three*alpmn*sm_xx(i,j) ) |
./pkg/generic_advdiff/gad_som_adv_x.F |
269 |
GAD_SOM_ADV_X |
alpmn = alfp - alfn |
./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 |
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 |
94 |
GAD_SOM_ADV_X |
_RL uLoc, alf1, alf1q, alpmn |
./pkg/generic_advdiff/gad_som_adv_y.F |
238 |
GAD_SOM_ADV_Y |
alpmn = alp(i,j+1) - aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
241 |
GAD_SOM_ADV_Y |
sm_y (i,j) = alf1q*( sm_y(i,j) - three*alpmn*sm_yy(i,j) ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
270 |
GAD_SOM_ADV_Y |
alpmn = alfp - alfn |
./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 |
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 |
94 |
GAD_SOM_ADV_Y |
_RL vLoc, alf1, alf1q, alpmn |