| File |
Line number |
Procedure |
Code |
|
./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 |
55 |
CUBIC |
if (t-ta .lt. 0.0) then |
|
./lsopt/cubic.F |
59 |
CUBIC |
sign = (t-ta)/abs(t-ta) |
|
./lsopt/cubic.F |
61 |
CUBIC |
t = t + fp*(ta-t)/sngl(b+discri) |
|
./lsopt/cubic.F |
65 |
CUBIC |
if (abs((t-ta)*anum).lt.(tupper-tlower)*abs(den)) then |
|
./lsopt/cubic.F |
66 |
CUBIC |
t = t + anum*(ta-t)/den |
|
./lsopt/cubic.F |
7 |
CUBIC |
double precision t, f, fp, ta, fa, fpa, tlower, tupper |
|
./lsopt/lsline.F |
115 |
LSLINE |
ta = 0.0 |
|
./lsopt/lsline.F |
183 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
184 |
LSLINE |
ta = told |
|
./lsopt/lsline.F |
206 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
207 |
LSLINE |
ta = told |
|
./lsopt/lsline.F |
82 |
LSLINE |
double precision tg, fg, td, ta |
|
./pkg/fizhi/fizhi_swrad.F |
657 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
764 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
816 |
SORAD |
* (1.+0.00135*(ta(i,j,k)-240.)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1024 |
IRRAD |
blayer(i,j,k)=ta(i,j,k)*(ta(i,j,k)*(ta(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1025 |
IRRAD |
* *(ta(i,j,k)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
569 |
IRRAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np), |
|
./pkg/fizhi/fizhi_lwrad.F |
886 |
IRRAD |
dt(i,j,k)=ta(i,j,k)-250.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
927 |
IRRAD |
dcont(i,j,k) = xx*exp(1800./ta(i,j,k)-6.081)+1.e-10 |