File |
Line number |
Procedure |
Code |
./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 |
15 |
GAD_SOM_ADV_R |
U alp, aln, fp_v, fn_v, fp_o, fn_o, |
./pkg/generic_advdiff/gad_som_adv_r.F |
193 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
194 |
GAD_SOM_ADV_R |
alnq = aln(i,j,kUp)*aln(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
195 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
198 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
201 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
202 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
205 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
206 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
207 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
220 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
221 |
GAD_SOM_ADV_R |
alnq = aln(i,j,kUp)*aln(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
222 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
./pkg/generic_advdiff/gad_som_adv_r.F |
225 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)* |
./pkg/generic_advdiff/gad_som_adv_r.F |
227 |
GAD_SOM_ADV_R |
& + aln1*(aln1-aln(i,j,kUp))*sm_zz(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
231 |
GAD_SOM_ADV_R |
fn_zz(i,j,kUp) = aln(i,j,kUp)*alnq*sm_zz(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
232 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)* |
./pkg/generic_advdiff/gad_som_adv_r.F |
234 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)* |
./pkg/generic_advdiff/gad_som_adv_r.F |
238 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
239 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
240 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
261 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
264 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
265 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
266 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
267 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
268 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
./pkg/generic_advdiff/gad_som_adv_r.F |
269 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
./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 |
81 |
GAD_SOM_ADV_R |
_RL aln (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/generic_advdiff/gad_som_adv_x.F |
199 |
GAD_SOM_ADV_X |
aln (i,j) = fn_v(i,j)/sm_v( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
200 |
GAD_SOM_ADV_X |
alnq = aln(i,j)*aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
201 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
204 |
GAD_SOM_ADV_X |
fn_o (i,j) = aln(i,j)*( sm_o( i ,j) - aln1*sm_x( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
205 |
GAD_SOM_ADV_X |
& + aln1*(aln1-aln(i,j))*sm_xx( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
208 |
GAD_SOM_ADV_X |
fn_xx(i,j) = aln(i,j)*alnq*sm_xx( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
209 |
GAD_SOM_ADV_X |
fn_y (i,j) = aln(i,j)*( sm_y( i ,j) - aln1*sm_xy( i ,j) ) |
./pkg/generic_advdiff/gad_som_adv_x.F |
210 |
GAD_SOM_ADV_X |
fn_z (i,j) = aln(i,j)*( sm_z( i ,j) - aln1*sm_xz( i ,j) ) |
./pkg/generic_advdiff/gad_som_adv_x.F |
213 |
GAD_SOM_ADV_X |
fn_yy(i,j) = aln(i,j)*sm_yy( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
214 |
GAD_SOM_ADV_X |
fn_zz(i,j) = aln(i,j)*sm_zz( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
215 |
GAD_SOM_ADV_X |
fn_yz(i,j) = aln(i,j)*sm_yz( i ,j) |
./pkg/generic_advdiff/gad_som_adv_x.F |
235 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - aln(i,j) - alp(i+1,j) |
./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 |
98 |
GAD_SOM_ADV_X |
_RL aln (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_som_adv_y.F |
200 |
GAD_SOM_ADV_Y |
aln (i,j) = fn_v(i,j)/sm_v(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
201 |
GAD_SOM_ADV_Y |
alnq = aln(i,j)*aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
202 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - aln(i,j) |
./pkg/generic_advdiff/gad_som_adv_y.F |
205 |
GAD_SOM_ADV_Y |
fn_o (i,j) = aln(i,j)*( sm_o(i, j ) - aln1*sm_y(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
206 |
GAD_SOM_ADV_Y |
& + aln1*(aln1-aln(i,j))*sm_yy(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
209 |
GAD_SOM_ADV_Y |
fn_yy(i,j) = aln(i,j)*alnq*sm_yy(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
210 |
GAD_SOM_ADV_Y |
fn_x (i,j) = aln(i,j)*( sm_x(i, j ) - aln1*sm_xy(i, j ) ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
211 |
GAD_SOM_ADV_Y |
fn_z (i,j) = aln(i,j)*( sm_z(i, j ) - aln1*sm_yz(i, j ) ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
214 |
GAD_SOM_ADV_Y |
fn_xx(i,j) = aln(i,j)*sm_xx(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
215 |
GAD_SOM_ADV_Y |
fn_zz(i,j) = aln(i,j)*sm_zz(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
216 |
GAD_SOM_ADV_Y |
fn_xz(i,j) = aln(i,j)*sm_xz(i, j ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
236 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - aln(i,j) - alp(i,j+1) |
./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 |
98 |
GAD_SOM_ADV_Y |
_RL aln (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/generic_advdiff/gad_som_advect.F |
106 |
GAD_SOM_ADVECT |
_RL aln (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/generic_advdiff/gad_som_advect.F |
482 |
GAD_SOM_ADVECT |
aln (i,j,kDown) = 0. _d 0 |
./pkg/generic_advdiff/gad_som_advect.F |
570 |
GAD_SOM_ADVECT |
U alp, aln, fp_v, fn_v, fp_o, fn_o, |
./pkg/bulk_force/bulkf_formula_lanl.F |
129 |
BULKF_FORMULA_LANL |
aln = log(ht/zref) |
./pkg/bulk_force/bulkf_formula_lanl.F |
181 |
BULKF_FORMULA_LANL |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
./pkg/bulk_force/bulkf_formula_lanl.F |
182 |
BULKF_FORMULA_LANL |
rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar) |
./pkg/bulk_force/bulkf_formula_lanl.F |
97 |
BULKF_FORMULA_LANL |
_RL aln ! = log(ht/zref) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
180 |
CHEAPAML_LANL_FLUX |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
181 |
CHEAPAML_LANL_FLUX |
rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
71 |
CHEAPAML_LANL_FLUX |
_RL aln,cdalton,czol,psim_fac |
./pkg/cheapaml/cheapaml_lanl_flux.F |
88 |
CHEAPAML_LANL_FLUX |
aln = log(ht/zref) |