| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
11 |
GAD_SOM_ADV_R |
I bi,bj,k, kUp, kDw, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
121 |
GAD_SOM_ADV_R |
alp(1,1,kDw) = alp(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
122 |
GAD_SOM_ADV_R |
aln(1,1,kDw) = aln(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
123 |
GAD_SOM_ADV_R |
fp_v(1,1,kDw) = fp_v(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
124 |
GAD_SOM_ADV_R |
fn_v(1,1,kDw) = fn_v(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
125 |
GAD_SOM_ADV_R |
fp_o(1,1,kDw) = fp_o(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
126 |
GAD_SOM_ADV_R |
fn_o(1,1,kDw) = fn_o(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
127 |
GAD_SOM_ADV_R |
fp_x(1,1,kDw) = fp_x(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
128 |
GAD_SOM_ADV_R |
fn_x(1,1,kDw) = fn_x(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
129 |
GAD_SOM_ADV_R |
fp_y(1,1,kDw) = fp_y(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
130 |
GAD_SOM_ADV_R |
fn_y(1,1,kDw) = fn_y(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
131 |
GAD_SOM_ADV_R |
fp_z(1,1,kDw) = fp_z(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
132 |
GAD_SOM_ADV_R |
fn_z(1,1,kDw) = fn_z(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
133 |
GAD_SOM_ADV_R |
fp_xx(1,1,kDw) = fp_xx(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
134 |
GAD_SOM_ADV_R |
fn_xx(1,1,kDw) = fn_xx(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
135 |
GAD_SOM_ADV_R |
fp_yy(1,1,kDw) = fp_yy(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
136 |
GAD_SOM_ADV_R |
fn_yy(1,1,kDw) = fn_yy(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
137 |
GAD_SOM_ADV_R |
fp_zz(1,1,kDw) = fp_zz(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
138 |
GAD_SOM_ADV_R |
fn_zz(1,1,kDw) = fn_zz(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
139 |
GAD_SOM_ADV_R |
fp_xy(1,1,kDw) = fp_xy(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
140 |
GAD_SOM_ADV_R |
fn_xy(1,1,kDw) = fn_xy(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
141 |
GAD_SOM_ADV_R |
fp_xz(1,1,kDw) = fp_xz(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
142 |
GAD_SOM_ADV_R |
fn_xz(1,1,kDw) = fn_xz(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
143 |
GAD_SOM_ADV_R |
fp_yz(1,1,kDw) = fp_yz(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
144 |
GAD_SOM_ADV_R |
fn_yz(1,1,kDw) = fn_yz(1,1,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
285 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp) |
|
./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 |
288 |
GAD_SOM_ADV_R |
sm_v (i,j,k) = sm_v (i,j,k) - fn_v (i,j,kDw) - fp_v (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
289 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
294 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
295 |
GAD_SOM_ADV_R |
sm_xx(i,j,k) = sm_xx(i,j,k) - fn_xx(i,j,kDw) - fp_xx(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
296 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
297 |
GAD_SOM_ADV_R |
sm_yy(i,j,k) = sm_yy(i,j,k) - fn_yy(i,j,kDw) - fp_yy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
298 |
GAD_SOM_ADV_R |
sm_xy(i,j,k) = sm_xy(i,j,k) - fn_xy(i,j,kDw) - fp_xy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
313 |
GAD_SOM_ADV_R |
sm_v (i,j,k) = sm_v (i,j,k) + fp_v (i,j,kDw) + fn_v (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
314 |
GAD_SOM_ADV_R |
alfp = fp_v(i,j,kDw)/sm_v(i,j,k) |
|
./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 |
322 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1*sm_zz(i,j,k) + alfp*alfp*fp_zz(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 |
329 |
GAD_SOM_ADV_R |
sm_xz(i,j,k) = alf1*sm_xz(i,j,k) + alfp*fp_xz(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 |
334 |
GAD_SOM_ADV_R |
sm_yz(i,j,k) = alf1*sm_yz(i,j,k) + alfp*fp_yz(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_r.F |
339 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1*sm_z(i,j,k) + alfp*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
342 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
343 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
344 |
GAD_SOM_ADV_R |
sm_xx(i,j,k) = sm_xx(i,j,k) + fp_xx(i,j,kDw) + fn_xx(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
345 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
346 |
GAD_SOM_ADV_R |
sm_yy(i,j,k) = sm_yy(i,j,k) + fp_yy(i,j,kDw) + fn_yy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
347 |
GAD_SOM_ADV_R |
sm_xy(i,j,k) = sm_xy(i,j,k) + fp_xy(i,j,kDw) + fn_xy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
55 |
GAD_SOM_ADV_R |
INTEGER bi,bj,k, kUp, kDw |