| File |
Line number |
Procedure |
Code |
|
./pkg/sbo/sbo_rho.F |
56 |
NO PROCEDURE |
x = PR*((((-2.1687E-16*T+1.8676E-14)*T-4.6206E-13)*P+ |
|
./pkg/sbo/sbo_rho.F |
62 |
NO PROCEDURE |
T = T + 0.29289322*(x-Q) |
|
./pkg/sbo/sbo_rho.F |
63 |
NO PROCEDURE |
Q = 0.58578644*x + 0.121320344*Q |
|
./pkg/sbo/sbo_rho.F |
64 |
NO PROCEDURE |
x = PR*((((-2.1687E-16*T+1.8676E-14)*T-4.6206E-13)*P+ |
|
./pkg/sbo/sbo_rho.F |
70 |
NO PROCEDURE |
T = T + 1.707106781*(x-Q) |
|
./pkg/sbo/sbo_rho.F |
71 |
NO PROCEDURE |
Q = 3.414213562*x - 4.121320344*Q |
|
./pkg/sbo/sbo_rho.F |
73 |
NO PROCEDURE |
x = PR*((((-2.1687E-16*T+1.8676E-14)*T-4.6206E-13)*P+ |
|
./pkg/sbo/sbo_rho.F |
78 |
NO PROCEDURE |
T = T + (x-2.0*Q)/6.0 |
|
./pkg/sbo/sbo_rho.F |
95 |
NO PROCEDURE |
x = (4.8314E-4 * S + |
|
./pkg/fizhi/fizhi_swrad.F |
783 |
SORAD |
_RL sdf(m,n),sclr(m,n),csm(m,n),x |
|
./pkg/fizhi/fizhi_swrad.F |
877 |
SORAD |
x=so2(i,j,k)*csm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
878 |
SORAD |
df(i,j,k)=df(i,j,k)+0.0287*(1.-expmn(-0.00027*sqrt(x))) |
|
./pkg/fizhi/fizhi_swrad.F |
939 |
SORAD |
x = (1.-rsirdf(i,j))*fdifir(i,j) + (1.-rsirbm(i,j))*fdirir(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
940 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |
|
./pkg/fizhi/fizhi_swrad.F |
941 |
SORAD |
fdirir(i,j)=fdirir(i,j)*(1.+x) |
|
./pkg/fizhi/fizhi_swrad.F |
942 |
SORAD |
fdifir(i,j)=fdifir(i,j)*(1.+x) |
|
./lsopt/dostore.F |
18 |
DOSTORE |
write( ntape, rec=j ) x |
|
./lsopt/dostore.F |
1 |
DOSTORE |
subroutine DOSTORE( n, x, store, j ) |
|
./lsopt/dostore.F |
20 |
DOSTORE |
read( ntape, rec=j ) x |
|
./lsopt/dostore.F |
7 |
DOSTORE |
real*4 x(n) |
|
./pkg/exf/exf_interp.F |
12 |
NO PROCEDURE |
real*8 function lagran(i,x,a,sp) |
|
./pkg/exf/exf_interp.F |
15 |
NO PROCEDURE |
_RS x |
|
./pkg/exf/exf_interp.F |
25 |
NO PROCEDURE |
numer = numer*(x - a(k)) |
|
./pkg/exf/exf_bulkformulae.F |
168 |
EXF_BULKFORMULAE |
_RL x |
|
./pkg/exf/exf_bulkformulae.F |
391 |
EXF_BULKFORMULAE |
x = sqrt(xsq) |
|
./pkg/exf/exf_bulkformulae.F |
394 |
EXF_BULKFORMULAE |
& (log((exf_one + x*(exf_two + x))* |
|
./pkg/exf/exf_bulkformulae.F |
395 |
EXF_BULKFORMULAE |
& (exf_one + xsq)/8.) - exf_two*atan(x) + |