| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1011 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1012 |
CLDSCALE |
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) |
|
./pkg/fizhi/fizhi_swrad.F |
1089 |
CLDSCALE |
ft=(log10(taux)-t1)/dt |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2563 |
TABLUP |
t1 = ba*(1.-fw) + bb*fw |
|
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |