| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_functions.F |
115 |
NO PROCEDURE |
fm = (rG - ylo) / dist |
|
./pkg/flt/flt_functions.F |
116 |
NO PROCEDURE |
global2local_j = fp*j + fm*(j+1) |
|
./pkg/flt/flt_functions.F |
158 |
NO PROCEDURE |
_RL rG, fp, fm, dist, zlo, zhi |
|
./pkg/flt/flt_functions.F |
175 |
NO PROCEDURE |
fm = (rG - zlo) / dist |
|
./pkg/flt/flt_functions.F |
176 |
NO PROCEDURE |
global2local_k = fp*k + fm*(k+1) |
|
./pkg/flt/flt_functions.F |
34 |
NO PROCEDURE |
_RL rG, fp, fm, dist, xlo, xhi |
|
./pkg/flt/flt_functions.F |
52 |
NO PROCEDURE |
fm = (rG - xlo) / dist |
|
./pkg/flt/flt_functions.F |
53 |
NO PROCEDURE |
global2local_i = fp*i + fm*(i+1) |
|
./pkg/flt/flt_functions.F |
96 |
NO PROCEDURE |
_RL rG, fp, fm, dist, ylo, yhi |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1006 |
CLDSCALE |
_RL fm,ft,fa,xai,taux |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1089 |
CLDSCALE |
fm=cosz(i,j)/dm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1093 |
CLDSCALE |
im=int(fm+1.5) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1105 |
CLDSCALE |
fm=fm-float(im-1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1113 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1114 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |
|
./pkg/fizhi/fizhi_swrad.F |
1005 |
CLDSCALE |
_RL fm,ft,fa,xai,taux |
|
./pkg/fizhi/fizhi_swrad.F |
1088 |
CLDSCALE |
fm=cosz(i,j)/dm |
|
./pkg/fizhi/fizhi_swrad.F |
1092 |
CLDSCALE |
im=int(fm+1.5) |
|
./pkg/fizhi/fizhi_swrad.F |
1104 |
CLDSCALE |
fm=fm-float(im-1) |
|
./pkg/fizhi/fizhi_swrad.F |
1112 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1113 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |