| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1996 |
DELEDD |
_RL zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, |
|
./pkg/fizhi/fizhi_swrad.F |
2031 |
DELEDD |
alf1 = gm1 - gm3 * xx |
|
./pkg/fizhi/fizhi_swrad.F |
2039 |
DELEDD |
bll = (one - gm3 + alf1*zth)*xx |
|
./pkg/fizhi/fizhi_swrad.F |
2050 |
DELEDD |
fll = (alf1 + xx) * st8 |
|
./pkg/fizhi/fizhi_swrad.F |
2051 |
DELEDD |
ell = (alf1 - xx) * st7 |
|
./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 |
252 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
253 |
GAD_SOM_ADV_R |
alf1q = alf1*alf1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
258 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1q*sm_zz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
277 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
283 |
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 |
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 |
290 |
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 |
295 |
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 |
300 |
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_x.F |
246 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - aln(i,j) - alp(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
247 |
GAD_SOM_ADV_X |
alf1q = alf1*alf1 |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
252 |
GAD_SOM_ADV_X |
sm_xx(i,j) = alf1*alf1q*sm_xx(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
271 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
277 |
GAD_SOM_ADV_X |
sm_xx(i,j) = alf1*alf1*sm_xx(i,j) + alfp*alfp*fp_xx(i,j) |
|
./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 |
284 |
GAD_SOM_ADV_X |
sm_xy(i,j) = alf1*sm_xy(i,j) + alfp*fp_xy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
289 |
GAD_SOM_ADV_X |
sm_xz(i,j) = alf1*sm_xz(i,j) + alfp*fp_xz(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
294 |
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 |
92 |
GAD_SOM_ADV_X |
_RL uLoc, alf1, alf1q, alpmn |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
247 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - aln(i,j) - alp(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
248 |
GAD_SOM_ADV_Y |
alf1q = alf1*alf1 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
253 |
GAD_SOM_ADV_Y |
sm_yy(i,j) = alf1*alf1q*sm_yy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
272 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
278 |
GAD_SOM_ADV_Y |
sm_yy(i,j) = alf1*alf1*sm_yy(i,j) + alfp*alfp*fp_yy(i,j) |
|
./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 |
285 |
GAD_SOM_ADV_Y |
sm_xy(i,j) = alf1*sm_xy(i,j) + alfp*fp_xy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
290 |
GAD_SOM_ADV_Y |
sm_yz(i,j) = alf1*sm_yz(i,j) + alfp*fp_yz(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
295 |
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 |
92 |
GAD_SOM_ADV_Y |
_RL vLoc, alf1, alf1q, alpmn |