File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_som_adv_r.F |
114 |
GAD_SOM_ADV_R |
_RL wLoc, alf1, alf1q, alpmn |
./pkg/generic_advdiff/gad_som_adv_r.F |
254 |
GAD_SOM_ADV_R |
alpmn = alp(i,j,kUp) - aln(i,j,kDw) |
./pkg/generic_advdiff/gad_som_adv_r.F |
257 |
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 |
280 |
GAD_SOM_ADV_R |
alpmn = alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_r.F |
285 |
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 |
292 |
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 |
297 |
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 |
248 |
GAD_SOM_ADV_X |
alpmn = alp(i+1,j) - aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
251 |
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 |
274 |
GAD_SOM_ADV_X |
alpmn = alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_x.F |
279 |
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 |
286 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_y(i,j) - alp1*fp_y(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
291 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
92 |
GAD_SOM_ADV_X |
_RL uLoc, alf1, alf1q, alpmn |
./pkg/generic_advdiff/gad_som_adv_y.F |
249 |
GAD_SOM_ADV_Y |
alpmn = alp(i,j+1) - aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
252 |
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 |
275 |
GAD_SOM_ADV_Y |
alpmn = alfp - alfn |
./pkg/generic_advdiff/gad_som_adv_y.F |
280 |
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 |
287 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_x(i,j) - alp1*fp_x(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
292 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
92 |
GAD_SOM_ADV_Y |
_RL vLoc, alf1, alf1q, alpmn |