| File |
Line number |
Procedure |
Code |
|
./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 |
|
./pkg/fizhi/fizhi_swrad.F |
665 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
772 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
824 |
SORAD |
* (1.+0.00135*(ta(i,j,k)-240.)) |
|
./pkg/opps/opps_calc.F |
534 |
NLOPPS |
subroutine NLOPPS(j,is,ie,ta,sa,gcmdz) |
|
./pkg/opps/opps_calc.F |
566 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
650 |
NLOPPS |
ttemp(k)=ta(i,k) |
|
./pkg/opps/opps_calc.F |
659 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
669 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |
|
./pkg/opps/opps_calc.F |
910 |
NLOPPS |
* ta(i,k2)) |
|
./pkg/opps/opps_calc.F |
912 |
NLOPPS |
ta(i,k2) = ttemp(k2) |
|
./pkg/opps/opps_calc.F |
919 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/bling/bling_carbon_chem.F |
134 |
CALC_PCO2 |
ta=ta*permil |
|
./pkg/bling/bling_carbon_chem.F |
16 |
CALC_PCO2 |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/bling/bling_carbon_chem.F |
199 |
CALC_PCO2 |
& ta |
|
./pkg/bling/bling_carbon_chem.F |
268 |
CALC_PCO2 |
& ta |
|
./pkg/bling/bling_carbon_chem.F |
317 |
CALC_PCO2 |
ta=ta/permil |
|
./pkg/bling/bling_carbon_chem.F |
327 |
CALC_PCO2_APPROX |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/bling/bling_carbon_chem.F |
369 |
CALC_PCO2_APPROX |
_RL t, s, pt, sit, ta |
|
./pkg/bling/bling_carbon_chem.F |
405 |
CALC_PCO2_APPROX |
ta=ta*permil |
|
./pkg/bling/bling_carbon_chem.F |
435 |
CALC_PCO2_APPROX |
IF (siooh3g.GT.0.2 _d 0*ta) siooh3g = 0.2 _d 0*ta |
|
./pkg/bling/bling_carbon_chem.F |
438 |
CALC_PCO2_APPROX |
cag = ta - bohg - (kwlocal/hguess) + hguess |
|
./pkg/bling/bling_carbon_chem.F |
469 |
CALC_PCO2_APPROX |
ta=ta/permil |
|
./pkg/bling/bling_carbon_chem.F |
55 |
CALC_PCO2 |
_RL t, s, pt, sit, ta |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
153 |
BULKF_FORMULA_LANL |
deltap = ta - tsf + gamma_blk*ht |
|
./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/dic/carbon_chem.F |
139 |
CALC_PCO2 |
ta=ta*permil |
|
./pkg/dic/carbon_chem.F |
204 |
CALC_PCO2 |
& ta |
|
./pkg/dic/carbon_chem.F |
21 |
CALC_PCO2 |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/dic/carbon_chem.F |
273 |
CALC_PCO2 |
& ta |
|
./pkg/dic/carbon_chem.F |
327 |
CALC_PCO2 |
ta=ta/permil |
|
./pkg/dic/carbon_chem.F |
340 |
CALC_PCO2_APPROX |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/dic/carbon_chem.F |
383 |
CALC_PCO2_APPROX |
_RL t, s, pt, sit, ta |
|
./pkg/dic/carbon_chem.F |
419 |
CALC_PCO2_APPROX |
ta=ta*permil |
|
./pkg/dic/carbon_chem.F |
448 |
CALC_PCO2_APPROX |
cag = ta - bohg - (kwlocal/hguess) + hguess |
|
./pkg/dic/carbon_chem.F |
484 |
CALC_PCO2_APPROX |
ta=ta/permil |
|
./pkg/dic/carbon_chem.F |
60 |
CALC_PCO2 |
_RL t, s, pt, sit, ta |