| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1013 |
CLDSCALE |
_RL fm,ft,fa,xai,taux |
|
./pkg/fizhi/fizhi_swrad.F |
1090 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/fizhi/fizhi_swrad.F |
1098 |
CLDSCALE |
fa=fa/da |
|
./pkg/fizhi/fizhi_swrad.F |
1102 |
CLDSCALE |
ia=int(fa+1.5) |
|
./pkg/fizhi/fizhi_swrad.F |
1114 |
CLDSCALE |
fa=fa-float(ia-1) |
|
./pkg/fizhi/fizhi_swrad.F |
1126 |
CLDSCALE |
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1127 |
CLDSCALE |
* caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1141 |
CLDSCALE |
xai=xai+(-caif(it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1142 |
CLDSCALE |
* caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa) |
|
./lsopt/cubic.F |
20 |
CUBIC |
z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t) |
|
./lsopt/cubic.F |
2 |
CUBIC |
subroutine CUBIC( t, f, fp, ta, fa, fpa, tlower, tupper ) |
|
./lsopt/cubic.F |
7 |
CUBIC |
double precision t, f, fp, ta, fa, fpa, tlower, tupper |
|
./lsopt/lsline.F |
110 |
LSLINE |
fa = ff |
|
./lsopt/lsline.F |
183 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
206 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
226 |
LSLINE |
fa = fnew |
|
./lsopt/lsline.F |
83 |
LSLINE |
double precision fa, fpa, fp |